关于具有负值的数据的条形图

Question

我想为包含正值和负值的数据矩阵绘制堆积条形图。

我使用下面的代码，我期望所有正值都堆积在x轴之上，所有负值都堆积在x轴之下，但事实并非如此。

  test<-matrix(c(1,-2,-3,4,5,-6),ncol=2)
  colnames(test)=c("A","B")
  rownames(test)=c("x","y","z")
  barplot(test)

如果我查看help，我无法找到有关此特定主题的内容。

我是否必须使用一些额外的命令或额外的参数来实现它？

Answer 1

快速（但不是最好）的解决方法：

test1 <- test2 <- test
test1[test1<0] <- 0
test2[test2>0] <- 0
myrange <- c(min(colSums(test2)),max(colSums(test1)))
barplot(test1,ylim=myrange)
barplot(test2,add=TRUE,ylim=rev(myrange))