为多列生成一个值表

Question

假设我有一个数据框或数据表。

例如：

try <- data.frame(AA=c(1,2,3,1,2,3,4,5,NA),BB=c(1,2,2,NA,
2,1,2,2,NA), CC=c("A","B", NA, NA, "A","B", "A","C","B"))
setDT(try)

 AA BB CC
 1  1   A
 2  2   B
 3  2   NA
 1 NA   NA
 2  2   A
 3  1   B
 4  2   A
 5  2   C
 NA NA  B

我想汇总这些值，以便将它们导出到 Excel 文件以便以后进一步操作。

我可以为每一列创建一个表格，但在现实生活中，某些变量可能有太多不同的值（例如人的体重或 DOB）。

我可以通过以下方式获得单列的前六个值：

table(try$BB,  useNA ="ifany") 

1    2 <NA> 
2    5    2 

但是当我尝试一次为所有列自动执行它时，它不能按预期工作：

try[,lapply(.SD,function(x) table(x,useNA="ifany")[1:6] )]

因为 table() 命令会生成 2 行结果，并且只有一个用于创建最终汇总表。

您建议使用什么程序来保存这些信息？

例如，我可以尝试将单变量表转换为类似的东西

"1":2    "2":5 "NA":2

但我不知道该怎么做。也许将其转换为因子，也许粘贴值。 我什至无法提取表的行以进行进一步操作。 欢迎使用任何带有基本 data.frame 或 date.table 的解决方案。

或者我什至可以订购该表以首先获取最常见的值。

PD：我想要这样的东西：

AA  "1":2   "2":2   "3":2   "4":1   "5":1   "NA": 1
BB  "1":2   "2":5   "NA": 2         
CC  "A":3   "B":3   "C":1   "NA": 2     

PD2： 这个我试过了

try[,lapply(.SD, function(x) { tmp <- table(x, 
     useNA ="ifany") ;  mapply(paste0, names( tmp ), 
     rep(":", length(tmp)), tmp )} )
   ]

但是太长了，效果不好

 AA   BB   CC
1:2  1:2  A:3
2:2  2:5  B:3
3:2 NA:2  C:1
4:1  1:2  NA:2
5:1  1:2  A:3
NA:1  2:5  B:3

它用假值填充最后一个值。

另一种选择是交错名称和值。

在这个例子中我应该得到：

  AA   BB   CC
 "1:2"  "1:2"  "A:3"
 "2:2"  "2:5"  "B:3"
 "3:2"  "NA:2" "C:1"
 "4:1"    NA   "NA:2"
 "5:1"    NA    NA
 "NA:1"   NA    NA

问题是列表在内部通过命令 as.data.table.list() 转换为数据表，并且不同大小的向量被回收而不是用 NA 填充。

Answer 1

这是我的 data.table 解决方案，其中包含 Frank 的一些想法。

siz <- 6
try[,lapply(.SD, function(x) { tmp <- table(x, 
useNA ="ifany") ;  tmp2 <- c(tmp[is.na(names(tmp))],
rev(sort(tmp[!is.na(names(tmp))]))); 
tmp3 <- mapply(paste0, names( tmp2 ),rep(":",
length(tmp2)),tmp2); length(tmp3)<-siz; tmp3})
]

它总是将 NA 放在开头，并按从最常见到最不常见的顺序排列其他元素。

也许有一些更简单的方法来总结信息。

Answer 2

你可以得到你想要的输出

library(magrittr)
tab = try %>% lapply(table, useNA = "ifany")
len = max(lengths(tab))

tab %>% lapply(
    . %>% 
    { paste0(names(.), ":", .) } %>% 
    `length<-`(len)
) %>% setDF %>% print


    AA   BB   CC
1  1:2  1:2  A:3
2  2:2  2:5  B:3
3  3:2 NA:2  C:1
4  4:1 <NA> NA:2
5  5:1 <NA> <NA>
6 NA:1 <NA> <NA>

我没有学过 purrr，但如果你喜欢使用管道，那可能会提供更简洁的代码。