如何使用 ggplot 在 R 中绘制时间间隔数据？答案

【问题标题】：How to plot time interval data in R using ggplot?如何使用 ggplot 在 R 中绘制时间间隔数据？
【发布时间】：2022-01-22 19:14:38
【问题描述】：

我有一个类似于以下的数据框：

> library(lubridate)
> df <- data.frame(name = c("george", "sara", "sam", "bill"),
                   start_date = mdy(c("January 1, 2022", "January 2, 2022", "January 5, 2022", "January 6, 2022")),
                   end_date = mdy(c("January 3, 2022", "January 4, 2022", "January 6, 2022", "January 8, 2022")),
                  group = c(1,1,2,2))

> df <- df %>% 
   mutate(date_range = interval(start_date,
                          end_date))
> df
    name start_date   end_date group                     date_range
1 george 2022-01-01 2022-01-03     1 2022-01-01 UTC--2022-01-03 UTC
2   sara 2022-01-02 2022-01-04     1 2022-01-02 UTC--2022-01-04 UTC
3    sam 2022-01-05 2022-01-06     2 2022-01-05 UTC--2022-01-06 UTC
4   bill 2022-01-06 2022-01-08     2 2022-01-06 UTC--2022-01-08 UTC

如果可能，我想使用 ggplot 创建两个图：

我想显示每个人的日期范围的第一个图。向您展示我的意思更容易，请参见照片。
第二个图我想平均每个组的范围并显示一个箱线图或类似的图来显示每个组的日期分布。见照片。

有什么想法吗？我是新手，因此画出了我想要的东西，我希望它对您有所帮助和清晰。

【问题讨论】：

您可能需要重新整形为 long 然后绘制 df %>% pivot_longer(cols = ends_with('date'), names_to = 'date_name') %>% ggplot(aes(value, name)) + geom_line()
啊，这对我来说很有意义。谢谢！

标签： r datetime ggplot2 intervals date-range

【解决方案1】：

Allan 对于第一个使用 geom_segment 的情节是完全正确的，我只是想补充一点，在 ggalt 包中实际上有一个 geom 可以做到这一点。

它被称为哑铃图，看起来像这样：

这是我用来创建它的代码：

library(ggalt)
df %>%
  ggplot(
    aes(
      x = start_date,
      xend = end_date,
      y = name
    )
  ) +
  geom_dumbbell(
    colour = "#a3c4dc",
    colour_xend = "#0e668b",
    size = 4
  )

然后您可以使用所有正常功能使其看起来更漂亮。有关geom_dumbbell 的更多信息，请参阅帮助文档或this blog post

【讨论】：

啊哈！我知道这必须有某种geom。我一直在尝试自己绘制间隔数据，而不仅仅是使用开始和停止日期。谢谢你，这对我也有用。
很高兴我能帮上忙！ ggalt 和 GGally 有一些有趣/有用的几何图形和函数，值得自己熟悉，因为它们可以节省大量时间。

【解决方案2】：

你可以用geom_segment实现第一个情节

library(ggplot2)

ggplot(df, aes(x = start_date, y = name, colour = name)) +
  geom_segment(aes(xend = end_date, yend = name), colour = "black") +
  geom_point(size = 3) +
  geom_point(aes(x = end_date), size = 3) +
  theme_bw() +
  theme(legend.position = "none")

第二个需要一些数据重塑，正如 akrun 指出的那样：

library(dplyr)
library(tidyr)

df %>% 
  pivot_longer(2:3, names_to = "type", values_to = "date") %>%
  ggplot(aes(date, factor(group))) +
  geom_boxplot(aes(colour = factor(group))) +
  theme_bw() +
  theme(legend.position = "none")

^{由reprex package (v2.0.1) 于 2022-01-22 创建}

【讨论】：

哇，完美。非常感谢艾伦！这正是我想要的。