R ggplot2优化鸟类翅长DOY箱线图X轴刻度（每10天显示）

Got it, let's work through this step by step! First, let's fix the date conversion error—you can't use as.Date() directly on mm/dd strings because it needs a full year-month-day format. We'll add a dummy leap year (like 2020, to cover Feb 29) to turn those strings into valid dates, then hide the year in the plot labels. Then we'll tackle the crowded X-axis with scale_x_date() to set 10-day ticks.

完整修改后的代码 #

# 给Day of year添加虚拟闰年，转换为标准日期格式
BLACKBIRD$doy_date <- as.Date(paste("2020-", BLACKBIRD$`Day of year`, sep = ""), format = "%Y-%m/%d")

# 绘制箱线图
ggplot(BLACKBIRD, aes(x = doy_date, y = VIN, group = `Day of year`)) +
  geom_boxplot(fill = "white", color = "black", width = 0.8) +
  stat_summary(fun = mean, color = "red", geom = "point") +
  # 配置X轴：每10天一个刻度，标签显示为mm/dd格式
  scale_x_date(
    breaks = seq(as.Date("2020-01-01"), as.Date("2020-12-31"), by = "10 days"),
    labels = scales::date_format("%m/%d"),
    name = "DOY"
  ) +
  ggtitle("Blackbirds DOY") +
  ylab("Wing length (mm)") +
  theme_bw() +
  theme(
    axis.title = element_text(size = 9),
    axis.text = element_text(size = 7, angle = 0)
  )

关键细节说明 #

• 日期转换：We use paste("2020-", ...) to add a leap year to your mm/dd strings—2020 is a leap year, so it can handle Feb 29 if that appears in your data. The format = "%Y-%m/%d" tells as.Date() how to parse the new string.
• X轴刻度控制：
  • breaks = seq(...) generates a tick every 10 days from Jan 1 to Dec 31, 2020.
  • labels = scales::date_format("%m/%d") formats the ticks to show only mm/dd, hiding the dummy year so your plot looks like a single annual timeline (exactly what you need for combining multi-year data).
• 分组逻辑：We keep using the original Day of year column for grouping, so all records from the same mm/dd (across different years) are grouped into one boxplot.

If your data never has Feb 29, you could use a non-leap year like 2021 instead—but 2020 is safer to cover all possible dates.

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