如何在R中绘制羽状图？

install.packages("ggplot2")

library(ggplot2)

data <- data.frame(x = c(1, 2, 3, 4, 5),
                   y = c(2, 4, 6, 8, 10),
                   length = c(0.5, 1, 1.5, 2, 2.5))

p <- ggplot() +
  xlim(0, 6) +
  ylim(0, 12)

p <- p +
  geom_segment(data = data,
               aes(x = x, y = y,
                   xend = x + length,
                   yend = y,
                   color = length),
               size = 1)

p <- p +
  scale_color_gradient(low = "blue", high = "red")

print(p)