如何在R中的事件之間繪制日期間隔

Question

我有一個數據框，其ID與開始日期，結束日期以及與前兩個事件之間發生的事件對應的ID有關。

我想在縱坐標上繪制ID，在橫坐標上繪制日期，並在所考慮的時間段的開始和結束之間划一條線，並為事件日期畫一個圓圈（或其他形狀）。

幾個小時以來，我一直在努力尋找合適的解決方案，因此，我們將不勝感激！

library(tidyverse)

set.seed(2018-11-11)

df <- data_frame(
  ID = c('A', 'B', 'C'),
  begin = seq(as.Date("2017-06-01"), as.Date("2017-08-31"), "1 month"),
  event = seq(as.Date("2018-06-01"), as.Date("2018-08-31"), "1 month"),
  end = seq(as.Date("2020-06-01"), as.Date("2020-08-31"), "1 month")
) 

ggplot(df, aes(x = begin, y = ID, group = ID)) + 
  geom_point() + 
  geom_line()+
  xlab('Dates') +
  ylab('ID')

Answer 1

這樣的事情怎么樣？

ggplot(df, aes(y=ID, x=event)) + 
geom_point(color="red") + 
geom_segment(data=df, aes(x=begin, xend=end, y=ID, yend=ID))+
xlab('Dates') +
ylab('ID')

Answer 2

這是一種方法：將數據整形為長格式，然后將ID放在y軸上，並為事件添加第二個geom_points：

df2 <- reshape2::melt(data = df, variable.name = 'Event', value.name = 'Date')

ggplot(df2, aes(x = Date, y = ID)) + 
   geom_point() + 
   geom_line()+
   geom_point(data = df2 %>% filter(Event == 'event'), color='red', size = 2) +
   xlab('Dates') +
   ylab('ID')

Answer 3

這是你想要的嗎：

library(tidyverse)

set.seed(2018-11-11)
# data_frame is sort of depreciated (The warning suggested me to use tibble instead)

df <- tibble(
  ID = c('A', 'B', 'C'),
  begin = seq(as.Date("2017-06-01"), as.Date("2017-08-31"), "1 month"),
  event = seq(as.Date("2018-06-01"), as.Date("2018-08-31"), "1 month"),
  end = seq(as.Date("2020-06-01"), as.Date("2020-08-31"), "1 month")
) 
# -------------------------------------------------------------------------
#df
# # A tibble: 3 x 4
#   ID    begin      event      end       
#   <chr> <date>     <date>     <date>    
# 1 A     2017-06-01 2018-06-01 2020-06-01
# 2 B     2017-07-01 2018-07-01 2020-07-01
# 3 C     2017-08-01 2018-08-01 2020-08-01
# -------------------------------------------------------------------------
base <- ggplot(df, aes(x = begin, y = ID))

# add a duration between begin and end using a horizontal segment 
b_duration <- base + geom_segment(aes(x = begin, xend = end, y = ID, yend=ID), linetype = "dashed", color = "red")

# add a the event date using a circle (point)
b_duration + geom_point(aes(event), size=4, color = "cyan4") + theme_bw()

產量