r - Date-sclaed 変数の軸にラベルを手動で追加する

Question

最初のプロットに、2 番目のプロットに表示されているラベルを追加したいのですが、既に存在する Date ラベルを保持します。

典型的なことをする

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) )