在 map function 中包含表中的列名

Question

我在 object HRdata 中存储了以下数据：

            ï..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

我正在使用 map function 来表 data.frame 中每个变量中的唯一实例。

HRtables <- map(tibble(HRdata), ~as.data.frame(sort(table(.x), decreasing = T, responseName = "n")))

它列出了一个很好的列表，但 output 不是我喜欢的：

    > HRtables$State
   .x Freq
1  MA  276
2  CT    6
3  TX    3
4  VT    2
5  AL    1
6  AZ    1
7  CA    1
8  CO    1
9  FL    1
10 GA    1
11 ID    1
12 IN    1
13 KY    1

有什么办法可以保留变量的原始名称而不是用.x替换它？

Answer 1

我想您可以使用map2传入 data.frame 的列names 。 然后，您可以为包含列名的table包含dnn参数。 也许这样的事情可能对你有用。

library(tidyverse)

map2(HRdata,
     names(HRdata),
     ~as_tibble(sort(table(.x, dnn = .y), decreasing = T)))