回复 第1楼 的 xfh：你好，看看这个，不过跟你的有点小小差距~
a <- c(NA,-1,-3,-2,NA)
b <- abs(a)
par(mfcol=c(2,1),bg="black")
par(mar=c(0,4.1,5.1,4.1))
barplot(b,space=1.5,axes=F,col=2)
arrows(2,0,12,0,code=2,length=0.1,lwd=2,col="blue")
arrows(2,0,2,3,code=2,length=0.1,lwd=2,col="blue")
par(mar=c(5.1,4.1,0,4.1))
barplot(a,space=1.5,axes=F,col=3)
arrows(2,0,2,-3,code=2,length=0.1,lwd=2,col="blue")
