r - 如何根据ggplot中的第三个因子变量维护变量的顺序？

Question

在此数据中，将 c 和 t 视为因子，将 f 视为 c 的频率。

library(tidyverse)
df <- tribble(~"c", ~"f", ~"t",
              "a", 49, "zoo",
              "b", 12, "foo",
              "p", 9, "zoo",
              "q", 29, "foo",
              "c", 15, "zoo")
df %>% 
  ggplot(aes(as.factor(c), f, fill = t)) +
  geom_bar(stat = "identity") +
  aes(x = fct_reorder(c, f, .desc = F)) +
  coord_flip()

上面的代码产生了这个情节

在此图中，如何将相似的变量放在一起，例如蓝色紧挨着蓝色，红色紧挨着红色。

Answer 1

我们可以用 facet_grid

分割

library(dplyr)
library(ggplot2)
df %>%
     ggplot(aes(c, f, fill = t)) +
           geom_bar(stat = 'identity') +
           aes(x = fct_reorder(c, f, .desc = F)) +
           coord_flip() + 
           facet_grid(~ t)