在格子中的同一行中对齐0

Question

这是ggplot2

的代码

library(ggplot2)

test <- data.frame(a=c('1','1','2','2'),b=c(2,-2,4,-3),d=c('m','n','m','n')) 

p <- ggplot(test,aes(a,b))

p + geom_bar(position=position_dodge(),stat='identity',
             fill='deeppink',colour='black',width=0.5)

出于某种原因，我需要用lattice，

重新绘制数字

library(lattice)

a<-barchart(b~a,data=test)

所以我希望使用ggplot2与lattice中的对齐方式相同。

Answer 1

我认为你可以通过叠加的条形图得到你想要的东西。

library(lattice)
barchart(b~a, data=test, col=c("#00FFFF"), group=d, stack=TRUE)