R中使用循环修改单列单元格值并生成新数据框的实现方法咨询

第一步：构造原始数据框 #

先按照你给出的结构生成原始数据，可直接运行以下代码：

df <- data.frame(
  MAG1 = c(241, 34, 231, 3),
  MAG2 = c(32, 9, 675, 88),
  MAG3 = c(748, 0, 48, 276),
  MAG4 = c(8, 353, 9, 0),
  row.names = c("Sample1", "Sample2", "Sample3", "Sample4")
)

第二步：循环替换生成新数据框 #

这里提供两种存储方式，优先推荐列表存储，避免全局环境变量过多，也方便后续批量处理。

方案1：新数据框存为列表（推荐） #

# 提取Sample2-Sample4的MAG1列取值作为替换值
replace_vals <- df$MAG1[2:4]
# 初始化存储列表
df_list <- list()

for (i in seq_along(replace_vals)) {
  # 复制原始数据，避免修改原表
  temp_df <- df
  # 替换Sample1行MAG1列的值
  temp_df["Sample1", "MAG1"] <- replace_vals[i]
  # 列表元素命名规则：替换值来自对应Sample
  df_list[[paste0("df_replace_Sample", i+1)]] <- temp_df
}

调用方式：比如要获取替换为Sample2值的新表，直接取df_list$df_replace_Sample2即可。

方案2：直接生成独立的全局数据框 #

如果你需要直接得到3个独立的dataframe对象，在上述代码基础上再加一行即可：

# 将列表中的所有数据框导入全局环境
list2env(df_list, envir = .GlobalEnv)

运行后你将在环境中直接得到3个独立对象：

• df_replace_Sample2：Sample1的MAG1值替换为Sample2的MAG1值34
• df_replace_Sample3：Sample1的MAG1值替换为Sample3的MAG1值231
• df_replace_Sample4：Sample1的MAG1值替换为Sample4的MAG1值3

验证示例 #

你可以运行以下代码验证替换结果：

print(df_replace_Sample2)

输出结果：
MAG1 MAG2 MAG3 MAG4
Sample1 34 32 748 8
Sample2 34 9 0 353
Sample3 231 675 48 9
Sample4 3 88 276 0

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