如何减少ggplot2图表X轴标签数量，仅显示每10年标签

你的核心问题是当前Year列是字符类型，ggplot将其视为离散变量，因此会显示所有年份的标签。要实现仅显示每10年的标签，只需将Year转换为数值/日期型变量，再自定义X轴刻度即可，具体修改如下：

方法1：将Year转为数值型（推荐） #

步骤1：转换Year列类型 #

在绘图前，把字符型的Year转成数值：

meltdf$Year <- as.numeric(meltdf$Year)

步骤2：自定义X轴刻度 #

修改ggplot代码，添加scale_x_continuous来指定10年间隔的刻度：

meltdf %>% 
  ggplot(aes(x = Year, y = value, colour = variable, group = variable)) + 
  geom_line() + 
  facet_grid(Sex~Dicipline) + 
  labs(x="Jahr", y="Anzahl Teilnahmen") +
  # 设置每10年显示一个标签，可根据你的数据范围调整起止年份
  scale_x_continuous(breaks = seq(1960, 2024, by = 10),
                     labels = as.character(seq(1960, 2024, by = 10)))

方法2：将Year转为日期型 #

如果需要更灵活的日期刻度控制，可以把Year转成日期格式（比如每年的1月1日）：

# 生成日期型年份列
meltdf$Year_date <- as.Date(paste0(meltdf$Year, "-01-01"))

# 绘图并设置日期刻度
meltdf %>% 
  ggplot(aes(x = Year_date, y = value, colour = variable, group = variable)) + 
  geom_line() + 
  facet_grid(Sex~Dicipline) + 
  labs(x="Jahr", y="Anzahl Teilnahmen") +
  scale_x_date(breaks = scales::breaks_width("10 years"),
               labels = scales::label_date("%Y"))

这两种方法都能解决X轴标签拥挤的问题，你可以根据自己的需求选择。

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