Question

我想知道在进行如下聚合时是否有任何参数设置，结果将显示原始列名而不是通用“group.1”

data1 <- aggregate(mtcars[1:4], list(mtcars$am, mtcars$gear),mean)
data1
   Group.1 Group.2      mpg      cyl     disp       hp
1       0       3 16.10667 7.466667 326.3000 176.1333
2       0       4 21.05000 5.000000 155.6750 100.7500
3       1       4 26.27500 4.500000 106.6875  83.8750
4       1       5 21.38000 6.000000 202.4800 195.6000

非常感谢你，

顺便说一下，我知道重塑的函数名称（x）。

Answer 1

您可以尝试公式方法

aggregate(cbind(mpg,cyl,disp,hp)~am+gear, mtcars, mean)
#  am gear      mpg      cyl     disp       hp
#1  0    3 16.10667 7.466667 326.3000 176.1333
#2  0    4 21.05000 5.000000 155.6750 100.7500
#3  1    4 26.27500 4.500000 106.6875  83.8750
#4  1    5 21.38000 6.000000 202.4800 195.6000

或在列表中重命名

aggregate(mtcars[1:4], list(am=mtcars$am, gear=mtcars$gear),mean)
#   am gear      mpg      cyl     disp       hp
#1  0    3 16.10667 7.466667 326.3000 176.1333
#2  0    4 21.05000 5.000000 155.6750 100.7500
#3  1    4 26.27500 4.500000 106.6875  83.8750
#4  1    5 21.38000 6.000000 202.4800 195.6000

如果名称很多，请使用setNames

 aggregate(mtcars[1:4], setNames(list(mtcars$am, mtcars$gear), 
                  names(mtcars)[9:10]),mean)

如果您决定使用dplyr/data.table/sqldf，则等效代码为

  library(dplyr)
  mtcars %>%
       group_by(am, gear) %>%
       summarise_each(funs(mean), 1:4)

使用data.table

  library(data.table)#v1.9.5+
  as.data.table(mtcars)[, lapply(.SD, mean), by=.(am, gear), .SDcols=1:4]

使用sqldf

  library(sqldf)
  nm1 <- toString(sprintf("avg(%s) as %s", 
                  names(mtcars)[1:4], names(mtcars)[1:4]))
  fn$sqldf("select am, gear, $nm1 from mtcars group by am, gear")

Answer 2

由于数据帧也是列表，因此使用第二个参数的数据帧：

aggregate(mtcars[1:4], mtcars[c("am", "gear")], mean)

，并提供：

  am gear      mpg      cyl     disp       hp
1  0    3 16.10667 7.466667 326.3000 176.1333
2  0    4 21.05000 5.000000 155.6750 100.7500
3  1    4 26.27500 4.500000 106.6875  83.8750
4  1    5 21.38000 6.000000 202.4800 195.6000

如何在R中聚合时显示变量名称

2 个答案: