r - 在分组箱线图上放置水平线

Question

我正在尝试使用以下基本代码制作箱线图:

design=c("Red","Green","Blue")
actions=c("1","2","3","4","5","6","7","8")
proportion=(seq(1:240)+sample(1:500, 240, replace=T))/2000
df=data.frame(design, actions , proportion)

ggplot(df, aes(x=actions, y=proportion, fill=design)) + 
  geom_boxplot()+
  xlab(TeX("group"))+
  ylab("Y value")+
  ggtitle("Y values for each group stratified by color")

产生这样的东西:

我想为每个组都不同的“真实”Y 值添加水平线。

有人对此有任何建议吗？我不知道如何提取每组盒子的宽度，否则我可以使用geom_segment。

这是带有非分组箱线图的 MWE:

dBox <- data.frame(y = rnorm(10),group="1")
dBox=rbind(dBox,data.frame(y=rnorm(10),group="2"))
dLines <- data.frame(X =c(-0.36, 0.015),
                     Y = c(0.4, -0.2),
                     Xend = c(0.-0.015, 0.36),
                     Yend=c(0.4, -0.2),
                     group = c("True", "True"),
                     color = c("black", "red"))

ggplot(dBox, aes(x=0, y=y,fill=group)) +
  geom_boxplot(outlier.shape = 1)+ 
  geom_segment(data = dLines, aes(x = X, xend = Xend, y = Y, yend = Yend),color="red",size=1.5,linetype=1) +
  theme(legend.background = element_rect(fill = "white", size = 0.1, linetype = "solid", colour = "black"))

这会产生如下内容:

但是，很难使 geom_segments 与框完全对齐，然后将其扩展到分组箱线图设置。

谢谢!

Answer 1

这可以使用侧面的解决方法来完成:

lines = data.frame(actions = 1:8, proportion=abs(rnorm(8)))

design=c("Red","Green","Blue")
actions=c("1","2","3","4","5","6","7","8")
proportion=(seq(1:240)+sample(1:500, 240, replace=T))/2000
df=data.frame(design, actions , proportion)

lines = data.frame(actions = 1:8, proportion=abs(rnorm(8)))

p = ggplot(df, aes(x=actions, y=proportion, fill=design)) + 
  geom_boxplot()+
  xlab("group")+
  ylab("Y value")+
  ggtitle("Y values for each group stratified by color") +
  facet_grid(~actions, scale='free_x') +
  theme(
    panel.spacing.x = unit(0, "lines"), 
    strip.background = element_blank(),
    strip.text.x = element_blank())

p + geom_hline(aes(yintercept = proportion), lines)

您可能可以尝试删除面之间的空间，使其看起来更像您想要的。

感谢 @eugene100hickey 指出如何删除面之间的间距。