为r中的多列创建列联表？

作者: Minions
发布时间: 2025-03-07 01:14:21 (4天前)
转自：

3 条回复

0#
回复此人
浮华丶 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 你可以用 <code> aggregate </code> ： </p> <pre> <code> aggregate(cbind(X, Y) ~ Occupation, df, FUN = sum) # Occupation X Y #1 Agriculture 2 2 #2 Business 3 1 aggregate(cbind(X, Y) ~ Class, df, FUN = sum) # Class X Y #1 Lower 3 1 #2 Upper 2 2 </code> </pre> <P> 另一种方式是 <code> xtabs </code> ： </p> <pre> <code> xtabs(cbind(X, Y) ~ Occupation, df) #Occupation X Y # Agriculture 2 2 # Business 3 1 xtabs(cbind(X, Y) ~ Class, df) #Class X Y # Lower 3 1 # Upper 2 2 </code> </pre> <P> 要自动执行： </p> <pre> <code> lapply(c('Class', 'Occupation'), function(x) { myform <- as.formula(paste('cbind(X, Y) ~', x)) xtabs(myform, df) }) </code> </pre> </DIV>

编辑
1#
回复此人
银环蛇 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 如果我理解得很好，你可以使用 <code> dplyr </code> 包装和 <code> group_by </code> 功能是为了做到这一点。 </p> <P> 您可以使用 <code> group_by </code> 功能和 <code> summarise_each </code> 以下列方式： </p> <pre> <code> library(dplyr) yourdata %>% group_by(Occupation) %>% summarise_each(Occupation,funs(sum),column4:column5) </code> </pre> <P> 我认为这应该适合你的情况。 </p> </DIV>

编辑

登录后才能参与评论