如何在GGPLOT中使用2个分类和数值变量构建条形图？

Question

我有2个分类变量和2个数值列的数据框，代表百分比的负和积极变化。我有一项非常具体的任务，并难以通过GGPLOT做到这一点。 我想在y轴上绘制模型和来源，以及相应的正和负更改条（不是镜子图，分别是镜子图），颜色需要由模型来定义

df <- data.frame (Origin = c("Canada", "Canada","Canada", "Canada","Canada", "Canada","USA","USA","USA","USA","USA","USA"),
                  Model = c("A","B","C","D","E","F","A","B","C","D","E","F"),
                  poschange = c(60, 45,34,56, 65, 44,40, 55, 35, 24,34,12),
                  negchange = c(-5,-2,-0.5,-2,-1,-0.05,-1,-3,-0.1,-3,-1.5,-0.9))

类似的样本，但不是镜子图，我希望它们在下面一个，单独

Answer 1

在y轴上，显示Origin和模型。条通过poschange对条进行排序。

require(dplyr)
require(ggplot2)
require(tidyr)
df <- data.frame (Origin = c("Canada", "Canada","Canada", "Canada","Canada", "Canada","USA","USA","USA","USA","USA","USA"),
                  Model = c("A","B","C","D","E","F","A","B","C","D","E","F"),
                  poschange = c(60, 45,34,56, 65, 44,40, 55, 35, 24,34,12),
                  negchange = c(-5,-2,-0.5,-2,-1,-0.05,-1,-3,-0.1,-3,-1.5,-0.9))
df2 <- df %>% pivot_longer(., cols=c('poschange','negchange'),
                    names_to = 'value_category')
df2 <- df2 %>% mutate(Groups = paste(Origin, Model))
df2 <- df2 %>% mutate(label_position=ifelse(value>0, value-5,value-8)) # adjusting label position
df2 %>% arrange(value) %>% ggplot(aes(x=reorder(Groups,value), y=value, 
                                      fill=value_category, 
                                      group=value_category))+
  geom_col(width=0.75)+ # or geom_bar(stat='identity')
  coord_flip()+
  scale_y_continuous(limits = c(-100,100),
    breaks=seq(-100,100,20),
                     labels=abs(seq(-100,100,20)))+
  geom_text(aes(label=value,y=label_position),)+
  labs(x='Value',)+
  theme_minimal() +
  theme(legend.position='bottom',
        panel.grid=element_line(color='white'),
        axis.text.x = element_blank(),
        axis.title=element_blank(),
        legend.title = element_blank())+
  scale_fill_brewer(palette = 'Set1')

^{由 reprex软件包（v2.0.1）}