R 为什么';我的几何图形对象不会出现在我的绘图上吗?
我已经研究了许多解决其他人与同样问题有关的问题的方法,但迄今为止没有任何方法对我有效 我想在“2018-07-23”上显示一条垂直线,该代码是我得到的最接近的代码(因为它不会产生错误):R 为什么';我的几何图形对象不会出现在我的绘图上吗?,r,ggplot2,geom-vline,R,Ggplot2,Geom Vline,我已经研究了许多解决其他人与同样问题有关的问题的方法,但迄今为止没有任何方法对我有效 我想在“2018-07-23”上显示一条垂直线,该代码是我得到的最接近的代码(因为它不会产生错误): grouped$date的格式是character,这就是我将其转换为date的原因。请注意,与.POSIXct也得到了相同的(非)结果 我哪里做错了 我的数据帧: grouped <- structure(list(date = c("2018-07-16", "2018-07-17", "2018-0
grouped$date
的格式是character,这就是我将其转换为date的原因。请注意,与.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))
grouped如何将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")
用您的示例再现了您的绘图,并在所有情况下将分组的$date
铸造为.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")
情节是这样的:
我就知道结果会很简单!您不应该在aes()
的内部使用$
。在这种情况下,您可以使用aes(x=as.Date(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")