应用具有多个参数的函数
Apply Function with multiple parameter
这里是数据来源:https://www.dropbox.com/s/z5jsvwbzz5fumqp/countyComplete.csv?dl=0
我想为每个县乘以 2 列 (pop2010 * percapitaincome),然后除以州计数,按州分组。
我如何使用 R 中的任何应用函数来做到这一点。
这是我的尝试
myfun<-function(x,y){
x*y
}
y<-county$per_capita_income
t<-tapply(county$pop2010,county$state,myfun,y=y)
重新缩放 pop2010 以避免整数溢出。
with(county, tapply((pop2010/10000)*per_capita_income, state, function(x) x/length(x)))
jbaums 发布的答案
这里是数据来源:https://www.dropbox.com/s/z5jsvwbzz5fumqp/countyComplete.csv?dl=0
我想为每个县乘以 2 列 (pop2010 * percapitaincome),然后除以州计数,按州分组。
我如何使用 R 中的任何应用函数来做到这一点。
这是我的尝试
myfun<-function(x,y){
x*y
}
y<-county$per_capita_income
t<-tapply(county$pop2010,county$state,myfun,y=y)
重新缩放 pop2010 以避免整数溢出。
with(county, tapply((pop2010/10000)*per_capita_income, state, function(x) x/length(x)))
jbaums 发布的答案