R语言代码单独运行正常，封装为函数后失效求助

你的函数无法正常工作的核心原因有两点：

• 函数未返回处理后的完整数据集：R函数默认返回最后一条语句的执行结果，你最后一条语句是给n$Variables赋值，因此返回的是行名向量而非目标dataframe。
• 注释掉了删除原行名的代码，也未实现列重排逻辑，和外部可行代码的完整逻辑不一致。

修复后的完整函数 #

dataframe_function<-function(data) {
  # 转换表格为dataframe
  n <- as.data.frame.matrix(data)
  # 将行名转为单独列
  n$Variable <- row.names(n)
  # 删除原行名
  row.names(n) <- NULL
  # 重排列顺序：将Variable列置于最前，后续为原数据列
  n <- n[, c("Variable", setdiff(colnames(n), "Variable"))]
  # 返回处理后的数据集
  return(n)
}

测试验证 #

# 示例数据
tb <- matrix(rep(2, times=8), ncol=2, byrow=TRUE)
tb <- as.table(tb)

# 调用函数
df1 <- dataframe_function(tb)
df1

执行后将得到预期结果：

Variable A B
1        1 2 2
2        2 2 2
3        3 2 2
4        4 2 2

关键细节说明 #

• 必须通过return(n)（或直接将n作为函数最后一行）返回处理后的数据集，否则函数只会返回最后一步赋值操作的结果。
• 使用setdiff(colnames(n), "Variable")自动获取原数据列名，替代硬编码的列名（如示例中的"A"、"B"），让函数适配更多不同列名的输入数据。

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