在ddply上使用data.frame或df的特定cols上的函数

Question

我想在数据框（或数据框的选定列）上应用winsorize函数/或任何其他函数，而不是更改该数据框的结构。我不明白我做错了什么：

library(plm)     # required for dataset Grunfeld
library(plyr)    
library(robustHD) # with winsorize function
data(Grunfeld)
head(Grunfeld)

Grunfeld.w<-ddply(Grunfeld, c("year"), function(df) winsorize(df))

# or on specific cols: 
Grunfeld.w2<- ddply(Grunfeld, c("year"), function(df) 
                    c(winsorize(df$inv),winsorize(df$capital)))

该问题与特定的winsorize函数无关，而与任何以完全相同的结构返回输出的函数无关（与mean（）或其他函数不同）。