可視化R中同一圖中的條形圖和條形圖的平均值

Question

我在R中創建了下面的條形圖

我有高風險，中風險和低風險的平均柱狀圖。

現在，我想將第一個圖形疊加在第二個圖形上，這意味着在第二個圖形內部，我希望將第一個圖形中顯示的高風險欄置於第二個圖形中的高風險欄下方。 同樣，對於中度風險和低度風險。 可以在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)

訣竅是在添加第二個barplot時生成空條：

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