私はジッタープロットのようなほぼ箱ひげ図を持っています:
dt <- rbind(se,cb,cb.se)
qplot(ds, size, data=dt, geom="jitter", colour=root, facets = test ~ .)
プロットの中央に各グループの要約ラベルを付けたいと思います。たとえば、サイズの合計は次のとおりです。
aggregate(list(size=dt$size), list(dt$ds, dt$test), sum)
Group.1 Group.2 size
1 b217 se 9847
2 c10 se 97296
3 c613 se 21633
4 c7 se 207540
...
を使用してラベルを追加しようとしまし+ geom_text(aes(x=ds, y=128, label=sum(size)), size=2)
たが、各位置で同じラベルを取得します-データのそのセクションだけの合計を取得するにはどうすればよいですか?
編集: これが私が今いるところです-多分私は間違った方向に進んでいます
data <- rbind(se,cb,cb.se)
labels <-ddply(data, c("ds", "test"), function(df) sum(df$size))
ggplot(data=data, aes(x=ds)) +
geom_jitter(aes(y=size, colour=root)) +
geom_text(data=labels, aes(x=ds, y=600, label=V1), size=3) +
facet_wrap(test ~ .)
このコードは機能しません-undefined columns selected
エラーが発生します...どこかで。多分それは複数のdata=
セクションのためですか?