为啥我的 geom_vline 对象没有出现在我的绘图中？

Posted 2023-02-16

【中文标题】为啥我的 geom_vline 对象没有出现在我的绘图中？

【英文标题】：Why doesn't my geom_vline object show up on my plot?为什么我的 geom_vline 对象没有出现在我的绘图中？

【发布时间】：2019-01-04 12:53:39

【问题描述】：

我已经查看了许多其他人与相同问题相关的问题的解决方案，但到目前为止没有任何对我有用。

我希望在“2018-07-23”上出现一条垂直线，并且此代码是我得到的最接近的代码（因为它不会产生错误）：

ggplot(grouped) +
  geom_line(aes(x = date, y = sitewide_opens, group = 1),
            linetype = "dashed",
            colour = "forestgreen",
            alpha = 0.5) +
  geom_line(aes(x = date, y = homepage_opens, group = 1),
            colour = "blue") +
  geom_vline(aes(xintercept = as.Date(grouped$date[8])),
             linetype = 4, colour = "black")

grouped$date 的格式是字符，所以我把它转换成日期。请注意，我也得到与 as.POSIXct 相同的（非）结果。

我哪里出错了？

我的数据框：

grouped <- structure(list(date = c("2018-07-16", "2018-07-17", "2018-07-18", 
"2018-07-19", "2018-07-20", "2018-07-21", "2018-07-22", "2018-07-23", 
"2018-07-24", "2018-07-25", "2018-07-26", "2018-07-27", "2018-07-28", 
"2018-07-29", "2018-07-30", "2018-07-31"), homepage_opens = c(5L, 
0L, 0L, 3L, 1L, 2L, 0L, 1L, 0L, 2L, 5L, 0L, 0L, 0L, 0L, 0L), 
    sitewide_opens = c(39L, 34L, 19L, 62L, 46L, 44L, 16L, 51L, 
    25L, 66L, 75L, 0L, 0L, 0L, 0L, 0L), chats_started = c(10L, 
    16L, 9L, 8L, 13L, 13L, 5L, 13L, 4L, 8L, 11L, 0L, 0L, 0L, 
    0L, 0L), chats_completed = c(7L, 13L, 8L, 4L, 5L, 9L, 6L, 
    13L, 2L, 7L, 5L, 0L, 0L, 0L, 0L, 0L)), class = c("tbl_df", 
"tbl", "data.frame"), row.names = c(NA, -16L))

我的图表：

【参考方案1】：

用你的例子重现了你的情节，并在所有情况下都将grouped$date as.Date 投射到了所有情况下，它工作正常：

ggplot(grouped) +
  geom_line(aes(x = as.Date(grouped$date), y = sitewide_opens, group = 1),
        linetype = "dashed",
        colour = "forestgreen",
        alpha = 0.5) +
        geom_line(aes(x =  as.Date(grouped$date), y = homepage_opens, group = 1),
        colour = "blue") +
       geom_vline(aes(xintercept = as.Date(grouped$date[8])),
         linetype = 4, colour = "black")

剧情出来了： https://i.imgur.com/Km8UvaX.jpg

【讨论】：

您不应该在aes() 中使用$。在这种情况下，您可以只使用aes(x=as.Date(date))。

【参考方案2】：

把xintercept = as.Date(grouped$date[8])改成xintercept = 8怎么样

ggplot(grouped) +
  geom_line(aes(x = date, y = sitewide_opens, group = 1),
            linetype = "dashed",
            colour = "forestgreen",
            alpha = 0.5) +
  geom_line(aes(x = date, y = homepage_opens, group = 1),
            colour = "blue") +
  geom_vline(aes(xintercept = 8),
             linetype = 4, colour = "black")

【讨论】：

我知道结果会很简单！