R ggplot&；geom_箱线图和；几何光滑

我的名字是Giacomo，我只是一个初学者。 我试图生成一个由两条趋势线叠加的箱线图，我绘制的每一个类对应一条

我在谷歌上找到了很多这样的例子 但这对我不起作用

最后我尝试了两种不同的方法，第一种是：

plotSerie <- ggplot(fileIn, aes(y=S1_VH)) +  
  geom_boxplot(aes(x=as.factor(DOY), fill = X2cycles)) +
  geom_smooth(method="loess", se=TRUE, aes(x=as.integer(DOY), color=X2cycles)) +    
  scale_fill_manual(values=c("ShortCycle"= "brown", "LongCycle" = "grey"),                           
                     name="Rice Cycles")+                                                            
  scale_color_manual(values=c("ShortCycle"= "brown", "LongCycle" = "grey"),                          
                    name="Rice Cycles")+                                                             
  labs(x = "DOY", y = "VH")+                                                                         
  theme(axis.text=element_text(size=20),                                                             
        axis.title=element_text(size=20,face="bold"),                                                
        legend.text=element_text(size=20),                                                           
        legend.title=element_text(size=25))+                                                         
  ylim(-24,-14)

---

plotSerie我解决了这个问题。无论如何，谢谢你

    plotSerie <- ggplot(fileIn, aes(x=factor(DOY), y=S1_VH, fill = X2cycles))+
  geom_boxplot() +
  geom_smooth(method="loess", se=TRUE, aes(group=X2cycles, color=X2cycles)) +    
  scale_fill_manual(values=c("ShortCycle"= "brown", "LongCycle" = "grey"),                           
                     name="Rice Cycles")+                                                            
  scale_color_manual(values=c("ShortCycle"= "brown", "LongCycle" = "grey"),                          
                    name="Rice Cycles")+                                                             
  labs(x = "DOY", y = "VH")+                                                                         
  theme(axis.text=element_text(size=20),                                                             
        axis.title=element_text(size=20,face="bold"),                                                
        legend.text=element_text(size=20),                                                           
        legend.title=element_text(size=25))+                                                         
  ylim(-24,-14)                                                                                      

plotSerie我为我的延误道歉。为了在绘图中使用连续X，我更改了脚本

plotSerie <- ggplot(fileIn, aes(x=DOY, y=S1_VH, fill = pass, group=DOY))+
  geom_boxplot() +
  geom_smooth(method="loess", se=TRUE, aes(group=pass, color=pass)) +    

plotserie1。请发布一个最小的、自包含的示例。2.请阅读手册（
？geom_箱线图
）。“您也可以使用连续x的箱线图，只要您提供一个分组变量。”@Henrik:非常感谢。我仔细阅读了手册，但我是个初学者，现在还不能解决我的问题。fileIn是我的数据帧的名称。如何附加此文件或如何向您提供此文件？谢谢你，阿加尼解决了这个问题。这很容易。这就是解决方案：geom_smooth（method=“leash”，se=TRUE，aes（group=X2cycles，color=X2cycles））+正如“这是一个非常糟糕的想法”中所指出的，在x轴离散时添加平滑器“可能会误导”。我认为最好使用带有连续x的箱线图，使用
？geom_箱线图
中描述的方法。感谢您的反馈。祝你好运！
plotSerie <- ggplot(fileIn, aes(x=DOY, y=S1_VH, fill = pass, group=DOY))+
  geom_boxplot() +
  geom_smooth(method="loess", se=TRUE, aes(group=pass, color=pass)) +