如何在ggplot2的10000天时间序列图表中强制每年显示X轴标签？

没问题，要实现这个需求很简单，只需要在你的ggplot代码里添加scale_x_date()函数，指定每年的刻度间隔和标签格式就可以了。我给你整理好修改后的完整代码和关键说明：

library(ggplot2)
library(tidyr)
library(lubridate) # 处理日期需用到该包，你的原代码已隐含依赖

exdays <- 1:10000
exdata <- sin(exdays)
exdate <- as_date("2022-01-01") + days(exdays)
exdat <- tibble(exdate, exdata)

p1 <- ggplot(exdat, aes(x=exdate, y=exdata)) + 
  geom_line(color="darkred", size=0.7) + 
  ggtitle("example") +
  scale_x_date(
    date_breaks = "1 year", # 强制设置X轴刻度间隔为1年
    date_labels = "%Y"     # 标签仅显示4位年份，可按需调整格式
  ) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) # 可选：旋转标签避免重叠
p1

关键参数说明： #

• date_breaks = "1 year"：明确告诉ggplot X轴的日期刻度间隔为1年，直接实现每年一个标签的要求。
• date_labels = "%Y"：自定义标签的显示格式，%Y代表4位完整年份；如果需要更详细的日期（比如年月），可以改成"%Y-%m"。
• theme(axis.text.x = element_text(angle = 45, hjust = 1))：由于10000天跨度约27年，X轴标签数量较多，旋转45度并右对齐能有效避免标签重叠，提升图表可读性。

这样修改后，你的图表X轴就会严格每年显示一个标签啦！

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