编写/应用“减去均值”函数来标准化回归参数

所以与其写作 x-mean(x,na.rm=T)

以下是我尝试的:

fun <- function(data.frame, x){
data.frame$x - mean(data.frame$x, na.rm=T)
}

显然,这并没有错。至少它不会返回错误消息。

fun mtcars 数据集和变量 disp 产生此错误消息:

#Loading the data:
 data("mtcars")

fun(mtcars,x=disp) #I tried several ways, e.g. w and w/o "mtcars" in front

Warning message:
 In mean.default(mtcars$x, na.rm = T) :
  argument is not numeric or logical: returning NA

此外,我还在寻找关于编写和应用这样一个函数的类似问题(也超越了堆栈交换领域),但我没有发现任何有用的东西。

希望我没有因为我的新手R技能而犯错误。