为timeseries数据中的不同日期添加多个vline
我正在尝试绘制一个包含多个时间序列数据的折线图，其中每条线都显示了特定对象在同一开始日期和结束日期内一段时间内的销售趋势。我的数据集已经是一种“融化”的形式，看起来像这样：
'data.frame': 468 obs. of 3 variables:
$ date : Date, format: "2019-04-11" "2019-04-12" "2019-04-13" ...
$ Object : chr "Object1" "Object2" "Object3" "Object 4" ...
$ daily_sales: int 1 257 178 177 255 240 231 214 193 174 ...我有一组需要竖线的日期，它们存储在日期数组imp.dates中
当我尝试绘制单个vline时，它工作正常(使用以下代码)：
ggplot(df, aes(x=date,
y=daily_sales,
colour=Object,
group=Object)) +
geom_line() +
geom_vline(aes(xintercept=imp.dates[1]),
linetype=4,
colour="black")但是，当我尝试执行多个vlines时
ggplot(df, aes(x=date,
y=daily_sales,
colour=Object,
group=Object)) +
geom_line() +
geom_vline(aes(xintercept=imp.dates),
linetype=4,
colour="black")我得到以下错误：
Error: Aesthetics must be either length 1 or the same as the data (40): xintercept下面这些帖子我都没看过: 1. Multiple vlines in plot gives error, ggplot2 2. ggplot2: how to add text to multiple vertical lines (geom_vlines) on a time x-axis? 3. How to get a vertical geom_vline to an x-axis of class date?
3非常接近，但是我的x变量是Date类，而不是int类，所以似乎不能让它工作。
任何帮助都将不胜感激。
回答 1
Stack Overflow用户
发布于 2019-05-24 16:56:49
您需要将imp.dates放入数据框中，并更改geom_vline()图层的数据。
以下是一些示例数据：
set.seed(2867)
df <- expand.grid(date = seq(as.Date("2019-01-01"), as.Date("2019-12-31"), by = 1L),
object = paste0("object", 1:4))
df <- transform(df, daily_sales = rpois(nrow(df), lambda = 100))
set.seed(1)
imp <- data.frame(date = sample(unique(df$date), 4))在这里，我从这个系列中随机选择了4个日期作为重要日期，你可以这样做：
imp <- data.frame(date = imp.dates)让第二个数据帧使用相同的变量名date是有帮助的，但我不认为这是必要的，只是有助于/更容易在你的头脑中解析。
现在，我们按照您的方式构建图(注意，我在代码中将Object更改为object )
ggplot(df, aes(x = date, y = daily_sales, colour = object, group = object)) +
geom_line() +
geom_vline(data = imp, ## 1
aes(xintercept = date), ## 2
linetype = 4, colour = "black")请注意，在添加geom_vline()层的##1行中，我们将该层的data参数设置为重要日期的数据帧imp。在## 2行中，我们指定imp中包含我们想要绘制的日期的变量的名称。其余的绘图代码与您原来的一样。
这会产生(乱七八糟的，它是随机数据)：
但是现在它包含了4个用垂直线表示的选定的重要日期。
https://stackoverflow.com/questions/56296535
复制![osip2添加多个不同类型body[通俗易懂]](https://ask.qcloudimg.com/http-save/yehe-8223537/69c7b5bb0b27e62b6d5a742c5458c6f3.jpg)
相似问题
在对ID进行筛选后添加事件日期的geom_vline为每个ID添加vline
如何在TimeSeries中添加日期
在Postgresql中的timeseries数据中添加缺少的每月日期
每个面具有不同vline的geom_vline
Bokeh TimeSeries工具提示日期显示为：？
领取专属 10元无门槛券
AI混元助手 在线答疑
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
