r - 将垂直线添加到ggplot条形图

Question

我正在尝试向显示每月计数数据的 ggplot 添加垂直线。我的 x 轴是月份作为一个因素，但我的垂直线代表儒略日。

例如，使用这些数据:

dat <- structure(list(Month = structure(1:12, .Label = c("Jan", "Feb", 
"Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", 
"Dec"), class = c("ordered", "factor")), Data = c(1, 1, 2, 2, 
6, 11, 19, 23, 19, 13, 5, 1)), .Names = c("Month", "Data"), class = "data.frame", row.names = c(NA, 
-12L))

我可以制作下面的条形图

ggplot(dat)+ geom_bar(aes(x=  Month, y = Data), stat="identity")

然后如何使用 geom_vline 添加两条垂直线，其中 x 截距为儒略日 68 和 252？

我不确定如何绘制引用每月(因子)x 轴数据的连续刻度的线条。

Answer 1

当您的x 轴是一个factor 时，geom_vline 将使用每个值的出现顺序作为其截距。

然后您只需确定哪个分数对应于您要查找的确切日期。在此示例中，我使用了两个说明性分数。

ggplot(dat)+ geom_bar(aes(x=  Month, y = Data), stat="identity") + 
geom_vline(xintercept = 5.2) +
  geom_vline(xintercept = 8.7)