问为timeseries数据中的不同日期添加多个vline
EN

Stack Overflow用户

提问于 2019-05-24 16:38:16

回答 1查看 755关注 0票数 1

我正在尝试绘制一个包含多个时间序列数据的折线图，其中每条线都显示了特定对象在同一开始日期和结束日期内一段时间内的销售趋势。我的数据集已经是一种“融化”的形式，看起来像这样：

'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类，所以似乎不能让它工作。

任何帮助都将不胜感激。

ggplot2

time-series

timeserieschart

人脸核身产品特惠

用户政务民生、金融、通信运营商等场景，接入全面，安全可靠新用户3折起

回答 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")