对中数据框，功能错误

Question

我正在尝试编写一个函数来逐列中心数据框。我想出了这个，但它给了我各种各样的错误：

centered_out<-apply(out,2 function(col){
  csum<-colSums(col)
  lapply(col,function(x)
    x-csum  
  )
  })

示例数据：

1
2
1
2
4

计算（平均值= 5）：

-4
-3
-4
-3
-1

我的最终目标是获取数据框中的所有数据，如上所述。

Answer 1

您可能正在寻找scale功能。示例：

scale(mtcars,scale=FALSE)

您也可以使用sweep。见??sweep。