删除图中的线条

Question

我现在使用ggplot2在R中开发此图形已有几天了。我差不多完成但是我遇到了问题。

我不知道如何摆脱那些不断交叉的线路。从我所看到的，他们将颜色的最后一点连接到相同颜色的下一个点。对于不在图中重复的颜色而言，这不是问题，而是对于那些没有重复的颜色。

这是我的剧本的样子：

section <- factor(p04_NoNegative$GS_Field, c("Out of Bounds", "High Weeds","Short Hieght","Low Thin",
        "Low Weeds","High Thin","Down","High Moisture","Medium Thin","Tall Hieght","Medium Weeds","Clumping","Low Moisture"))

x_axis_ef <- seq(0,6000,500)

#Speed
ggplot(p04_NoNegative, aes(x=Distance.Traveled, y=GS_VehicleSpeed)) + 
  geom_line(aes(color = section, group = section)) + 
  ggtitle("p04 entire field") + ylim(0,3) +
  ylab("Speed (m/s)")+ xlab("Distance (m)") + 
  scale_x_continuous(breaks = x_axis_ef) + 
  coord_cartesian(xlim = c(0,5000))

图表的所有彩色区域都在section向量中具有因子值。图中的灰色区域没有因子值，当我查看矢量时显示为<NA>。