在R中可视化条形图和条形图的平均值

Question

我已经用R创建了下面的条形图

​

我有高风险，中风险和低风险的平均柱状图。

​

我现在想要将第一个图形叠加到第二个图形上，意思是在第二个图形内，我希望第一个图形中显示的高风险下的条形放在第二个图形中的高风险条形下。同样，对于Med Risk和Low Risk。这可以在R中完成吗？

Answer 1

正如Tyler所指出的，你想要的不是一个好主意，但为了回答你的问题，这里有一些代码可以让你入门：

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