如何消除ggplot2中不需要的geom_line部分

Question

我有一个geom_line图，其中包含来自2个不同采样点的6个独立数据采集周期（部署）的数据。我遇到的问题是geom_line在部署之间划了一条线。是否有一种简单的方法可以阻止部署之间的界限？

这是我的代码：

        pT=ggplot(Data1day,
          aes(x=Date2,
              y=Temp1_C,
              color=Observatory,
              shape=Observatory))+
  geom_line()+
  scale_shape_manual(values=c(4,3))+
  scale_colour_manual(values=c("dodgerblue4","orange")) + 
    ylab(expression(atop("Temp.","(°C)"))) + xlab("")  + 
    xlim(as.Date(c('1/2/2009', '1/9/2014'), format="%d/%m/%Y") )+ 
    theme(legend.position="none")+
    theme_bw() + theme(panel.border = element_blank(), panel.grid.major = 
    element_blank(),panel.grid.minor = element_blank(), axis.line = 
   element_line(colour = "black"))

以及一小段示例代码：

Observatory Date    Deployment  Temp1_C
NF  19/02/2010  3   4.077021277
NF  20/02/2010  3   4.095833333
NF  21/02/2010  3   4.031666667
NF  22/02/2010  3   4.026666667
NF  23/02/2010  3   4.017291667
NF  24/02/2010  3   4.0575
FF  18/02/2010  3   4
FF  19/02/2010  3   3.995
FF  20/02/2010  3   4.008541667
FF  21/02/2010  3   4.035833333
FF  22/02/2010  3   4.010833333
NF  18/08/2010  4   3.99047619
NF  19/08/2010  4   3.977916667
NF  20/08/2010  4   3.994166667
NF  21/08/2010  4   3.986666667
NF  22/08/2010  4   3.967916667
FF  30/08/2010  4   3.9255
FF  31/08/2010  4   3.935
FF  01/09/2010  4   3.93
FF  02/09/2010  4   3.939166667
FF  03/09/2010  4   3.910416667
FF  04/09/2010  4   3.874166667
FF  05/09/2010  4   3.8725

Answer 1

在您的情况下，您只需添加group=paste(Observatory, Deployment)即可。这将使每个天文台的每个部署都有自己的线段，但在部署中保持颜色一致。

ggplot(
  Data1day,
  aes(
    Date2, Temp1_C, 
    color = Observatory, 
    group = paste(Observatory, Deployment)))