应用具有多个参数的函数

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 发布的答案