如何在条形图中用零线分割负条和正条？

Question

我的数据有 2 个数字列（正值和负值）和 2 个分类变量。现在我想通过此代码在同一行上绘制负条和正条，而不是通过保持所有其余设置相同来在负条下绘制正条？

df <- data.frame(model  = c("A","B","C","D","B","C"),
                  category = c("origin", "origin","origin","abroad","abroad","abroad"),
                 pos = c(40,50,45,100,105,80),
                 neg = c(-10,-5,-4,-16,-7,-2),
                 Colour = c("chocolate","deeppink4","yellow","steelblue3","deeppink4","yellow"))

Colour <- as.character(df$Colour)
Colour <- c(Colour,"white")
names(Colour) <- c(as.character(df$model),"white")



df <- df %>% pivot_longer(., cols=c('pos','neg'),
                           names_to = 'sign') %>% 
  mutate(Groups = paste(category, model),
         sign = factor(sign, levels = c("neg", "pos")))



bar2 <- ggplot(df, aes(value, tidytext::reorder_within(model, value, category),
                fill = ifelse(sign == "neg", "white", model), 
                color = model))+
  geom_col(position = "dodge") +
  scale_fill_manual(values = Colour, breaks = df$model) +
  scale_color_manual(values = Colour, breaks = df$model) +
  tidytext::scale_y_reordered() +
  labs(fill = "model") +
  facet_grid(category ~ ., switch = "y",scales = "free_y") +
  theme(axis.text.x = element_text(angle = 90),
        strip.background = element_rect(fill = "white"),
        strip.placement = "outside",
        strip.text.y.left = element_text(angle = 0),
        panel.spacing = unit(0, "lines"))+theme(legend.position="none") + 
        labs( title = "BarPlot",
              subtitle = "changes",
              y = " ") 

bar2

Answer 1

在

中将“闪避”改为“堆叠”

geom_col(position = "stack")

如何在条形图中用零线分割负条和正条？

How to split negative and positive bars by zero line in barplot?

r

data-visualization

ggplot2

plotly

tidyverse