在R中用修剪的方法聚合

时间:2013-03-27 15:20:41

标签: r aggregate mean

我正在尝试在R中汇总这样的数据:

df = data.frame(c("a","a","a","a","a","b","b","b","b","b","c","c","c"))
colnames(df) = "f"
set.seed(10)
df$e = rnorm(13,20,5)

    f   e
1   a   20.09373
2   a   19.07874
3   a   13.14335
4   a   17.00416
5   a   21.47273
6   b   21.94897
7   b   13.95962
8   b   18.18162
9   b   11.86664
10  b   18.71761
11  c   25.50890
12  c   23.77891
13  c   18.80883

我希望通过列 f 进行汇总,并为每个唯一的 f 修剪 em> type(即产生3行数据)。

我试过了:

df2=data.frame(0) 
df2=aggregate(df$e, by = "f",mean(df$e, trim=0.1))

收到以下错误:

Error in match.fun(FUN) : 
  'mean(df$e, trim = 0.1)' is not a function, character or symbol

在网上尝试了一些搜索,然后空了。我的实际数据包含大约30个 e 每个 f 的值,所以我不担心trim=0.1实际上不会修改示例中的均值(因为没有点位于上下第5百分位之外)它将与实际数据一起,这只是为了使聚合函数按预期工作。谢谢!

1 个答案:

答案 0 :(得分:4)

试试这个

df2=aggregate(e~f,data=df,mean,trim=0.1)
  f        e
1 a 18.15854
2 b 16.93489
3 c 22.69888

在这种情况下用于计算的函数只能通过其名称给出,例如mean,并且在逗号后设置该函数所需的其他参数。