r - 如何使用 facet_wrap `table` 所有因子列和 ggplot geom_bar？

Question

df <- data.frame(
    cola = c('1',NA,'c','1','1','e','1',NA,'c','d'),
    colb = c("a",NA,"c","d",'a','b','c','d','c','d'),
    colc = c('a',NA,'1','d','a',NA,'c',NA,'c','d'),stringsAsFactors = TRUE)

table(df$cola)

以上R脚本的输出是:

1 c d e 
4 2 1 1 

我们可以在 ggplot 中使用 geom_bar(stat = "identity"..., 来绘制条形图，如下所示:

如何使用 ggplot geom_bar 和 facet_wrap 一次性绘制 cola,colb,colc 如下？

Answer 1

我们收集列为“长”格式，然后执行ggplot

library(tidyverse)    
df %>%
     # gather to long format
     gather(na.rm = TRUE) %>%
     # get the frequency count of key, value columns
     count(key, value) %>% 
     ggplot(., aes(x = value, y = n)) + 
       geom_bar(stat = "identity") + 
       # facet wrap with key column
       facet_wrap(~ key)