R中的分组和分类条形图

Question

我将使用其他人生成的以下数据来解释我需要什么。请运行代码，你会看到你有这个情节：

我需要的是有相同的情节，并且在左侧（除了酶 1 到 4）有酶类别（酶 1 和 3 作为类别 1，酶 2 和 4 作为类别 2）。你能帮我解决这个问题吗？

library(tidyverse)
data_wide <- tibble(ethnicity = c("ethnicity1", "ethnicity2"),
                    enzyme1 = c(-1, -2), 
                    enzyme2 = c(1, 1),
                    enzyme3 = c(1, 2),
                    enzyme4 = c(-1, 1))
data_long <- data_wide %>% 
  pivot_longer(starts_with("enzyme"), "enzyme")

data_long$Category= c("Category1", "Category2", "Category1", "Category2", "Category1", "Category2", "Category1", "Category2")

data_long1=subset(data_long, ethnicity=="ethnicity1")

data_long1[["sign"]] = ifelse(data_long1[["value"]] >= 0, "positive", "negative")

library(ggplot2)
ggplot()+
  geom_col(data = data_long1, aes(x = enzyme, 
                             y = value,fill = sign))+
  geom_hline(aes(yintercept = 0))+
  coord_flip()+
  theme_linedraw()+ geom_bar() + 
  scale_fill_manual(values = c("positive" = "green", "negative" = "red"))

Answer 1

一种可能的解决方案是在“类别”的函数中使用facet_grid 对图表进行分面，如下所示：

library(ggplot2)
ggplot(data = data_long1, aes(x = reorder(enzyme, desc(enzyme)), 
                              y = value,fill = sign))+
  geom_col()+
  geom_hline(aes(yintercept = 0))+
  coord_flip(clip = "off")+
  scale_fill_manual(values = c("positive" = "green", "negative" = "red"))+
  facet_grid(Category~., scales = "free_y", switch = "y", space = "free_y")+
  theme(strip.text.y.left = element_text(angle = 0, face = "bold", vjust = 1),
        strip.background = element_blank(),
        strip.placement = "outside",
        axis.title.y = element_blank())

它回答了你的问题吗？