如何让 r 不删除 ggplot 中的一行 - geom_line

Question

我正在尝试根据以下数据生成随时间变化的增长率图表，这些数据在两组中有空白。

当我尝试使用geom_line连接点来增加 plot 时，组 c 没有线。

我只是想知道是否有办法解决这个问题

Answer 1

一种选择是消除阻止点通过线连接的缺失值：

使用我在上一个问题上提供的答案中的代码，但添加tidyr::drop_na ：

Growthplot <- data.frame(
  Site = letters[1:4],
  July = 0,
  August = c(1, -1, NA, 2),
  September = c(3, 2, 3, NA)
)

library(ggplot2)
library(tidyr)
library(dplyr, warn=FALSE)

growth_df <- Growthplot %>%
  pivot_longer(-Site, names_to = "Month", values_to = "Length") %>%
  mutate(Month = factor(Month, levels = c("July", "August", "September"))) %>%
  drop_na()

ggplot(growth_df, aes(x = Month, y = Length, colour = Site, group = Site)) +
  geom_point() +
  geom_line()+
  labs(color = "Site", x = "Month", y = "Growth in cm")  +  
  theme(axis.line = element_line(colour = "black", size = 0.24))