如何把折线图调整到柱形图的上面

如图所示，怎样把折线图放在柱形图的上面，
ggplot(data=X1026am,aes(x=Group,y=Moisture))+
  stat_summary(geom="bar",fun=mean,aes(fill=Group))+
  stat_summary(geom="errorbar",fun.min=min,fun.max = max,
               width=0.2)+
    scale_fill_manual(values =cols[c(650,173,193,203,213,223,487,488)])+
  stat_summary(data=X1026am,fun = "mean", geom = "point",fill="Green",colour="Green",shape=21,size=3.5)+
  stat_summary(data=X1026am,fun="mean",geom="line",group=1,colour="blue",size=1.2,linetype="dashed")

box图最适合了，参考代码

1. library(ggplot2)
   
2. library(tidyr)
   
3. library(dplyr)
   
4. data<-data.frame(ID=LETTERS[1:10],T1=runif(10,1,10),T2=rnorm(10,10,1),T3=rpois(10,5))
   
5. dt<- data%>%gather(category,score,-ID)
   
6. ggplot(dt) + aes(category, score) +
   
7.   geom_boxplot(aes(fill = category), alpha = 0.4, width = 0.6) +
   
8.   scale_fill_manual(values = c("blue", "red", "green")) +
   
9.   geom_jitter(aes(color = category), size = 2,
   
10.               position = position_jitter(width = 0.15)) +
    
11.   scale_color_manual(values = c("blue", "red", "green"))+
    
12.   labs(x = NULL) + theme_minimal()

复制代码

您这折线和柱子的y坐标是相同的，其中一个本来就是多余的，你要错开显示，那不是y值变了吗，还有实际意义？

各组之间的差异不是太大，把折线图放在上面组间差异会更好观察一点吧

edward1212 发表于 2022-11-21 16:36
各组之间的差异不是太大，把折线图放在上面组间差异会更好观察一点吧

您想用柱状图表示均值吧，其实，一般不用画柱状图。画成box图，就可以了。

谢谢楼主

看起来还不错