使用ggplot绘制多色垂直线，显示每种类型所用的平均时间作为面。每种类型都会有不同的垂直线

data <- data.frame(
  type = c("Type A", "Type B", "Type C"),
  start = c(1, 2, 3),
  end = c(1, 4, 2),
  color = c("red", "blue", "green"),
  avg_time = c(10, 15, 20)
)

library(ggplot2)

p <- ggplot(data) +
  geom_segment(aes(x = type, xend = type, y = start, yend = end, color = color), size = 3)

p <- p + geom_area(aes(x = type, y = avg_time, fill = color), alpha = 0.5)

p <- p +
  scale_fill_manual(values = c("red" = "red", "blue" = "blue", "green" = "green")) +
  scale_color_manual(values = c("red" = "red", "blue" = "blue", "green" = "green")) +
  labs(title = "Vertical Lines with Average Time as Area",
       x = "Type",
       y = "Time") +
  theme_bw()

library(ggplot2)

data <- data.frame(
  type = c("Type A", "Type B", "Type C"),
  start = c(1, 2, 3),
  end = c(1, 4, 2),
  color = c("red", "blue", "green"),
  avg_time = c(10, 15, 20)
)

p <- ggplot(data) +
  geom_segment(aes(x = type, xend = type, y = start, yend = end, color = color), size = 3) +
  geom_area(aes(x = type, y = avg_time, fill = color), alpha = 0.5) +
  scale_fill_manual(values = c("red" = "red", "blue" = "blue", "green" = "green")) +
  scale_color_manual(values = c("red" = "red", "blue" = "blue", "green" = "green")) +
  labs(title = "Vertical Lines with Average Time as Area",
       x = "Type",
       y = "Time") +
  theme_bw()

print(p)