无法同时使用geom_boxplot，geom_text和geom_hline自定义ggplot2中的颜色和其他功能

Question

我不明白当ggplot，geom_boxplot和geom_text同时使用时，geom_hline如何回收用户设置的颜色列表或线型。

我想使用具有两个级别（例如白色和灰色）的分组因子来设置框线的填充颜色，使用具有四个级别（例如红色，橙色，蓝色，绿色）的分组因子来设置标签的文本颜色），然后添加三条水平线（两个参考值和具有定量变量全局平均值的线）。

我尝试使用scale_color_manual和scale_fill_manual，但没有令人满意的结果：我收到错误消息：insufficient values in manual scale，没有显示指定的线条，或者它们看起来与我想要的。

以下示例脚本显示了我的问题：1）线条特征错误（均值应为实线和蓝色）； 2）箱形图的边框颜色不是黑色； 3）​​图例与显示的功能。

group<-c(rep("a",8),rep("b",8))
subgroup<-c(rep("m1",4),rep("m2",4),rep("m1",4),rep("m2",4))
subgroup2<-c(rep(c("A","B","C","D"),4))
id<-c(rep(c("q","w","e","r"),2),rep(c("t","y","u","i"),2))
value<-c(0.5,1.5,2.5,3.5,1.8,2.8,3.8,4.8,2.7,3.7,4.7,5.7,4.5,5.5,6.5,7.5)
df<-data.frame(group,subgroup,subgroup2,id,value)

ggplot(df,aes(group,value))+
  geom_boxplot(aes(fill=subgroup, colour=subgroup))+
  theme_light()+
  theme(legend.position="bottom")+
  geom_text(data=subset(df, subgroup=="m1"), aes(label=id, color=subgroup2), size=3, position = position_nudge(x = -0.19)) +
  geom_text(data=subset(df, subgroup=="m2"), aes(label=id, color=subgroup2), size=3, position = position_nudge(x = 0.19)) + 
  stat_summary(data=subset(df, subgroup=="m1"),fun.y=mean, geom="point", shape=10, size=2,position = position_nudge(x = -0.19)) +
  stat_summary(data=subset(df, subgroup=="m2"),fun.y=mean, geom="point", shape=10, size=2,position = position_nudge(x = 0.19)) +
  geom_hline(aes(yintercept = 2.3, colour="green", linetype="dashed")) +
  geom_hline(aes(yintercept = 4.7, colour="red", linetype="dotted")) + 
  geom_hline(aes(yintercept = mean(value), colour="blue", linetype="solid"))