R语言自定义stats函数调用mtcars数据集报错求助

错误根源 #

1. 变量引用方式错误：你用dataset$variable的写法无法正确获取传入的列。R会把$后的variable当作字面列名，去数据集里找名为"variable"的列，而不是你实际传入的mpg列，所以所有统计函数都拿到了空值，触发警告和NA结果。
2. 函数返回值缺失：原函数里依次执行了min、max等计算，但R函数默认只返回最后一行代码的结果，即使前面计算正确，你也只能看到标准差的值，其他统计量会被直接丢弃。

修正后的函数（两种可选写法） #

写法1：支持传入不带引号的列名（和你原调用方式一致） #

stats <- function(dataset, variable){
  # 将传入的变量名转为字符串，再提取对应列
  var_col <- deparse(substitute(variable))
  var_data <- dataset[[var_col]]
  
  # 把所有统计量整合为列表返回
  list(
    最小值 = min(var_data),
    最大值 = max(var_data),
    中位数 = median(var_data),
    平均值 = mean(var_data),
    标准差 = sd(var_data)
  )
}

# 调用方式不变
stats(mtcars, mpg)

写法2：传入带引号的列名（更直观，适合新手） #

stats <- function(dataset, variable){
  # 直接用字符串索引提取列
  var_data <- dataset[[variable]]
  
  list(
    最小值 = min(var_data),
    最大值 = max(var_data),
    中位数 = median(var_data),
    平均值 = mean(var_data),
    标准差 = sd(var_data)
  )
}

# 调用时列名加引号
stats(mtcars, "mpg")

调用结果示例 #

执行修正后的函数，会返回包含所有统计量的列表：

$最小值
[1] 10.4

$最大值
[1] 33.9

$中位数
[1] 19.2

$平均值
[1] 20.09062

$标准差
[1] 6.026948

内容的提问来源于stack exchange，提问作者Rbrown1231