R ggplot2无法绘制长数据框全变量且geom_line不连线问题求助

问题现象 #

尝试绘制包含v07、v08两个变量的长格式数据框df.long1时出现以下异常：

• geom_point仅显示v07的点，geom_line无法将v07的点连线
• v08完全未被绘制，同时收到缺失值移除的警告
• 单独绘制v08时能得到正常效果

相关代码与信息 #

现有绘图代码 #

df.long1 %>%
  ggplot(aes(as.numeric(year), value, label = value))+
  geom_line(size = 1.5, alpha = 0.8)+
  geom_point(size = 5, alpha = 0.5)+
  ylim(0,70)+
  labs(x = "",
       y="")+
  theme_minimal()+
  theme(text = element_text(myfont),
        axis.text = element_text(size = 18),
        axis.text.x = element_text(angle = 45, vjust = 0.5, hjust=0.5))+
  theme(legend.position = "bottom",
        legend.text=element_text(size=16, color = "black"))+
  geom_text(hjust=0.2, vjust=-1.5, size = 5.5)+
  scale_color_manual(values=palette(rexcol),
                     labels = mynames)+
  scale_x_continuous(breaks = c(2000:2021))

警告信息 #

Warning messages:
1: Removed 1 row containing missing values (`geom_line()`). 
2: Removed 20 rows containing missing values (`geom_point()`). 
3: Removed 20 rows containing missing values (`geom_text()`). 

单独绘制v08的代码 #

v08 %>%
  ggplot(aes(as.numeric(year), v08, label = v08))+
  geom_line(size = 1.5, alpha = 0.8)+
  geom_point(size = 5, alpha = 0.5)

数据框df.long1（部分） #

df.long1
# A tibble: 40 × 3
   year  type  value
   <chr> <chr> <dbl>
 1 2001  v07      48
 2 2001  v08      83
 3 2002  v07      40
 4 2002  v08      79
 5 2003  v07      37
 6 2003  v08      79
 7 2004  v07      50
 8 2004  v08      80
 9 2005  v07      37
10 2005  v08      79

问题根源与解决方案 #

问题原因 #

1. 未分组绘制线条：长格式数据未指定group或color映射，ggplot将所有点视为同一组，导致连线逻辑混乱，无法正确绘制v07的线条。
2. y轴范围截断数据：ylim(0,70)把v08所有大于70的数值（数据中v08值均在79-83之间）强制转为缺失值，因此v08的点、线、文本全部被移除，对应警告中20行缺失值（v08共20条数据）。

修改后的代码 #

df.long1 %>%
  ggplot(aes(as.numeric(year), value, label = value, 
             color = type, group = type))+ # 新增分组与颜色映射
  geom_line(size = 1.5, alpha = 0.8)+
  geom_point(size = 5, alpha = 0.5)+
  expand_limits(y = c(0, 90))+ # 扩展y轴范围，完整显示v08数据
  labs(x = "",
       y="",
       color = "变量")+ # 可选：添加图例标题
  theme_minimal()+
  theme(text = element_text(myfont),
        axis.text = element_text(size = 18),
        axis.text.x = element_text(angle = 45, vjust = 0.5, hjust=0.5))+
  theme(legend.position = "bottom",
        legend.text=element_text(size=16, color = "black"))+
  geom_text(hjust=0.2, vjust=-1.5, size = 5.5)+
  scale_color_manual(values=palette(rexcol),
                     labels = mynames)+
  scale_x_continuous(breaks = c(2000:2021))

关键修改说明 #

• 添加分组映射：在aes中加入color = type和group = type，让ggplot按type列区分v07和v08，分别绘制线条与点，同时自动生成颜色区分的图例。
• 调整y轴范围：用expand_limits(y = c(0,90))替代ylim(0,70)，既能保留y轴下限0，又能扩展上限至90，完整显示v08的所有数据，消除缺失值警告。若坚持使用ylim，可将上限调整为85及以上，例如ylim(0,85)。

内容的提问来源于stack exchange，提问作者xnhZZZ