龙卷风图/ggplot2 图表

Question

我很难让 this 正确输出...

这就是我的内容到目前为止尝试过：

示例数据：

dat <- data.frame(
variable=c("A","B","A","B"),
Level=c("Top-2","Top-2","Bottom-2","Bottom-2"),
value=c(.2,.3,-.2,-.3)
)

这是迄今为止我得到的最接近的数据：

ggplot(dat, aes(variable, value, fill=Level)) + geom_bar(position="dodge")
## plots offset, as expected
ggplot(dat, aes(variable, value, fill=Level)) + geom_bar(position="stack") 
# or geom_bar(), default is stack but it overplots

Answer 1

自 2012 年起，ggplot 禁止 错误：将变量映射到y 并且还使用 stat="bin"。解决方案是：

ggplot(dat, aes(variable, value, fill=Level)) +
    geom_bar(position="identity", stat="identity") 

如果您使用非对称示例，它也会非常有帮助，否则您怎么知道您是否没有查看镜像两次的顶级系列？！

dat <- data.frame(
  variable=c("A","B","A","B"),
  Level=c("Top-2","Top-2","Bottom-2","Bottom-2"),
  value=c(.8,.7,-.2,-.3)
  )

给出您想要的龙卷风图：

Answer 2

您还可以使用 + coord_flip() 而不是 + geom_bar(position="identity")

Answer 3

如果负值只是比较两组的技巧，您可以使用：

scale_y_continuous(labels=abs)