r - 在 R 上过滤 obs 的交叉表

Question

我想制作一个交叉表，其中 x 是变量的不同 obs 的数量，y 是另一个变量。使用 dplyr，我可以通过下面的代码获得所需的信息，但它显然不会创建表格。我想要的是secteur的CODE_UAI.x 的不同 obs 的数量。下面是数据集的一个例子。

CODE_UAI.x	教派
0271564D	1
0942344M	2
0271564D	3
0332894S	3
0033082C	2
00381324H	1
0271564D	3
0033082C	2

• 输入代码dataframe

df1 <- data.frame("CODE_UAI.x" = c("0271564D", "0942344M", "0271564D", "0332894S",
                                   "0033082C", "00381324H", "0271564D", "0033082C"),
                  secteur = c(1, 2, 3, 3, 2, 1, 3, 2))

Ech_final_nom_BSA %>%
  filter(secteur == 3) %>%
  summarise(n=n_distinct(CODE_UAI.x))

我也试过用包 summarytools 来做这个，但没有结果。

我期待的结果是这样的：

教派	# 不同的 UAI
1	2
2	2
3	2

我希望这是有道理的。如果需要，请随时询问更多信息。

Answer 1

而不是使用filter，您可以改为使用group_byfor eachsecteur并计算唯一值n_distinct。

library(dplyr)
df1 %>% group_by(secteur) %>% summarise(n=n_distinct(CODE_UAI.x))

#  secteur     n
#    <dbl> <int>
#1       1     2
#2       2     2
#3       3     2

或以 R 为基数 -

aggregate(CODE_UAI.x~ secteur, df1, function(x) length(unique(x)))