R语言函数可打印输出但无法填充DataFrame，求问题排查

问题核心原因 #

R的作用域规则限制了函数对全局变量的修改：函数内部默认操作的是局部环境中的变量副本，你在fill_data_frame里修改的data_frame_Treatment是函数内部生成的临时副本，和全局环境中定义的那个DataFrame不是同一个对象。所以函数执行时能打印出临时副本的内容，但全局的DataFrame不会被更新。

另外你的循环逻辑可以简化，不用逐个判断层级名称，直接遍历层级索引更高效。

两种解决方案 #

方案1：用<<-直接修改全局变量

这种方式跳过局部环境，直接对全局环境中的变量赋值，适合简单场景：

library(vcd)
data("Arthritis")

data_frame_Treatment = data.frame(matrix(nrow = length(levels(Arthritis$Treatment)), ncol = 3, dimnames = list(c(),c("Levels","Frequency","Mean of ages"))),stringsAsFactors = F)


fill_data_frame = function(levelname, rowNum, columnNum){
  
  data_subset = subset(Arthritis,Arthritis[,columnNum] == levelname)
  
  # 使用<<-将值赋给全局环境中的data_frame_Treatment
  data_frame_Treatment[rowNum,1] <<- levelname
  print(data_frame_Treatment[rowNum, 1])
  
  data_frame_Treatment[rowNum,2] <<- nrow(data_subset)
  print(data_frame_Treatment[rowNum, 2])
  
  data_frame_Treatment[rowNum,3] <<- mean(data_subset[["Age"]])
  print(data_frame_Treatment[rowNum, 3])
 
}


# 简化循环逻辑
for (i in seq_along(levels(Arthritis$Treatment))) {
  fill_data_frame(levels(Arthritis$Treatment)[i], i, 2)
}

# 验证结果
data_frame_Treatment

方案2：函数返回修改后的DataFrame（更推荐）

这种方式符合R的函数式编程思想，避免直接操作全局变量，代码更易维护和调试：

library(vcd)
data("Arthritis")

data_frame_Treatment = data.frame(matrix(nrow = length(levels(Arthritis$Treatment)), ncol = 3, dimnames = list(c(),c("Levels","Frequency","Mean of ages"))),stringsAsFactors = F)


fill_data_frame = function(target_df, levelname, rowNum, columnNum){
  
  data_subset = subset(Arthritis,Arthritis[,columnNum] == levelname)
  
  # 修改传入的DataFrame副本
  target_df[rowNum,1] = levelname
  target_df[rowNum,2] = nrow(data_subset)
  target_df[rowNum,3] = mean(data_subset[["Age"]])
  
  # 返回修改后的对象
  return(target_df)
}


# 循环中重新赋值给全局变量
for (i in seq_along(levels(Arthritis$Treatment))) {
  data_frame_Treatment = fill_data_frame(data_frame_Treatment, levels(Arthritis$Treatment)[i], i, 2)
}

# 验证结果
data_frame_Treatment

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