如何在R中读取列堆叠的文本文件并转换为200×200矩阵

你的数据文件是R矩阵打印输出的格式，包含行标记（如[1,]）、列标记（如[,1]），且列被分段展示，需要先清理这些无关内容，再重新整理成200×200的矩阵。

步骤1：读取并清理文本内容 #

用readLines读取文件后，过滤掉列标记行，移除行标记，提取所有数值：

# 读取目标txt文件
lines <- readLines("your_file.txt")

# 过滤掉仅包含列标题的行（比如开头带`[,1]`的行）
lines_clean <- lines[!grepl("^\\s*\\[.*\\,.*\\]", lines)]

# 移除每行的行标记（如`[1,]`），并分割字符串提取数值
values <- unlist(strsplit(gsub("^\\s*\\[.*\\,\\]", "", lines_clean), "\\s+"))

# 清理空字符串并转换为数值类型
values_num <- as.numeric(values[values != ""])

步骤2：重塑为200×200矩阵 #

确认数值总数为40000（200×200）后，用matrix函数按行填充生成矩阵：

# 验证数值数量是否正确
length(values_num) == 200*200 # 应返回TRUE

# 生成200×200矩阵，按行填充
final_matrix <- matrix(values_num, nrow = 200, ncol = 200, byrow = TRUE)

# 如需转为dataframe格式
final_df <- as.data.frame(final_matrix)

验证结果 #

查看前几行几列确认格式正确：

head(final_matrix[,1:10])

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