R函数编写求助：基于鸢尾花数据集获取指定物种属性极值

我来帮你拆解代码里的几个关键问题，逐个调整后就能正常运行了：

1. 动态列引用的错误 #

你在函数里用new_table$y时，R会直接把y当成字面意义的列名（也就是找叫y的列），但你的参数y是传入的属性名称（比如Sepal.Width）。这里应该用**双括号[[ ]]**来引用动态列名，它能识别变量中的字符串作为列名：

themin <- min(new_table[[y]])
themax <- max(new_table[[y]])

2. 函数调用的参数类型不匹配 #

你调用函数时写的Sepal.Width是裸变量，但函数里的y需要字符串类型的列名，所以要给它加引号：

question_2("setosa", "Sepal.Width", iris)

3. return语句的逻辑错误 #

函数里第一个return(themin)执行后，函数会直接结束，后面的return(themax)永远不会被执行。你需要把两个值打包成列表或向量返回，比如：

return(list(min_value = themin, max_value = themax))

4. 空数据的容错处理 #

如果传入的物种名称不存在（比如拼写错成"setosaa"），new_table会是空的，这时候min()和max()就会抛出你看到的错误。可以加个判断提前处理这种情况：

if(nrow(new_table) == 0) {
  warning(paste("No observations found for species:", x))
  return(list(min_value = NA, max_value = NA))
}

修正后的完整代码 #

question_2 <- function(x, y, data){
  # 筛选指定物种的数据
  new_table <- subset(data, Species == x)
  
  # 处理空数据的情况
  if(nrow(new_table) == 0) {
    warning(paste("No observations found for species:", x))
    return(list(min_value = NA, max_value = NA))
  }
  
  # 计算指定属性的最小和最大值（加na.rm处理可能的缺失值）
  themin <- min(new_table[[y]], na.rm = TRUE)
  themax <- max(new_table[[y]], na.rm = TRUE)
  
  # 返回结果
  return(list(min_value = themin, max_value = themax))
}

# 测试函数
question_2("setosa", "Sepal.Width", iris)

运行后就能得到预期结果：

$min_value
[1] 2.3

$max_value
[1] 4.4

内容的提问来源于stack exchange，提问作者M.Crow