手动将标签添加到日期缩放变量的轴上

Question

我想将第二个图中显示的标签添加到第一个图中，同时保留已经存在的日期标签。

做典型的

P1 + scale_x_continuous(breaks = c(startDate, endDate), labels= c("startDate", "endDate"))

不起作用。我可以转换 dat$x 但是我丢失了日期标签。

有什么我可以添加到P1 以获取附加标签（理想情况下无需更改创建 P1 的代码）

加分项：是否可以仅从与其他标签重叠的月份中剔除单个标签？

示例数据和代码：

library(ggplot2)

set.seed(1)
dat <- data.frame(date=1:200 + 15e3, value=rep(1:20, each=10) + (rnorm(200, 0, .5)))

startDate <-  dat$date[[30]]
endDate   <-  dat$date[[42]]

P1 <- ggplot(data=dat, aes(x=as.Date(date, origin="1970-01-01"), y=value)) + geom_line() +
        geom_vline(xintercept=c(startDate, endDate), color="blue") +
        xlab("Date")

P2 <- ggplot(data=dat, aes(x=date, y=value)) + geom_line(alpha=0) +
        geom_vline(xintercept=c(startDate, endDate), color="blue") +
        scale_x_continuous(breaks = c(startDate, endDate)
                         , labels= c("startDate", "endDate")) +
        theme(axis.text.x =element_text(angle=45) )

Answer 1

一种方法是手动设置所有中断和标签。为此，您需要知道日期值的范围，然后设置休息时间（我将它们设置为每月的第一天）。并且对于标签还手动添加名称（包括 startDate 和 endDate）。

ggplot(data=dat, aes(x=as.Date(date, origin="1970-01-01"), y=value)) + geom_line() +
  geom_vline(xintercept=c(startDate, endDate), color="blue") +
  scale_x_date("Date",
   breaks = c(seq(from=as.Date("2011-02-01"),to=as.Date("2011-08-01"),by="month"),
                      as.Date(c(startDate, endDate),origin="1970-01-01")),
   labels= c("Feb" ,"Mar" ,"Apr", "May", "Jun" ,"Jul" ,"Aug","startDate", "endDate")) +
  theme(axis.text.x =element_text(angle=45))

由于开始和结束日期接近Mar 标签，您可以将其设置为空白 ("")，但该日期的网格线将保持不变，breaks= 不会更改。

ggplot(data=dat, aes(x=as.Date(date, origin="1970-01-01"), y=value)) + geom_line() +
  geom_vline(xintercept=c(startDate, endDate), color="blue") +
  scale_x_date("Date",
   breaks = c(seq(from=as.Date("2011-02-01"),to=as.Date("2011-08-01"),by="month"),
                      as.Date(c(startDate, endDate),origin="1970-01-01")),
   labels= c("Feb" ,"" ,"Apr", "May", "Jun" ,"Jul" ,"Aug","startDate", "endDate")) +
  theme(axis.text.x =element_text(angle=45))