在ggplot中接受“Date”类的水平和垂直线有问题吗？

Question

我正在尝试根据用户Didzis Elferts提供的慷慨代码在ggplot中制作甘特图。我正在尝试添加显示今天日期的垂直线，但geom_vline包中的ggplot2图层只返回Error: Discrete value supplied to continuous scale。这是我的代码：

    today <- as.Date(Sys.Date(), "%m/%d/%Y")
    library(scales)
    ggplot(mdfr, aes(time,name, colour = is.critical)) + 
      geom_line(size = 6) +
      xlab("") + ylab("")+
      labs(title="Sample Project Progress")+
      theme_bw()+
      scale_x_datetime(breaks=date_breaks("1 year"))+
      geom_vline(aes(xintercept=today))

没有geom_vline命令的情节看起来像这个：

geom_vline对“日期”字符不起作用的原因是什么？

编辑：用于生成情节的可重复代码：

    ### GANTT CHART 1 ###############3
    tasks <- c("Meetings", "Client Calls", "Design", "Bidding", "Construction")
    dfr <- data.frame(
      name        = factor(tasks, levels = tasks),
      start.date  = c("07/08/2013", "07/08/2013", "07/23/2013", "08/30/2013", "9/30/2013"),
      end.date    = c("07/12/2013", "07/13/2013", "08/15/2013", "09/12/2013", "12/01/2013"),
      is.critical = c(TRUE, FALSE, TRUE, TRUE, TRUE))

    mdfr <- melt(dfr, measure.vars = c("start.date", "end.date"))
    mdfr$time <- as.POSIXct(strptime(mdfr$value,"%m/%d/%Y"))

Answer 1

有两个人认为您需要更改代码。

首先，至于time中的mdfr列，您使用as.POSIXct()，today也应该这样做 - 两个变量应该具有相同的格式。

today <- as.POSIXct(Sys.Date(), "%m/%d/%Y")

其次，在as.numeric()周围的geom_vline()内使用today。

  + geom_vline(aes(xintercept=as.numeric(today)))