代码之家 › 专栏 › 技术社区 › Joe

如何在此条形图中添加水平线以显示推荐的数据级别?复制

bar-chart r

Joe · 技术社区 · 3 年前

我想在条形图上方添加一条水平线。目前我可以使用添加点 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))

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

谢谢

0 回复 | 直到 10 年前

MichaelVE 10 年前

尝试添加以下内容

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))

RPLOT