36

重複の可能性:
ggplot2 で facet_wrap プロットを作成し、各プロットに異なる注釈を
付ける

ときどき、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)
4

1 に答える 1

50

これは以前に尋ねられたようで、最初はそれらがどのように接続されているかを確認できませんでした. ここでこれに答えていますが、誰かがもっとエレガントなものを持っている場合に備えて、受け入れられないままにしておきます. また、 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

出力

于 2012-11-05T23:07:24.733 に答える