在R中分组，ddply与weighted.mean

I am trying to do a "group by" - style weighted mean in R. With some basic mean the following code (using the plyr package from Hadley) worked well. I am trying to do a "group by" - style weighted