Question

I am trying to create a ggplot figure to show changes in EC of drip and drain water. I am using one geom_smooth() to draw drain results, using values from one data table and using a second geom_smooth() to draw drip results from another data table:

ggplot(irri.drain.ec.df,aes(x= Cal.Week, y= Drain_EC, colour= Treatment, group= Treatment))+
geom_smooth(size=2,method = "gam",se=F)+ 
geom_point()+ 
geom_smooth(mapping = aes(x= Cal.Week, y= Drip_EC),data = irri.drip.ec.df,method = "gam",se=F,linetype="dashed")+ 
xlab("Calendar Week")+ 
labs(title = "Drain EC Over Time",subtitle = "Dashed line represents drip EC")+
scale_y_continuous("Drain EC (µS/cm)")+
theme(legend.position = c(0.1,0.8), axis.title = element_text(face = "bold", size = 20),axis.text = element_text(size = 13), plot.title = element_text(face = "bold", size = 20, hjust = 0.5), plot.caption = element_text(face = "italic", size = 11, vjust = 0.2), plot.subtitle = element_text(hjust = 0.5), legend.text = element_text(size = 15), legend.title = element_text(size = 17,face = "bold"))

我愿在法律文本中添加行文类型,但似乎可以简单地使用<条码>,即线型_manual(或<条码>。

任何想法?

Answer 1

Thanks everyone, I have solved this issue using aes(linetype= * ) in each geom_smooth() and adding guide(colour=guide_legend(order=*), linetype=guide_legend(order=*))

例如:

ggplot(irri.df, 
       aes(x= Cal.Week, y= Drain_EC, colour= Treatment, group= Treatment))+ 
  geom_smooth(size=2,se=F,aes(linetype="Drain"))+ geom_point()+
  geom_smooth(mapping = aes(x= Cal.Week, y= Drip_EC,linetype="Drip"),data = irri.df,se=F)+ 
  xlab("Calendar Week")+ 
  labs(title = "Drain EC Over Time",subtitle = "Dashed line represents drip EC")+
  scale_y_continuous("Drain EC (µS/cm)")+
  theme(legend.position = c(0.15,0.75),
        axis.title = element_text(face = "bold", size = 20),
        axis.text = element_text(size = 13),
        plot.title = element_text(face = "bold", size = 20, hjust = 0.5),
        plot.caption = element_text(face = "italic", size = 11, vjust = 0.2),
        plot.subtitle = element_text(hjust = 0.5),
        legend.text = element_text(size = 15),
        legend.title = element_text(size = 17,face = "bold"))+
  guides(colour=guide_legend(order = 1),
         linetype=guide_legend(order = 2))

友情链接