删除ggplot上的垂直线

Question

我使用下面的代码创建了以下ggplot。我需要删除右边的红色垂直线。任何帮助将不胜感激。

ggplot(model.1, aes(x = time, y = activity)) +
  geom_line(aes(group = id), alpha = .3) +
  geom_line(data = data, alpha = .9, size = 1, colour="red4") +
  theme(panel.background = element_blank(),axis.line=element_line(colour="black"))+
  scale_x_continuous(expand=c(0,0)) +
  theme(axis.line = element_line(colour = "black"),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_blank(),
        panel.background = element_blank())+
  labs(
    x = "Time",
    y = "Activity",
    color = NULL
  )

Answer 1

您可以尝试将该群组移至ggplot图层：

ggplot(model.1,aes(x = time, y = activity, group=id))

将其从geom_line图层中删除。我有一个类似的问题，这摆脱了垂直线。

Answer 2

看起来红色垂直线是您数据的一部分，但我可能错了。如果是，你可以过滤它：

filtered_data <- data %>% filter(time < 1)

然后在geom_line函数中使用它。