r - xlab - ggtitle



使用每個方面的觀察數量註釋ggplot2方面 (1)

看起來之前有人問過這個問題,我最初看不出他們是如何联系的。 我在這裡回答這個問題,但是如果某人有更優雅的話,請不要接受。 此外,n = foo是一個很常見的情況,希望有人會從這個問題中得到一些用處,即使它有點重複。

require(ggplot2)
require(plyr)
mms <- data.frame(deliciousness = rnorm(100),
                  type=sample(as.factor(c("peanut", "regular")), 
                              100, replace=TRUE),
                  color=sample(as.factor(c("red", "green", "yellow", "brown")), 
                              100, replace=TRUE))


mms.cor <- ddply(.data=mms, 
                 .(type, color), 
                 summarize, 
                 n=paste("n =", length(deliciousness)))

plot <- ggplot(data=mms, aes(x=deliciousness)) + 
          geom_density() + 
          facet_grid(type ~ color) + 
          geom_text(data=mms.cor, aes(x=1.8, y=5, label=n), 
                    colour="black", inherit.aes=FALSE, parse=FALSE)

plot

可能重複:
使用ggplot2創建facet_wrap圖,每個圖中帶有不同的註釋
將文本添加到ggplot2中的刻面圖上,日期位於X軸上

偶爾在ggplot中面對數據時,我認為用每個方面的觀察數量來註釋每個方面會很好。 當刻面可能導致每個面的觀察相對較少時,這一點尤為重要。

在這個情節的每個方面添加“n = X”的最佳/最簡單的方法是什麼?

require(ggplot2)
mms <- data.frame(deliciousness = rnorm(100),
                  type=sample(as.factor(c("peanut", "regular")), 100, replace=TRUE),
                  color=sample(as.factor(c("red", "green", "yellow", "brown")), 100, replace=TRUE))


plot <- ggplot(data=mms, aes(x=deliciousness)) + geom_density() + facet_grid(type ~ color)




ggplot2