如何在R中拆分应用合并几个变量/列

Question

我想按组对几个变量执行功能。

伪数据；

df<-data.frame(rnorm(100,mean=10), 
               rnorm(100,mean=15),
               rnorm(100,mean=20),
               rep(letters[1:10],each=10)
               )
colnames(df)<-c("var1","var2","var3","group1")

在这种情况下，我想将每个变量按组居中。 我想返回一个带有原始变量和居中变量的数据框。

通常我为此使用PLYR包；

library(plyr)    
ddply(df, "group1", transform, centered_var1= scale(var1, scale=FALSE))

但是，我无法成功地循环执行此功能，也无法想到实现此目的的另一种最小代码方式。

我对非PLYR解决方案持开放态度...我的主要标准是将代码保持在最低限度。

Answer 1

使用dplyr

library(dplyr)
df %>% group_by(group1) %>%
  mutate_each(funs(scale(., scale=F))) -> res

Answer 2

colwise函数可能就是您想要的。

library("plyr")
ddply(df, .(group1), colwise(scale, scale = FALSE))

Answer 3

这是你想要的吗？

ddply(df, "group1", transform, centered_var1= scale(var1, scale=FALSE),
      centered_var2 = scale(var2, scale=FALSE),
      centered_var3 = scale(var3, scale=FALSE))