geom_vline 与字符 xintercept

我有一些 ggplot 代码在 0.8.9 中运行良好，但在 0.9.1 中不行。

我将把数据绘制在theDF并想在以下位置绘制一条垂直线xintercept="2010 Q1." theGrid仅用于创建theDF.

theGrid <- expand.grid(2009:2011, 1:4)
theDF <- data.frame(YrQtr=sprintf("%s Q%s", theGrid$Var1, theGrid$Var2), 
                    Minutes=c(1000, 2200, 1450, 1825, 1970, 1770, 1640, 1920, 1790, 1800, 1750, 1600))

使用的代码是：

g <- ggplot(theDF, aes(x=YrQtr, y=Minutes)) + 
         geom_point() + 
         opts(axis.text.x=theme_text(angle=90))

g + geom_vline(data=data.frame(Vert="2010 Q2"), aes(xintercept=Vert))

同样，这在带有 ggplot2 0.8.9 的 R 2.13.2 中工作得很好，但在带有 ggplot2 0.9.1 的 R 2.14+ 中却不起作用。

解决方法是：

g + geom_vline(data=data.frame(Vert=4), aes(xintercept=Vert))

但这对于我的问题来说并不是一个好的解决方案。

也许是在玩弄scale_x_discrete可能有帮助？

你可以试试这个：

g + geom_vline(aes(xintercept = which(levels(YrQtr) %in% '2010 Q1')))

这避免了为所选因子水平创建虚拟数据框的需要。 which() 命令返回与 vlines 关联的因子 level[s] 的索引（或索引，如果 %in% 运算符的右侧是向量）。

对此的一个警告是，如果某些类别没有出现在您的数据中并且您使用drop = TRUE在比例尺中，则线条将不会显示在正确的位置。