相关疑难解决方法(0)

我进行了六次治疗的实验,每次治疗都在光明和黑暗中进行.我用ggplot2来制作条形图.我想将重要性字母(例如LSD结果)添加到图表中以显示每种处理的亮度和暗度之间的差异,但它给我一个错误.有什么建议吗？

data <- read.table(header = TRUE, text = 
'T0 T1 T2 T3 T4 T5   LVD
40 62 50 45 45 58 Light
30 60 44 40 30 58 Light
30 68 42 35 32 59 Light
47 75 58 55 50 70  Dark
45 75 52 54 42 78  Dark
50 75 68 48 56 75  Dark
')

gla <- melt(data,id="LVD")
ggplot(gla, aes(x=variable, y=value, fill=as.factor(LVD))) + 
  stat_summary(fun.y=mean, 
               geom="bar",position=position_dodge(),colour="black",width=.7,size=.7) + 
  stat_summary(fun.ymin=min,fun.ymax=max,geom="errorbar",
               color="black",position=position_dodge(.7), width=.2) +
  scale_fill_manual("Legend", values = c("Light" = "white", "Dark" …