R语言ggplot(geom_col)设置x轴每个分箱显示对应年份刻度标签

背景 #

此问题可能存在重复，但我查阅了多篇帖子都未找到符合需求的解决方案。我使用geom_col绘制了一张ggplot图表：
【图表预览：按年份统计的ratio柱形图，共11根柱子对应2009-2018年及NA年份】
该图表基于如下结构的df生成：
【数据结构预览：数据集包含year、ratio两列，year为年份数值，ratio为对应年份的统计值】
绘图代码如下：

ggplot(data = avg_repeats_per_year, aes(x = year, y = ratio)) +
  geom_col()

数据中ratio的每个值对应2009到2018年的每一年（还包含1个NA年份）。

问题描述 #

图表中每根柱子对应year列的一个年份，但x轴仅显示了3个年份的标签，我需要如何设置才能让每根柱子下方都显示对应年份的标签？

已尝试的方案 #

我已经尝试过如下写法，但没有生效：

ggplot(data = avg_repeats_per_year, aes(x = year, y = ratio)) +
  geom_col() + 
  scale_x_discrete(breaks = avg_repeats_per_year$year, labels = avg_repeats_per_year$year)

请问该问题应如何解决？

解决方案 #

scale_x_discrete不生效的核心原因是year列属于数值型变量，ggplot默认会将其识别为连续型x轴，离散轴的配置自然不会生效。你可以任选以下两种方案解决：

1. 将年份转为离散因子
   直接在映射时将x转为因子类型，ggplot会自动识别为离散轴，默认展示所有分类的标签：

ggplot(data = avg_repeats_per_year, aes(x = as.factor(year), y = ratio)) +
  geom_col()

如果需要调整因子顺序或者处理NA的展示，可以提前对avg_repeats_per_year$year做因子化处理再绘图。
2. 对连续型x轴自定义刻度
如果不想修改数据类型，直接用连续轴对应的配置函数scale_x_continuous指定所有刻度即可：

ggplot(data = avg_repeats_per_year, aes(x = year, y = ratio)) +
  geom_col() + 
  scale_x_continuous(breaks = avg_repeats_per_year$year)

如果后续出现x轴标签拥挤重叠的情况，可以添加主题配置旋转标签：

+ theme(axis.text.x = element_text(angle = 45, hjust = 1))

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