如何在ggplot2年度折线图中显示X轴年份标签？

问题场景 #

使用ggplot2绘制年度数据折线图时，X轴无法正常显示年份标签，初始代码如下：

# 加载所需包
library(ggplot2)

# 创建数据
yearly_evolution_data <- structure(c(`2008` = 1L, `2011` = 4L, `2012` = 4L, `2013` = 20L,
                                     `2014` = 19L, `2015` = 30L, `2016` = 48L, `2017` = 97L,
                                     `2018` = 146L, `2019` = 176L, `2020` = 277L, `2021` = 314L,
                                     `2022` = 392L, `2023` = 353L), dim = 14L,
                                   dimnames = structure(list(c("2008", "2011", "2012", "2013", "2014",
                                                               "2015", "2016", "2017", "2018", "2019", "2020",
                                                               "2021", "2022", "2023")), names = ""), class = "table")

# 转换为数据框并添加年份列
yearly_evolution_df <- as.data.frame(yearly_evolution_data)
yearly_evolution_df$Year <- as.numeric(rownames(yearly_evolution_df))

# 绘制折线图
ggplot(yearly_evolution_df, aes(x = Year, y = Freq, label = Freq)) +
    geom_line(color = "blue", size = 1.5) +
    geom_point(color = "blue", size = 3) +
    geom_text(vjust = -1, size = 3) +  # 添加数值标签
    labs(title = "年度数据演化",
         x = "年份",
         y = "数量") +
    theme_minimal() +
    scale_x_continuous(breaks = yearly_evolution_df$Year, labels = rownames(yearly_evolution_df))

问题根源 #

1. 初始代码将X轴映射为数值型Year，配合scale_x_continuous时，标签与刻度的匹配逻辑易出现偏差；
2. 未指定group=1，导致geom_line无法正确连接离散的年份数据点（X轴为类别型数据时，必须显式指定分组才能绘制折线）。

修复后的代码 #

# 绘制年度演化折线图（修复X轴显示并优化样式）
ggplot(yearly_evolution_df, aes(x = Var1, y = Freq, label = Freq, group = 1)) +
    geom_line(color = "blue", size = 1.5) +
    geom_point(color = "blue", size = 3) +
    geom_text(aes(fontface = "bold"), vjust = -1, size = 5) +  # 加粗放大数值标签
    labs(title = "年度数据演化",
         x = "年份",
         y = "数量") +
    theme_minimal() +
    scale_x_discrete(labels = yearly_evolution_df$Var1) +  # 使用离散型X轴，直接匹配年份标签
    theme(axis.text.x = element_text(angle = 45, hjust = 1),  # 旋转X轴标签避免重叠
          axis.text.y = element_text(size = 12, face = "bold"),  # 调整Y轴标签样式
          axis.title.y = element_text(size = 14, face = "bold"))  # 调整Y轴标题样式

核心修复点 #

• X轴映射调整：改用原始数据框中的Var1列（从table转换后自动生成的年份字符列）作为X轴，并添加group=1确保折线正确连接所有点；
• 刻度标签修正：使用scale_x_discrete替代scale_x_continuous，直接调用Var1中的年份字符作为标签，确保X轴年份正常显示；
• 可读性优化：将X轴标签旋转45度避免重叠，同时调整Y轴标签和标题的字号与加粗样式，提升图表美观度。

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