コントロールと比較して両方のバーにラベルを付け、重要性を強調するためにアスタリスクで条件間のバーにラベルを付けようとしています。
横棒グラフを使用している場合、geom_text によって配置されたアスタリスクの位置のデフォルト設定は、各サンプルの 2 つの条件の中間にあります。条件間の比較 (p2) にはこれが必要ですが、各バー内に別のレベルの有意性 (対照、p1 に対して) から別のアスタリスクのセットを配置したいと考えています。
私は hjust を試しましたが、これはグラフのサイズに関連しているため、グラフのサイズが変更されるたびに astrix の位置も変更されます。
コード例:
df = data.frame(names = rep(LETTERS[1:6], each=2),
num = c(rep(c("with","without"), 3)),
values = c(1,2,3,7,2,2,5,10,3,4,2,9),
p1=c(1,1,1,.005,0.5,1,0.005,0,1,0,1,1),
p2=c(1,1,1,1,1,1,1,0,1,1,1,0))
sidebyside=position_dodge(width=0.9)
df$star <- ""
df$star[df$p1 <= .05] <- "*"
df$star[df$p1 <= .01] <- "**"
df$star[df$p1 <= .001] <- "***"
df$star2 <- ""
df$star2[df$p2 <= .05] <- "*"
df$star2[df$p2 <= .01] <- "**"
df$star2[df$p2 <= .001] <- "***"
ggplot(df, aes(x=names, y=values, fill=num))+
geom_bar(stat="identity", position=sidebyside, colour='black')+
geom_text(aes(label=star), colour="black", vjust=1, size=10)+
geom_text(aes(label=star2), colour="black", vjust=0, size=10)
ありがとうございました