map_dfr 将数据框输入转换为列

Question

我正在尝试使用以下函数遍历数据框并返回每行的计数：

library(dplyr)
library(tidyr)
row_freq <- function(df_input,row_input){
  print(df_input)
  vec <- unlist(df_input %>% 
                  select(-1) %>% 
                  slice(row_input), use.names = FALSE)
  r <- data.frame(table(vec)) %>% 
    pivot_wider(values_from = Freq, names_from = vec)
  return(r)
}

如果我使用数据框中的单行，这可以正常工作：

sample_df <- data.frame(id = c(1,2,3,4,5), obs1 = c("A","A","B","B","B"),
                        obs2 = c("B","B","C","D","D"), obs3 = c("A","B","A","D","A"))
row_freq(sample_df, 1)

  id obs1 obs2 obs3
1  1    A    B    A
2  2    A    B    B
3  3    B    C    A
4  4    B    D    D
5  5    B    D    A
# A tibble: 1 × 2
      A     B
  <int> <int>
1     2     1

但是当使用purrr::map_dfr遍历行时，似乎将df_input减少到仅id列，而不是使用整个数据框作为参数，我觉得这很奇怪：

purrr::map_dfr(sample_df, row_freq, 1:5)
[1] 1 2 3 4 5
 Error in UseMethod("select") : 
no applicable method for 'select' applied to an object of class "c('double', 'numeric')"

我正在就以下方面寻求帮助：1）为什么会发生这种情况，2）如何解决它，以及 3）任何可能已经以更有效的方式执行我正在尝试做的事情的替代方法或功能。

Answer 1

如果我们不使用命名参数传递，请正确指定参数的顺序

purrr::map_dfr(1:5, ~ row_freq(sample_df, .x))

-输出

# A tibble: 5 × 4
      A     B     C     D
  <int> <int> <int> <int>
1     2     1    NA    NA
2     1     2    NA    NA
3     1     1     1    NA
4    NA     1    NA     2
5     1     1    NA     1

或使用命名参数

purrr::map_dfr(df_input = sample_df, .f = row_freq, .x = 1:5)

-输出

# A tibble: 5 × 4
      A     B     C     D
  <int> <int> <int> <int>
1     2     1    NA    NA
2     1     2    NA    NA
3     1     1     1    NA
4    NA     1    NA     2
5     1     1    NA     1

---

原因是map第一个参数是.x

地图（.x，.f，...）

如果我们提供 'sample_df' 作为参数，它会将.x作为sample_df并循环遍历数据的列（如 data.frame/tibble/data.table - 单位是列，因为这些是具有附加属性的list )