R ggplot堆叠条形图

数据链：

代码：

库（ggplot2）
图书馆（网格）
#上传数据
ccmacrosims2如果需要使用负值堆叠
ggplot2
中的条形图，那么为了获得更好的结果，您应该创建两个新数据帧-一个用于正值，另一个用于负值

GDPDecomp.f.pos<-GDPDecomp.f[GDPDecomp.f$value>0,]
GDPDecomp.f.neg<-GDPDecomp.f[GDPDecomp.f$value<0,]

如果需要将
ggplot2
中的条形图堆叠为负值，则为了获得更好的结果，应创建两个新数据框-一个用于正值，另一个用于负值

GDPDecomp.f.pos<-GDPDecomp.f[GDPDecomp.f$value>0,]
GDPDecomp.f.neg<-GDPDecomp.f[GDPDecomp.f$value<0,]

如果负数据值导致问题，那么您确实应该在ggplot2上引发一个错误，以获得警告消息。否则人们究竟如何检测到这一点呢？如果负数据值导致了问题，那么您真的应该在ggplot2上引发一个错误，以获得警告消息。否则人们究竟怎么会察觉到这一点呢？
ggplot()+
  geom_bar(data=GDPDecomp.f.pos,aes(x=factor(region),y=value,fill=variable),stat="identity")+
  geom_bar(data=GDPDecomp.f.neg,aes(x=factor(region),y=value,fill=variable),stat="identity")+
  facet_wrap(~tradlib, scales="free_y") + 
  theme(axis.text.x = element_text(colour = 'black', angle = 90, size = 12, hjust = 0.5, vjust = 0.5),axis.title.x=element_blank()) + 
  ylab("GDP (Change in $US million)") + theme(axis.text.y = element_text(colour = 'black', size = 12), axis.title.y = element_text(size = 12)) + 
  theme(strip.text.x = element_text(size = 12, hjust = 0.5, vjust = 0.5, face = 'bold'))