r语言 - 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 - unit是列，因为这些是具有附加属性的list)