r - 为什么我的 geom_vline 对象没有出现在我的绘图中?
问题描述
我已经研究了许多其他人与相同问题相关的问题的解决方案,但到目前为止对我没有任何帮助。
我希望在“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))
我的图表:
解决方案
用您的示例重现了您的情节,并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")
推荐阅读
- multiple-columns - 如何将输出从 ls 转换为列或表?(最好是“无文件”)
- nginx - 如何在一个 IP 地址上托管具有不同域的多个站点?
- informatica - 如何使用 informatica 中不同文件中捕获的重复记录执行 UPSERT
- http - URL 和 HTTP 协议
- jquery - 带有 2 个问号的 SAPUI5 oData 请求
- c - c语言在main()内部初始化全局变量,在main()外部
- json - 有没有办法在容器定义 JSON 文档中包含 terraform-aws-provider-resource?
- jdbc - 无法使用 JDBC 连接字符串通过集成安全身份验证连接到 teradata
- java - 使用 CompletableFuture 退出主线程
- visual-studio-extensions - 获取当前编辑文件的项目