Ggplot'ta birikimli frekans dağılımını çizmenin daha kolay yolu?

Question

Ggplot'ta birikimli dağıtım çizgisini çizmek için daha kolay bir yol arıyorum.

Kimin histogram ben http://www.r-tutor.com/elementary-statistics/quantitative-data/cumulative-frequency-graph bunu yapmak için bir yol bulmuş

qplot (mydata, binwidth=1); 

ile ben hemen görüntüleyebilir bazı veriler var ama birkaç adımdan oluşur ve verileri keşfetmek zaman zaman alıcı var.

Ggplot'ta bunu daha açık bir şekilde yapmanın bir yolu var mı, seçeneklerin belirlenmesiyle trend çizgileri ve güven aralıkları nasıl eklenebilir?

Answer 1

R'de ecdf() işlevinde, işleri kolaylaştırmak için yerleşik bir işlev var. Burada Sadece kümülatif frekansı istediklerini fark Düzenlemeplyr

library(plyr) 
data(iris) 

## Ecdf over all species 
iris.all <- summarize(iris, Sepal.Length = unique(Sepal.Length), 
          ecdf = ecdf(Sepal.Length)(unique(Sepal.Length))) 

ggplot(iris.all, aes(Sepal.Length, ecdf)) + geom_step() 

#Ecdf within species 
iris.species <- ddply(iris, .(Species), summarize, 
          Sepal.Length = unique(Sepal.Length), 
          ecdf = ecdf(Sepal.Length)(unique(Sepal.Length))) 

ggplot(iris.species, aes(Sepal.Length, ecdf, color = Species)) + geom_step() 

kullanan bazı örnek kod.

iris.all <- summarize(iris, Sepal.Length = unique(Sepal.Length), 
          ecdf = ecdf(Sepal.Length)(unique(Sepal.Length)) * length(Sepal.Length)) 

iris.species <- ddply(iris, .(Species), summarize, 
          Sepal.Length = unique(Sepal.Length), 
          ecdf = ecdf(Sepal.Length)(unique(Sepal.Length))*length(Sepal.Length)) 

Answer 2

Daha kolay: Sen gözlemlerin toplam sayısına göre ecdf değeri ile çarparak o alabilirsiniz sahiptir

qplot(unique(mydata), ecdf(mydata)(unique(mydata))*length(mydata), geom='step') 

Answer 3

ggplot2 yeni versiyonu (0.9.2.1) yerleşik bir stat_ecdf() fonksiyonu kümülatif dağılımları çok kolay bir şekilde çizelim. ggplot2 belgelerinden

qplot(rnorm(1000), stat = "ecdf", geom = "step") 

Ya

df <- data.frame(x = c(rnorm(100, 0, 3), rnorm(100, 0, 10)), 
      g = gl(2, 100)) 
ggplot(df, aes(x, colour = g)) + stat_ecdf() 

Kod örnekleri.