如何绘制R中事件之间的日期间隔

difftime(time1, time2, units = c("auto", "secs", "mins", "hours", "days", "weeks"))

# 创建两个日期向量
date1 <- as.Date("2022-01-01")
date2 <- as.Date("2022-01-10")

# 计算日期间隔
interval <- difftime(date2, date1, units = "days")

# 输出结果
print(interval)

Time difference of 9 days

# 导入绘图库
library(ggplot2)

# 创建事件日期向量
dates <- as.Date(c("2022-01-01", "2022-01-05", "2022-01-10", "2022-01-15"))

# 计算日期间隔
intervals <- diff(dates)

# 创建数据框
data <- data.frame(Event = 1:(length(dates)-1), Interval = intervals)

# 绘制日期间隔图
ggplot(data, aes(x = Event, y = Interval)) +
  geom_bar(stat = "identity", fill = "blue") +
  labs(x = "Event", y = "Interval (days)") +
  ggtitle("Event Date Intervals")