如何使用ggplot在条形图上方添加一条水平线？

Question

我想在条形图上方添加一根横线。目前，我可以使用 geom_points 添加点：

data <- ddply(diamonds, .(cut, color), summarise, mean_carat = mean(carat))
ggplot(data, aes(color, mean_carat,fill=cut)) +
geom_bar(stat="identity", position="dodge") +
geom_point(data=data, aes(color, mean_carat, fill=cut))

下图中的红色箭头显示了我想要添加的内容：

谢谢！

- alfakini

---

请查看geom_segment http://docs.ggplot2.org/current/geom_segment.html。不确定它是否适用于条形图。 - Molx

Answer 1

尝试添加类似以下的内容：

data <- ddply(diamonds, .(cut, color), summarise, mean_carat = mean(carat))
data2 <- ddply(data, ~color, summarise, max_carat = max(mean_carat))
C <- merge(data,data2, by = c('color'))

    ggplot(data, aes(color, mean_carat,fill=cut)) +
      geom_bar(stat="identity", position="dodge") +
      geom_point(data=data, aes(color, mean_carat)) +
      geom_errorbar(data  = C, aes(y=max_carat, ymax=max_carat, ymin=max_carat))

- MichaelVE