有没有办法将 ddply/sapply 中的变量值直接传递给没有函数 (x) 符号的函数?

例如。代替:
ddply(bu,.(trial), function (x) print(x$tangle) )

有没有办法做到:
ddply(bu,.(trial), print(tangle))

我问是因为有很多变量,这个符号变得非常麻烦。

谢谢!

最佳答案

只需在 **ply 命令中添加您的函数参数。例如:

ddply(my_data, c("var1","var2"), my_function, param1=something, param2=something)

my_function 通常看起来像
my_function(x, param1, param2)

这是一个工作示例:
require(plyr)

n=1000
my_data = data.frame(
    subject=1:n,
    city=sample(1:4, n, T),
    gender=sample(1:2, n, T),
    income=sample(50:200, n, T)
    )


my_function = function(data_in, dv, extra=F){
    dv = data_in[,dv]
    output = data.frame(mean=mean(dv), sd=sd(dv))
    if(extra) output = cbind(output,  data.frame(n=length(dv), se=sd(dv)/sqrt(length(dv)) )  )
    return(output)
}

#with params
ddply(my_data, c("city", "gender"), my_function, dv="income", extra=T)

  city gender     mean       sd   n       se
1    1      1 127.1158 44.64347  95 4.580324
2    1      2 125.0154 44.83492 130 3.932283
3    2      1 130.3178 41.00359 107 3.963967
4    2      2 128.1608 43.33454 143 3.623816
5    3      1 121.1419 45.02290 148 3.700859
6    3      2 120.1220 45.01031 123 4.058443
7    4      1 126.6769 38.33233 130 3.361968
8    4      2 125.6129 44.46168 124 3.992777

#without params
ddply(my_data, c("city", "gender"), my_function, dv="income", extra=F)

  city gender     mean       sd
1    1      1 127.1158 44.64347
2    1      2 125.0154 44.83492
3    2      1 130.3178 41.00359
4    2      2 128.1608 43.33454
5    3      1 121.1419 45.02290
6    3      2 120.1220 45.01031
7    4      1 126.6769 38.33233
8    4      2 125.6129 44.46168

关于function - 关于 sapply/plyr 语法 : how to pass variable values to a function 的 R 问题,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/4808657/

10-12 23:35