绝对频率(xtabs)到相对频率(适用)？

Question

我需要获得数据集中的多个变量对的绝对频率，所以我使用这段代码来“循环”xtabs命令：

apply(table[,2:17], 2, function(x) xtabs(~tablel$variable+x))

它工作得很好，通过变量给了我绝对频率。然而，我现在需要得到相对频率从这些行，我不知道如何。

我能不能在循环中加入相对频率的计算？或者我必须为此创建一个新的数据集(以及如何创建？我似乎无法从R中得到绝对频率)。

这是一个例子，其中一个变量的频率，我得到的代码。

$SEM
          x
       MN          sem1       sem2        sem3
       N1          227        130          18
       N10           0          2           7
       N11           9          7           5
       N12          29         21           1
       N2           23         14           2
       N3           19          7           4
       N4           12         17           0
       N5           18         36           3
       N6           22         13           7
       N8            1         39           0
       N9            0          2           5

Answer 1

我们可以通过列表应用一个函数。假设包含16个数据帧的列表称为lst，

lapply(lst, function(i) t(apply(i[,-1], 1, function(j) j/sum(j))))