R语言ggplot如何用月-日格式日期替代年内积日设置绘图轴刻度

核心解决逻辑 #

原有的年内积日（Julian day）计算逻辑完全正确，不需要强行转换无年份的字符型月日做计算/绘图，从根源规避两个核心问题：

• 积日是数值类型，天然支持大小比较，分组求最早、最晚日期的结果不会出错
• 仅需要在最后绘图时，将积日数值坐标轴的刻度标签替换为对应月-日格式即可，不需要把字符型月日作为轴坐标值，不会出现刻度错乱
  注意：转换积日到月日时统一使用同一个闰年（如2020年）作为基准，避免平/闰年2月积日偏差导致标签错位

完整可运行代码 #

library(dplyr)
library(ggplot2)

# 读入原始数据
data.1 <-read.csv(text = "
trt,full_date
A,10/06/2020
A,09/19/2017
A,10/28/2014
A,09/02/2016
A,09/19/2017
A,09/26/2017
B,08/24/2020
B,09/24/2020
B,10/16/2018
B,09/16/2018
B,09/15/2016
B,09/09/2018
")

# 计算分组最早、最晚积日（和原有逻辑一致，保证极值计算正确）
data.2 <- data.1 %>%
  mutate(full_date = as.Date(full_date, format("%m/%d/%Y")),
         full_date.doy = as.numeric(strftime(full_date, format = "%j"))) %>%
  group_by(trt) %>%
  summarise(earliest.doy = min(full_date.doy),
            latest.doy = max(full_date.doy))

# 生成坐标轴刻度：取每个月1号对应的积日为断点，标签格式化为月-日（如Sep-01）
# 统一用2020（闰年）做基准，避免2月日期偏差
base_year <- 2020
month_breaks <- seq.Date(from = as.Date(paste0(base_year, "-01-01")), 
                         to = as.Date(paste0(base_year, "-12-31")), 
                         by = "month")
break_doys <- as.numeric(strftime(month_breaks, format = "%j"))
break_labels <- strftime(month_breaks, format = "%b-%d")

# 绘图
ggplot(data.2) +
  geom_segment(aes(x=trt, xend=trt, y=earliest.doy, yend=latest.doy), color="grey", linewidth=2) +
  geom_point(aes(x=trt, y=earliest.doy), color=rgb(0.2,0.7,0.1,0.5), size=3 ) +
  geom_point(aes(x=trt, y=latest.doy), color=rgb(0.7,0.2,0.1,0.5), size=3 ) +
  coord_flip() +
  # 自定义y轴刻度，替换积日为月-日标签
  scale_y_continuous(breaks = break_doys, labels = break_labels, 
                     name = "Date (month-day)") +
  theme_bw()

补充说明 #

如果日期区间存在跨1月1日的情况（比如某组最早日期是12月20日，最晚是1月10日），可以给积日加偏移量（比如把1月的积日加366）调整排序逻辑，再对应修改刻度标签即可，当前示例数据为8-10月的日期，不需要额外调整。

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