如何在ggplot2中每5年显示一次X轴日期标签？

错误原因分析 #

报错Error: Invalid input: date_trans works with objects of class Date only主要有两个核心原因：

• 日期转换不彻底：可能存在转换失败的NA值，或是部分数据仍未转为标准Date类型
• 刻度类型误用：你用了针对离散变量的scale_x_discrete()处理日期，但日期属于连续型变量，必须用scale_x_date()

具体解决步骤 #

1. 稳健转换日期类型 #

推荐用lubridate包的ymd()函数，比基础as.Date()容错性更强，先安装加载包：

install.packages("lubridate")
library(lubridate)

然后转换两个数据集的日期（last_values也要转，因为绘图时用到了这个数据集）：

filtered_data$TIME_PERIOD <- ymd(filtered_data$TIME_PERIOD)
last_values$TIME_PERIOD <- ymd(last_values$TIME_PERIOD)

检查转换是否成功，确认无NA值：

sum(is.na(filtered_data$TIME_PERIOD))
sum(is.na(last_values$TIME_PERIOD))

如果有NA，排查原始数据的日期格式是否统一为%Y-%m-%d，有没有缺失或格式错误的条目。

2. 修改X轴刻度设置 #

把scale_x_discrete()替换为scale_x_date()，并指定只显示2010、2015、2020三个年份的标签：

scale_x_date(
  breaks = ymd(c("2010-01-01", "2015-01-01", "2020-01-01")),
  date_labels = "%Y", # 仅显示年份数字
  expand = expansion(add = c(0, 10))
)

3. 完整修改后的代码 #

library(tidyverse)
library(lubridate)
library(scales)

# 先处理日期转换
filtered_data$TIME_PERIOD <- ymd(filtered_data$TIME_PERIOD)
last_values$TIME_PERIOD <- ymd(last_values$TIME_PERIOD)

# 绘图代码
filtered_data |>
  filter(geo != "AT" & geo != "HU" & geo != "ES") |>
  ggplot(aes(x = TIME_PERIOD, y = OBS_VALUE, group = geo, color = geo))+
  geom_line()+
  geom_line(data = filter(filtered_data, geo %in% c("AT", "HU", "ES")), linewidth = 1.2)+
  scale_color_manual(values = c("AT" = "darkgoldenrod", "HU" = "darkred", "ES" = "darkgreen"))+
  geom_text(data = last_values |> filter(geo %in% c("AT", "HU", "ES")), 
            aes(label = paste(OBS_VALUE, "%", sep = "")), 
            hjust = 0, vjust = -0.5)+
  guides(color = "none")+
  scale_x_date(
    breaks = ymd(c("2010-01-01", "2015-01-01", "2020-01-01")),
    date_labels = "%Y",
    expand = expansion(add = c(0, 10))
  )+
  scale_y_continuous(labels = label_percent(scale = 1))+
  labs(x = "", y = "", 
       title = "Inflation in the European Union", 
       subtitle = "Annual change in the Harmonized Consumer Prices Index 2010-2022", 
       caption = "Source: Eurostat. Figure: Darius Markovskij")+
  theme_minimal()+
  theme(panel.grid.minor = element_blank())

额外说明 #

• 简化了geom_text里的ifelse判断，因为已经提前过滤了目标geo的行，无需重复判断
• 如果你的数据是月度/季度频率，breaks选对应年份的首个日期即可，不影响年份标签的显示

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