我正在尝试制作一个条形图,就像下面的示例数据和脚本一样,对 4 个个体在治疗前后进行测量。抱歉,我没有足够的声誉来上传示例图片。
我想用某种颜色绘制个体(例如汤姆为绿色,弗雷德红色等),但对于代表治疗的条形,我想在颜色顶部添加对角线以指示治疗。
这容易吗?下面的代码是我改编自的:为多个组生成不同颜色的 ggplot2 箱线图 https://stackoverflow.com/questions/16026215/generate-ggplot2-boxplot-with-different-colours-for-multiple-groups
非常感谢您的任何建议。我希望我想做的事情是有意义的。
示例数据(抱歉,不知道如何上传,因此从 .csv 导入):
Name,Time,Dose,Variable,n,Mean,SD,Median,Upper.SEM,Lower.SEM
Ted,1,0,P,3,20.1341,1.049791,20,0.5728394,0.5569923
Fred,1,0,P,3,38.63702,1.042969,37.74,0.9499892,0.9271918
Tom,6,0,P,3,42.3231,1.073583,43.75,1.7710033,1.6998725
Peter,6,0,P,3,36.01035,1.208213,35.63,4.1551262,3.7252776
Ted,1,1,P,3,22.79528,1.110182,21.64,1.4179833,1.334943
Fred,1,1,P,3,24.25966,1.156925,23.82,2.1300073,1.9580866
Tom,6,1,P,3,13.78995,1.170568,13.15,1.3126463,1.1985573
Peter,6,1,P,3,23.3236,1.4403,20.65,5.4688355,4.4300848
和我一直在使用的代码:
g<- ggplot(example, aes(x=Name, y=Mean,fill=interaction(Name,Dose) ))
g<-g + geom_bar(stat="identity", position="dodge")
g<-g + geom_errorbar(aes(ymax=Mean+Upper.SEM, ymin=Mean-Lower.SEM), position=position_dodge(0.9), width=0.5)
g<- g+ scale_fill_manual(values=c("green","green","red","red","green","green","red","red"
))
g