0

我正在尝试将两个条与控件和条件之间的条与星号标记以突出重要性。

当我使用并排条形图时,geom_text 放置的星号位置的默认设置位于每个样本的两个条件之间。我需要这个来比较条件(p2),但想在每个条形内放置另一组来自另一个重要性级别(相对于控制,p1)的星号。

我试过 hjust 但这与图形大小有关,因此每次图形大小改变时,星形位置也会发生变化。

示例代码:

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)

谢谢

4

0 回答 0