汇总变量选项的数量

Question

我有一个包含许多变量及其选项的大数据框，因此我想要计算所有变量及其选项的数量。例如下面的数据框。

我还有另一个相同的数据框，如果我想合并这两个数据框，检查列的名称是否相同，如果不是，则获取不同列名的名称。

不包括 c(uniqueid,name) 列 目的是在 count 的帮助下找出我们是否有任何拼写错误的单词，或者这些单词是否有任何口音。

df11 <- data.frame(uniqueid=c(9143,2357,4339,8927,9149,4285,2683,8217,3702,7857,3255,4262,8501,7111,2681,6970),
                    name=c("xly,mnn","xab,Lan","mhy,mun","vgtu,mmc","ftu,sdh","kull,nnhu","hula,njam","mund,jiha","htfy,ntha","sghu,njui","sgyu,hytb","vdti,kula","mftyu,huta","mhuk,ghul","cday,bhsue","ajtu,nudj"),
                    city=c("A","B","C","C","D","F","S","C","E","S","A","B","W","S","C","A"),
                    age=c(22,45,67,34,43,22,34,43,34,52,37,44,41,40,39,30),
                    country=c("usa","USA","AUSTRALI","AUSTRALIA","uk","UK","SPAIN","SPAIN","CHINA","CHINA","BRAZIL","BRASIL","CHILE","USA","CANADA","UK"),
                    language=c("ENGLISH(US)","ENGLISH(US)","ENGLISH","ENGLISH","ENGLISH(UK)","ENGLISH(UK)","SPANISH","SPANISH","CHINESE","CHINESE","ENGLISH","ENGLISH","ENGLISH","ENGLISH","ENGLISH","ENGLISH(US)"),
                    gender=c("MALE","FEMALE","male","m","f","MALE","FEMALE","f","FEMALE","MALE","MALE","MALE","FEMALE","FEMALE","MALE","MALE"))

输出应该类似于变量组计数及其选项的摘要。它是一种枢轴，例如：对于城市 因此它应该选择数据框中的所有可用列，并为列中可用的所有选项提供一种计数摘要

Answer 1

我对你所谓的“选项”感到很困惑，但这里是从仅使用基本 R 函数开始的东西。

注意：它仅指问题的第一部分“我想要所有变量及其选项的计数”。

res <- do.call(rbind, lapply(df11[, 3:ncol(df11)], function(option) as.data.frame(table(option)))) # apply table() to the selected columns and gather the output in a dataframe
res$variable <- gsub("[.](.*)","", rownames(res)) # recover the name of the variable from the row names with a regular expression
rownames(res) <- NULL # just to clean
res <- res[, c(3,1,2)] # ordering columns
res <- res[order(-res$Freq), ] # sorting by decreasing Freq

输出：

> res
   variable      option Freq
34 language     ENGLISH    7
42   gender        MALE    7
39   gender      FEMALE    5
3      city           C    4
1      city           A    3
7      city           S    3
11      age          34    3
36 language ENGLISH(US)    3
2      city           B    2
9       age          22    2
16      age          43    2
27  country       CHINA    2
28  country       SPAIN    2
30  country          UK    2
32  country         USA    2
33 language     CHINESE    2
35 language ENGLISH(UK)    2
37 language     SPANISH    2
38   gender           f    2
4      city           D    1
5      city           E    1
6      city           F    1
8      city           W    1
10      age          30    1
12      age          37    1
13      age          39    1
14      age          40    1
15      age          41    1
17      age          44    1
18      age          45    1
19      age          52    1
20      age          67    1
21  country    AUSTRALI    1
22  country   AUSTRALIA    1
23  country      BRASIL    1
24  country      BRAZIL    1
25  country      CANADA    1
26  country       CHILE    1
29  country          uk    1
31  country         usa    1
40   gender           m    1
41   gender        male    1

Answer 2

您可以计算 aggregate 中的 unique 值中的 length。

res <- aggregate(. ~ city, df11, function(x) length(unique(x)))
res
#   city uniqueid name age country language gender
# 1    A        3    3   3       3        2      1
# 2    B        2    2   2       2        2      2
# 3    C        4    4   4       4        2      4
# 4    D        1    1   1       1        1      1
# 5    E        1    1   1       1        1      1
# 6    F        1    1   1       1        1      1
# 7    S        3    3   3       3        3      2
# 8    W        1    1   1       1        1      1