Используйте функцию apply для последующих столбцов

Question

Я новый пользователь R, я использую функцию apply для подсчета похожих переменных в столбцах.Я хочу сначала посчитать аналогичные переменные в первом столбце, но затем вместо того, чтобы просто подсчитать аналогичные переменные во втором столбце, я хочу подсчитать первый и второй столбцы.И затем впоследствии добавление дополнительного столбца.apply(df, 2, function(x){ x1 <- count(na.omit(x))})

Мои данные выглядят так.

df <- data.frame(x = c('a', 'b', 'b'), y = c(NA, 'b','c'), z = c(NA, NA, 'a'))

Я хочу этот вывод:

|x|count|
a | 1
b | 2

|x|y|count|
b | b | 1
b | c | 1

|x|y|z|count
b | c |a | 1

Любая помощь действительно приветствуется.

Answer 1

Мы можем рассмотреть возможность использования пакета dplyr для решения этой задачи.

library(dplyr)

lapply(1:ncol(df), function(i){
  df2 <- df %>%
    select(1:i) %>%
    na.omit() %>%
    group_by_all() %>%
    tally() %>%
    ungroup()
  return(df2)
})

# [[1]]
# # A tibble: 2 x 2
#   x         n
#   <fct> <int>
# 1 a         1
# 2 b         2
# 
# [[2]]
# # A tibble: 2 x 3
#   x     y         n
#   <fct> <fct> <int>
# 1 b     b         1
# 2 b     c         1
# 
# [[3]]
# # A tibble: 1 x 4
#   x     y     z         n
#   <fct> <fct> <fct> <int>
# 1 b     c     a         1

Answer 2

Вы можете использовать индексирование для доступа к столбцам, а затем table для получения таблицы частот следующим образом:

lapply(seq_len(ncol(df)), 
    function(i) {
        #take only complete cases, i.e. discard those rows with any NAs in columns
        x <- df[complete.cases(df[, seq_len(i)]), seq_len(i)]

        #use table to get frequency count
        as.data.frame(table(x))
})

вывод:

[[1]]
  x Freq
1 a    1
2 b    2

[[2]]
  x y Freq
1 b b    1
2 b c    1

[[3]]
  x y z Freq
1 b c a    1