如何在ggplot折线图的X轴显示全部年份标签？

数据示例 #

Year Type n
2012 PTS 1
2012 POS 2
2013 POS 4
2013 PTS 6
2014 PTS 5
2014 PTS 6
2015 POS 3
2015 PTS 8
2016 POS 10
2016 PTS 11

问题场景 #

用以下代码绘制折线图时，X轴仅显示间隔5年的标签，无法展示全部年份：

df%>%
  ggplot()+
  geom_line(aes(x=Year, y= n, color= `Type`))

尝试添加scale_x_continuous时出现错误：Error in check_breaks_labels(breaks, labels) : object 'Year' not found，错误代码如下：

df%>%
  ggplot()+
  geom_line(aes(x=Year, y= n, color= `Type`))+
  scale_x_continuous("Year", labels = as.character(Year), breaks = Year)

错误原因 #

scale_x_continuous的breaks和labels参数无法直接引用数据框中的列名Year，需要明确指定数据来源或提取唯一的年份值。

解决方案 #

方案1：指定breaks为数据中的唯一年份 #

直接提取数据里的所有唯一年份作为breaks，同时转换为字符作为标签：

df%>%
  ggplot()+
  geom_line(aes(x=Year, y= n, color= `Type`))+
  scale_x_continuous("Year", 
                     breaks = unique(df$Year), 
                     labels = as.character(unique(df$Year)))

方案2：将Year转换为离散型（因子） #

如果年份是分类属性而非连续数值，把Year转为因子后，ggplot会自动显示所有年份标签：

df%>%
  mutate(Year = as.factor(Year))%>%
  ggplot()+
  geom_line(aes(x=Year, y= n, color= `Type`, group = `Type`))+
  xlab("Year")

注意：转换为因子后，需要在aes里添加group = Type，否则ggplot无法识别折线的分组逻辑，会出现错误。

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