R 在ggplot2中用年份注释第一个月

假设我有这样一个情节：

DF <- data.frame(date=Sys.Date() - (-100):100, y=rnorm(201))
library("ggplot2")
library(scales)
ggplot(DF, aes(x=date, y=y)) +
 geom_point() +
 scale_x_date(breaks = "1 month", minor_breaks = "1 week", labels=date_format("%b"))

---

DF您可以使用自定义日期格式化程序删除重复的年份：

my_date_format <- function()
{
   function(x)
   {
       m <- format(x,"%b")
       y <- format(x,"%Y")
       ifelse(duplicated(y),m,paste(m,y))
   }
}

ggplot(DF, aes(x=date, y=y)) +
 geom_point() +
 scale_x_date(breaks = "1 month", minor_breaks = "1 week", labels=my_date_format())

my_date_格式不错！如果将函数更改为return
ifelse（复制（y），m，粘贴（m，y））
则可以避免月末名称的额外空格（这会导致它们在刻度线下不完全居中）。