周期性成败事件的时长状态条形图可视化实现问询

我来帮你搞定这个需求！要把事件的成败状态做成单条水平条形图，核心是先把离散的状态切换时间点转换成连续的时间段，然后用ggplot2来绘制分段的矩形条。下面是完整的实现步骤：

1. 整理状态时间段数据 #

首先，我们需要把每个状态对应的起始和结束时间整理成数据框。假设你的完整时间点是：

# 定义状态切换时间点
tm1 <- as.POSIXct("2018-03-24 11:00:00")  # 成功开始
tm2 <- as.POSIXct("2018-03-24 14:00:00")  # 切换为失败
tm3 <- as.POSIXct("2018-03-24 15:00:00")  # 恢复成功
tm4 <- as.POSIXct("2018-03-24 18:00:00")  # 事件结束（可根据实际情况调整）

# 构建状态时间段数据框
status_df <- data.frame(
  start_time = c(tm1, tm2, tm3),
  end_time = c(tm2, tm3, tm4),
  status = c("成功", "失败", "成功")  # 对应每个时间段的状态
)

2. 绘制单条水平条形图 #

用ggplot2的geom_rect()来绘制每个时间段的矩形，通过固定y轴范围实现“单条”效果：

library(ggplot2)

ggplot(status_df) +
  # 绘制每个状态的矩形段：x轴是时间，y轴固定在一个窄区间模拟单条
  geom_rect(
    aes(xmin = start_time, xmax = end_time, 
        ymin = 0.8, ymax = 1.2, fill = status),
    color = "white"  # 可选：添加白色边框区分分段
  ) +
  # 设置状态对应的颜色：成功绿，失败红
  scale_fill_manual(values = c("成功" = "#2ecc71", "失败" = "#e74c3c")) +
  # 格式化x轴时间显示为小时:分钟，每小时一个刻度
  scale_x_datetime(date_labels = "%H:%M", date_breaks = "1 hour") +
  # 调整主题，隐藏y轴无关元素，突出单条效果
  theme_minimal() +
  theme(
    axis.title.y = element_blank(),
    axis.text.y = element_blank(),
    axis.ticks.y = element_blank(),
    panel.grid.y = element_blank(),
    legend.title = element_blank(),
    plot.title = element_text(hjust = 0.5)
  ) +
  labs(x = "时间", title = "事件状态时间线")

关键说明 #

• 为什么用geom_rect？因为我们需要展示时间段的持续状态，而不是单个时间点，矩形正好能对应每个状态的时间区间。
• 固定y轴范围（0.8到1.2）是为了让所有分段看起来是一条连续的水平条，不会分散。
• 如果后续有更多状态切换，只需要在status_df里添加新的start_time/end_time/status行即可。

内容的提问来源于stack exchange，提问作者Froom2