使用ggplot2绘制数据框列时生成空图的问题求助

问题重现 #

你有如下数据框prop_data：

structure(list(Month = structure(1:10, levels = c("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"), class = "factor"), `Count false` = c(3211L, 2293L, 2051L, 1689L, 1203L, 580L, 638L, 394L, 227L, 108L), False = c(0.946918313181952, 0.965880370682393, 0.948220064724919, 0.964041095890411, 0.961630695443645, 0.952380952380952, 0.987616099071207, 0.985, 0.934156378600823, 0.931034482758621), `Count true` = c(180L, 81L, 112L, 63L, 48L, 29L, 8L, 6L, 16L, 8L), True = c(0.0530816868180478, 0.0341196293176074, 0.0517799352750809, 0.035958904109589, 0.0383693045563549, 0.0476190476190476, 0.0123839009287926, 0.015, 0.065843621399177, 0.0689655172413793)), class = "data.frame", row.names = c(NA, -10L))

使用以下代码绘制折线图时生成空图：

library(ggplot2)

ggplot(prop_data, aes(x = Month)) +
  geom_line(aes(y = `False`, color = "False"), size = 1.2) +
  geom_line(aes(y = `True`, color = "True"), size = 1.2) +
  labs(title = "Trend", x = "Month", y = "Proportions") +
  scale_color_manual(values = c("False" = "blue", "True" = "red")) +
  theme_minimal()

问题原因 #

空图的核心原因是：Month是因子类型，geom_line默认需要明确的分组信息来连接离散x轴上的点。另外，当前数据是宽格式（False和True作为单独列），不符合ggplot2推荐的长格式（tidy data）规范，容易引发这类问题。

解决方案 #

方案1：在现有代码中添加分组参数 #

给每个geom_line的aes里加上group参数，明确告诉ggplot要按哪个分组连接点：

library(ggplot2)

ggplot(prop_data, aes(x = Month)) +
  geom_line(aes(y = `False`, color = "False", group = 1), size = 1.2) +
  geom_line(aes(y = `True`, color = "True", group = 1), size = 1.2) +
  labs(title = "Trend", x = "Month", y = "Proportions") +
  scale_color_manual(values = c("False" = "blue", "True" = "red")) +
  theme_minimal()

方案2：转为长格式数据（推荐） #

使用tidyr包的pivot_longer函数把宽格式转成长格式，这样代码更简洁，也更符合ggplot2的设计逻辑：

library(ggplot2)
library(tidyr)

# 转成长格式数据
prop_data_long <- pivot_longer(prop_data, 
                               cols = c(False, True), 
                               names_to = "Category", 
                               values_to = "Proportion")

# 绘制折线图
ggplot(prop_data_long, aes(x = Month, y = Proportion, color = Category, group = Category)) +
  geom_line(size = 1.2) +
  labs(title = "Trend", x = "Month", y = "Proportions") +
  scale_color_manual(values = c("False" = "blue", "True" = "red")) +
  theme_minimal()

两种方案都能正常生成折线图，方案2的代码更易维护，后续如果要添加更多类别也更方便。

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