fill = color))
image.png
接下来是添加线段
seg <- tibble(x = c(0, 0, 10, 0, 9, 3, 8, 5, 6),
xend...fill = color)) +
# y-axis
geom_segment(data = seg,
aes(x = x, xend...= xend,
y = y, yend = yend),
color = "red",
linetype...= xend,
y = y, yend = yend),
color = "black", linetype = "12") +...= xend,
y = y, yend = yend),
color = "white", linetype = "12") +