如何仅在日期轴上必要时显示年份答案

【问题标题】：How to show year only where necessary on date axis如何仅在日期轴上必要时显示年份
【发布时间】：2021-07-30 21:39:00
【问题描述】：

我正在用 R 编写代码，它使用 ggplot2 根据来自多个训练的测试数据生成多个条形图，跨越（目前）大约一年，如下所示：

目前所有日期的格式为“mon DD YYYY”（"%b %d %Y" 为日期格式）：

c("Oct 05 2020", "Nov 02 2020", "Nov 30 2020", "Jan 11 2021", "Feb 22 2021",
"Mar 08 2021", "Mar 29 2021", "Apr 12 2021", "May 03 2021", "May 17 2021")

但我只想在第一个日期显示年份，以及作为一年中第一个日期的任何后续日期：

c("Oct 05 2020", "Nov 02", "Nov 30", "Jan 11 2021", "Feb 22", "Mar 08", "Mar 29",
"Apr 12", "May 03", "May 17")

有没有办法做到这一点，或者通过对日期列的某种过滤或 ggplot 中的某些东西？

【问题讨论】：

您可以将以下解决方案包装为一个函数并在使用scale_x_date 等时应用它。由于您没有显示可重现的示例来绘制，我无法估计它

标签： r ggplot2

【解决方案1】：

我们可以将日期向量转换为Date类（'v1'），提取'Year'组件，使用duplicated创建一个逻辑向量，使用该索引（'i1'）替换其中的值来自“v2”的带有formatted Dates 的原始向量

v2 <- as.Date(v1, '%b %d %Y')
i1 <- duplicated(format(v2, '%Y'))
v1[i1] <- format(v2[i1], '%b %d')

-输出

v1
 [1] "Oct 05 2020" "Nov 02"      "Nov 30"    
 [4] "Jan 11 2021" "Feb 22"      "Mar 08"      "Mar 29"   
 [8]   "Apr 12"      "May 03"      "May 17"

数据

v1 <- c("Oct 05 2020", "Nov 02 2020", "Nov 30 2020", "Jan 11 2021", "Feb 22 2021",
"Mar 08 2021", "Mar 29 2021", "Apr 12 2021", "May 03 2021", "May 17 2021")

【讨论】：