如何将R全局环境中大量独立对象保存为值表格并导出文本文件？

一、将全局环境中的独立对象保存为值表格 #

首先筛选全局环境中需要的对象（示例中排除函数类型，只保留数据类对象）：

# 获取全局环境内非函数类型的对象列表
target_objs <- Filter(function(x) !is.function(get(x)), ls(envir = .GlobalEnv))

接下来将这些对象的名称和对应值整理成表格：

• 如果对象都是标量/等长向量，直接构建数据框：

# 生成包含对象名和值的表格
value_table <- data.frame(
  对象名称 = target_objs,
  对象值 = sapply(target_objs, get, envir = .GlobalEnv),
  stringsAsFactors = FALSE
)

• 如果包含数据框、列表等复杂对象，可将内容转为字符型存储，或展开为多行：

# 处理复杂对象，捕获打印内容作为值
value_table <- data.frame(
  对象名称 = target_objs,
  对象值 = sapply(target_objs, function(x) capture.output(print(get(x))), simplify = FALSE),
  stringsAsFactors = FALSE
)

# 可选：用tidyr展开为多行（需先安装tidyr包）
# install.packages("tidyr")
library(tidyr)
expanded_table <- unnest(value_table, cols = c(对象值))

最后将表格保存为本地文件（如CSV）：

write.csv(value_table, "全局对象值表格.csv", row.names = FALSE, fileEncoding = "UTF-8")

二、导出全局环境对象的文本文件 #

方式1：每个对象单独导出为文本文件 #

循环遍历目标对象，根据类型写入对应文本文件：

for (obj_name in target_objs) {
  obj_content <- get(obj_name, envir = .GlobalEnv)
  file_path <- paste0(obj_name, ".txt")
  
  # 针对向量/矩阵直接写入，复杂对象捕获打印内容
  if (is.vector(obj_content) || is.matrix(obj_content)) {
    write.table(obj_content, file_path, row.names = FALSE, col.names = FALSE, quote = FALSE, fileEncoding = "UTF-8")
  } else {
    writeLines(capture.output(print(obj_content)), file_path, useBytes = TRUE)
  }
}

方式2：将所有对象信息汇总到单个文本文件 #

用sink()捕获控制台输出，写入汇总文件：

# 开启输出重定向到文本文件
sink("全局环境对象汇总.txt", fileEncoding = "UTF-8")
cat("全局环境对象列表及详细内容:\n\n")

for (obj_name in target_objs) {
  cat("=== 对象名称：", obj_name, " ===\n")
  print(get(obj_name, envir = .GlobalEnv))
  cat("\n")
}

# 关闭输出重定向
sink()

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