2

このコードはで期待どおりに機能しませんggplot2 0.9.3（以前のバージョンのggplot2では正常に機能しました。ここを参照してください）。この問題の回避策はありますか？

library(ggplot2)
p <- qplot(as.factor(dose), len, data=ToothGrowth, geom = "boxplot", color = supp) + theme_bw()
p <- p + labs(x="Dose", y="Response")
p <- p + stat_summary(fun.y = mean, geom = "point", color = "blue", aes(group=supp))
p <- p + stat_summary(fun.y = mean, geom = "line", aes(group = supp))
p <- p  + theme(axis.title.x = element_text(size = 12, hjust = 0.54, vjust = 0))
p <- p  + theme(axis.title.y = element_text(size = 12, angle = 90,  vjust = 0.25))
print(p)

編集

この行

p <- p + stat_summary(fun.y = mean, geom = "line", aes(group = supp))

次の警告が表示されます

geom_path：各グループは1つの観測のみで構成されます。グループの美学を調整する必要がありますか？

4

1 に答える 1

2

この動作はggplot20.9.3のバグです：https ：//github.com/hadley/ggplot2/issues/739

ddplyを使用して要約を計算することにより、これを回避できます。

library(plyr)
tg <- ddply(ToothGrowth, c("dose", "supp"), summarise, len = mean(len))

library(ggplot2)
ggplot(ToothGrowth, aes(x=as.factor(dose), y=len, colour=supp)) +
    geom_boxplot() +
    geom_line(data=tg, aes(group=supp))
于 2012-12-10T16:43:26.160 に答える