为何ggplot2绘制出空白折线图？如何解决及优化轴标签？

一、空白图的常见原因及修复方法 #

1. 数据格式不匹配（宽格式 vs 长格式） #

ggplot2的geom_line更适配长格式数据，而你的数据是宽格式（一列时间、两列数值）。直接用宽格式绘图时，若未正确映射分组，会导致折线无法生成。

修复方法：用tidyr::pivot_longer将宽格式转成长格式：

library(tidyr)
# 转换为长格式：把false、true列合并为category列，对应值存入value列
prop_data_tot_long <- pivot_longer(prop_data_tot, 
                                   cols = c(false, true), 
                                   names_to = "category", 
                                   values_to = "value")

之后用长格式数据绘图：

library(ggplot2)
ggplot(prop_data_tot_long, aes(x = year_period, y = value, color = category)) +
  geom_line()

2. 时间列未识别为时间类型 #

如果year_period是字符型（比如"2020Q1"），ggplot无法正确识别时间顺序，折线会因x轴排序混乱无法正常显示。

修复方法：将字符型时间转为专用时间格式，推荐用zoo包的as.yearqtr处理季度时间：

library(zoo)
# 转换为季度时间格式，format参数匹配你的时间字符串格式
prop_data_tot$year_period <- as.yearqtr(prop_data_tot$year_period, format = "%YQ%q")

转换后x轴会按时间顺序排列，折线自然连接。

3. 数据存在大量缺失值或异常值 #

如果false/true列全为NA，或者数值范围超出绘图窗口，也会出现空白图。

修复方法：先检查数据完整性：

# 查看缺失值数量
sum(is.na(prop_data_tot$false))
sum(is.na(prop_data_tot$true))

若存在大量缺失值，可通过na.omit(prop_data_tot)删除含缺失值的行，或用tidyr::fill填充缺失值。

4. 图层分组映射错误 #

若坚持用宽格式绘图，需手动指定group参数，否则ggplot会把每个x轴元素当成独立分组，无法连成线：

ggplot(prop_data_tot, aes(x = year_period)) +
  geom_line(aes(y = false, color = "false"), group = 1) +
  geom_line(aes(y = true, color = "true"), group = 1)

二、优化横轴标签排列的方法 #

1. 旋转标签避免重叠 #

通过theme调整x轴标签的角度和对齐方式：

ggplot(...) +
  # 其他图层...
  theme(axis.text.x = element_text(angle = 45, hjust = 1, vjust = 1))

angle设置旋转角度，hjust和vjust调整标签对齐位置，避免遮挡。

2. 减少标签显示数量 #

如果时间点太多，可手动指定要显示的标签间隔。比如用zoo的scale_x_yearqtr设置每2个季度显示一个标签：

ggplot(...) +
  scale_x_yearqtr(
    format = "%YQ%q",
    breaks = seq(min(prop_data_tot$year_period), 
                 max(prop_data_tot$year_period), 
                 by = "2 quarters")
  )

如果是字符型时间，可筛选间隔行作为标签：

# 每2行取一个标签
breaks <- prop_data_tot$year_period[seq(1, nrow(prop_data_tot), by = 2)]
ggplot(...) +
  scale_x_discrete(breaks = breaks)

3. 简化标签文本长度 #

把长标签缩短，比如将"2020Q1"改为"20Q1"：

prop_data_tot$year_short <- gsub("^20", "", prop_data_tot$year_period)
# 用缩短后的标签作为x轴
ggplot(prop_data_tot_long, aes(x = year_short, y = value, color = category)) +
  geom_line()

完整示例代码 #

# 加载所需包
library(ggplot2)
library(tidyr)
library(zoo)

# 数据预处理
prop_data_tot_long <- pivot_longer(prop_data_tot, 
                                   cols = c(false, true), 
                                   names_to = "category", 
                                   values_to = "value")
prop_data_tot_long$year_period <- as.yearqtr(prop_data_tot_long$year_period, format = "%YQ%q")

# 绘制优化后的折线图
ggplot(prop_data_tot_long, aes(x = year_period, y = value, color = category)) +
  geom_line(linewidth = 1) +
  labs(x = "季度", y = "数值", color = "类别") +
  scale_x_yearqtr(format = "%YQ%q", 
                  breaks = seq(min(prop_data_tot_long$year_period), 
                               max(prop_data_tot_long$year_period), 
                               by = "1 quarter")) +
  theme(axis.text.x = element_text(angle = 30, hjust = 1, vjust = 1),
        plot.title = element_text(hjust = 0.5)) +
  ggtitle("True/False值随季度变化趋势")

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