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 

Мы можем использовать geom_bar(stat = "identity"..., в ggplot для построения графика, например:
введите описание изображения здесь

Как использовать ggplot geom_bar с facet_wrap для одноразового графика cola, colb, colc, как показано ниже? введите описание изображения здесь

2
kittygirl 12 Апр 2019 в 18:15

2 ответа

Лучший ответ

Мы gather столбцы в «длинный» формат, а затем делаем 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)
4
akrun 12 Апр 2019 в 15:49

Попробуй это

  library(tidyverse)

  df %>%
  map(function(x){as.data.frame(table(x))}) %>%
  bind_rows(.id = "variable") %>% 
  ggplot(aes(x = x, y = Freq)) +
  geom_col() +
  facet_wrap(~variable)
3
Johan Rosa 12 Апр 2019 в 15:36