r - 计算R中一列中的字符串频率并保留其他列

Question

我有一个看起来像的 data.frame

 a = c("sample1", "asd")
 b = c("sample2" ,"poua")
 c = c("sample3", "asd")

 dat <- rbind(a,b,c)

我想计算 column2 字符串频率，并将 column1 名称保留在列表/参差不齐的计数数组中。即让它看起来像

 asd    sample1     sample3
 poua   sample2      

我知道表计数频率，但我无法让它保留名称，所以我真的非常感谢任何帮助！

Answer 1

你可以使用tapply：

tapply(dat[,1], dat[,2], as.vector)

$asd
[1] "sample1" "sample3"

$poua
[1] "sample2"

编辑：如果您的行名很重要，您可以identity用作函数：

tapply(dat[,1], dat[,2], identity)

$asd
        a         c 
"sample1" "sample3" 

$poua
        b 
"sample2"