各グループの平均を示すセグメントを重ね合わせ、グループにラベルを付けて、3 つのグループの単純な散布図をプロットしようとしています。エラーバー付きの散布図を取得できましたが、平均がどこにあるかを示すセグメントのみが必要です。また、グループのラベル付けが正しく行われていないようです。
要約統計を取得するために、このページの関数「summarySE」を使用しています。[編集: この関数は Rmisc パッケージでも提供されていることに注意してください]
これを行う簡単な方法と、平均点の代わりにセグメントを取得する方法はありますか?
本当にありがとうございました！
library(ggplot2)
library(plyr)
df <- data.frame(tt = rep(1:3, each = 40),
val = round(rnorm(120, m = rep(c(4, 5, 7), each = 40))))
# After loading the summarySE function:
dfc <- summarySE(df, measurevar="val", groupvars="tt")
ggplot(dfc, aes(tt, val), main="Scatter plot with mean bars",
xlab="Groups", ylab="Values", names=c("Group1", "Group2", "Group3"))+
geom_jitter(aes(tt, val), data = df, colour = I("red"),
position = position_jitter(width = 0.05)) +
geom_point(size = 3) +
geom_errorbar(aes(ymin=val-sd, ymax=val+sd), width = 0.01, size = 1)