r - 在R中的同一图中可视化条形图和条形图的平均值

Question

我在 R 中创建了下面的条形图

我有高风险、中风险和低风险的平均条形图。

我现在想将第一个图表叠加在第二个图表上，这意味着在第二个图表内，我希望将第一个图表中显示的高风险栏放在第二个图表中的高风险栏下方。同样，对于中风险和低风险。这可以在R中完成吗？

Answer 1

正如泰勒指出的那样，您想要的不是一个好主意，但是为了回答您的问题，这里有一些代码可以帮助您入门：

##Generate some data
heights = runif(15)
heights = heights/sum(heights)
dd = data.frame(heights, type=1:3)
m_heights = tapply(dd$heights, dd$type, mean)

诀窍是在添加第二个条形图时生成空条：

##rep(0, 5) is used to pad
h = c(rep(0,5), heights[1:5], rep(0,5), heights[6:10], rep(0,5), heights[11:15])
barplot(m_heights, width=1, space=1,  ylim=c(0, max(dd$heights)), xlim=c(0, 6))
barplot(h, width=0.2,space=0,add=T,  col="white", border=NULL)

但是，更好的图只是数据的普通散点图

plot(dd$type, dd$heights)

我们甚至可以添加手段：

points(1:3, m_heights, col=2, pch="X")