使用多个参数应用函数

Question

以下是数据来源：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)

Answer 1

重新调整pop2010以避免整数溢出。

with(county, tapply((pop2010/10000)*per_capita_income, state, function(x) x/length(x))) 

由jbaums发布的答案