将R代码转换为R风格

Question

有没有办法更有效地编写以下语句？加速是一个数据帧。

accel[[2]]<- accel[[2]]-weighted.mean(accel[[2]]) 
accel[[3]]<- accel[[3]]-weighted.mean(accel[[3]]) 
accel[[4]]<- accel[[4]]-weighted.mean(accel[[4]]) 

Answer 1

替代

accel[2:4] <- lapply(accel[2:4], function(x) x-weighted.mean(x)) 

Answer 2

这是一种做法。

accel[,2:4] = t(t(accel[,2:4]) - apply(accel[,2:4], 2, weighted.mean)) 

---

更正如下马雷克现货 - 谢谢。

士气：总是检查您的R代码发布之前！