R 在ggplot条形图上添加标记线

如何在ggplot条形图中的每个条形图上添加一条线

例如，使用内置ggplot示例：

mm <- ddply(mtcars, "cyl", summarise, mmpg = mean(mpg))
ggplot(mm, aes(x = factor(cyl), y = mmpg)) + geom_bar(stat = "identity")

mm这应该可以：

y <- c(10, 5, 5)

mm <- ddply(mtcars, "cyl", summarise, mmpg = mean(mpg))
mm <- cbind(mm, y) # get vector into data frame

ggplot(mm, aes(x = factor(cyl), y = mmpg)) + 
geom_bar(stat = "identity") +
geom_errorbar(aes(yintercept = y, ymax=y, ymin=y), 
              color = "white", size = 2)

y这应该可以：

y <- c(10, 5, 5)

mm <- ddply(mtcars, "cyl", summarise, mmpg = mean(mpg))
mm <- cbind(mm, y) # get vector into data frame

ggplot(mm, aes(x = factor(cyl), y = mmpg)) + 
geom_bar(stat = "identity") +
geom_errorbar(aes(yintercept = y, ymax=y, ymin=y), 
              color = "white", size = 2)

y您能发布生成第二个绘图的确切代码吗？我不确定你的问题是否有一个简单的解决办法，但也许我们可以解决一些问题。同时（你可能已经参考过这个），可能会有所帮助。第二个绘图的“代码”是在Windows中绘制，在第一个绘图导出的.PNG上添加3条白线：）哦，太酷了。我很兴奋，因为我从来没有看到过ggplot2中有这样的东西：你能发布生成第二个绘图的确切代码吗？我不确定你的问题是否有一个简单的解决办法，但也许我们可以解决一些问题。同时（你可能已经参考过这个），可能会有所帮助。第二个绘图的“代码”是在Windows中绘制，在第一个绘图导出的.PNG上添加3条白线：）哦，太酷了。我很兴奋，因为我从来没有在ggplot2:p中看到过这样的东西