r - 穿过 x 轴的堆叠条形图

Question

这个问题在这里已经有了答案:





ggplot2 and a Stacked Bar Chart with Negative Values

(1 个回答)


7年前关闭。




friend 们，
如何在 x 轴的两侧创建堆叠条形图(最好在 ggplot2 中)？

例子:
http://s23.postimg.org/3lbgicb3f/Example.png

我四处搜索，但没有找到任何好的例子。
数据由两个位置(1 和 2)组成，具有 5 个不同类别(A、B、C、R 和 S)的值(权重)。 A、B 和 C 应位于 x 轴的顶部，而 R 和 S 应绘制在下方。请注意 x 轴两侧的正值。别介意误差线。

示例数据:

Type=c("A","B","C","R","S","A","B","C","R","S")
Location=c(1,1,1,1,1,2,2,2,2,2)
Value=c(2,6,5,3,2.5,6,3,2,4,1.5)
df=data.frame(Type, Location, Value)
df$Location <- as.factor(df$Location)

任何指针将不胜感激，
诺登斯基尔德

Answer 1

这是另一种与@BrodieG 非常相似的方法，它不需要创建任何新的数据帧。

library(plyr)
library(ggplot2)
ggplot(df, aes(x=Location, fill=Type))+
  geom_bar(subset=.(Type %in% c("A","B","C")), aes(y=Value))+
  geom_bar(subset=.(Type %in% c("R","S")), aes(y=-Value))+
  geom_hline(yintercept=0, linetype=2)+
  scale_y_continuous(labels=abs)