結合使用geom_vline和facet_wrap

Question

我使用以下代碼在其中繪制了帶有刻面的線圖：

vLines <- data.frame('Date'=as.Date('2014/1/1'))

p <- ggplot(toPlot[1:296,], aes( Date, value)) + theme_bw() +ylab('Transactions') + xlab('') +
  scale_x_date(breaks=x_breaks, labels=x_labels)
p <- p + geom_line(aes(colour = variable, fill= variable),size=1.5) +
  theme(axis.text.y=element_text(hjust=0, angle=0), 
        axis.text.x = element_text(hjust=1, angle=45),
        panel.grid.minor.x = element_blank(),
        panel.grid.minor.y = element_blank(),
        panel.grid.major.x=element_line(color='grey90',linetype='dashed'),
        panel.grid.major.y=element_line(color='grey90',linetype='dashed'),
        plot.title=element_text(size=20),
        axis.text=element_text(size=10),
        legend.text=element_blank(),
        legend.key=element_blank(),
        legend.title=element_blank(),
        legend.position="none") +
  scale_y_continuous(label=thousand_formatter) +
  ggtitle('Title')+
  scale_fill_manual(values=c("#a6cee3","#1f78b4","#b2df8a","#33a02c","#fb9a99","#e31a1c","#fdbf6f","#ff7f00","#cab2d6")) +
  facet_wrap(~OrderType,nrow=3,scales="free") +
  geom_vline(data=vLines,aes(xintercept=Date))
p

請注意，我試圖在每個構面上僅繪制一條垂直線，我想在每個構面上繪制多條垂直線。

dput(head(toPlot))的輸出是：

structure(list(Date = structure(c(14853, 14914, 15034, 15187, 
15309, 15340), class = "Date"), OrderType = structure(c(1L, 1L, 
1L, 1L, 1L, 1L), .Label = c("Delivery", "eFiling", "Filing", 
"ProcessServing", "Research"), class = "factor"), variable = structure(c(1L, 
1L, 1L, 1L, 1L, 1L), .Label = c("Orders", "Revenue"), class = "factor"), 
    value = c(1, 1, 1, 1, 18, 37)), .Names = c("Date", "OrderType", 
"variable", "value"), row.names = c(NA, 6L), class = "data.frame")

當我嘗試執行上述代碼時，出現以下錯誤：

Error: Discrete value supplied to continuous scale

解決此問題的任何指針將不勝感激。

Answer 1

將geom_vline位更改為：

geom_vline(xintercept=as.numeric(vLines$Date))