将计数/变异组合与 purrr:map 一起使用

Question

样本数据：

       ï..Employee_Name       PositionID              Position State  Zip
  1:   Adinolfi, Wilson  K         19  Production Technician I    MA 1960
  2: Ait Sidi, Karthikeyan         27                  Sr. DBA    MA 2148
  3:     Akinkuolie, Sarah         20 Production Technician II    MA 1810
  4:          Alagbe,Trina         19  Production Technician I    MA 1886
  5:       Anderson, Carol         19  Production Technician I    MA 2169
 ---                                                                     
307:        Woodson, Jason         20 Production Technician II    MA 1810
308:     Ybarra, Catherine         19  Production Technician I    MA 2458
309:      Zamora, Jennifer          6                      CIO    MA 2067
310:           Zhou, Julia          9             Data Analyst    MA 2148
311:         Zima, Colleen         19  Production Technician I    MA 1730

我编写了自己的函数来计算数据框中变量的观察实例，然后将它们转换为因子：

HRdata_factor_count <- function(df, var) {
        df %>% 
        count(.data[[var]], sort = T) %>% 
        mutate(!!var := fct_reorder(factor(.data[[var]]), n))
    }

我想将它与 Purrr 包中的地图功能一起使用，但出现以下错误：

> map(HRdata, ~HRdata_factor_count(.x))
 Error in UseMethod("count") : 
  no applicable method for 'count' applied to an object of class "character"

我将如何解决此问题并让 map 返回一个列表，其中包含我的 df 中每个变量的实例计数？

我试过了，但输出很奇怪

    HRnames <- names(HRdata)
map2(HRdata, HRnames, ~HRdata_factor_count, df = .x, var =.y)

$Position
function(df, var) {
  df %>% 
    count(.data[[var]], sort = T) %>% 
    mutate(!!var := fct_reorder(factor(.data[[var]]), n))
}
<bytecode: 0x000001e2ce372f60>

$State
function(df, var) {
  df %>% 
    count(.data[[var]], sort = T) %>% 
    mutate(!!var := fct_reorder(factor(.data[[var]]), n))

Answer 1

根据你提供的数据，你可以试试purrr的imap

imap(mtcars, ~count(tibble(.x), !!.y := factor(.x)))

作为函数

foo <- function(x, y) count(tibble(x), !!y := factor(x))
imap(mtcars, foo)

• .x = 每列作为向量。检查map(mtcars, ~.) 或imap(mtcars, ~.x)
• .y = 对应的列名：names(mtcars)

由于count 需要一个data.frame 或一个tibble 作为输入，因此需要使用tibble(x) 再次转换输入向量。因子在count 中指定。

编辑：

像这样添加因子重新排序：

foo <- function(x, y){ count(tibble(x), tmp = factor(x)) %>% 
                       mutate(!!y := fct_reorder(tmp, n, .fun = sum)) %>% 
                       select(-tmp)}