有没有数据？

我有代码啊

你好，能不能模拟个数据，共享一下代码？谢谢！感激不尽

你看看符合你要求不？

library(ggplot2)
groupdata<-1:6
midvalue<-c(3,7,1.5,1,2,5.5)
maxvalue<-c(5,11,4,3.5,5,8.5)
minvalue<-c(0.5,3,-1,-1.5,0,3)
dat<-data.frame(groupdata,midvalue,maxvalue,minvalue)
p<ggplot(dat,aes(x=groupdata,y=midvalue))+ geom_errorbar(aes(ymin=maxvalue, ymax=minvalue), width=0,size=1)+     geom_point(size=3)+scale_y_continuous("Increase in daliy CLRD (%)",limits=c(-4,14))+scale_x_discrete("")
p