批量生成矩阵：Wordle数值块转矩阵的自动化实现方法

针对你有上万行Wordle数值（每5行对应一个5×5矩阵）的需求，以下是高效的自动化处理流程：

步骤1：读取数据 #

假设你的数值以纯文本形式存储（每行是5位数字字符串，如22201），先读取所有数据行：

# 替换为你的数据文件路径
data_lines <- readLines("wordle_data.txt")

步骤2：按组分割数据 #

将所有行按每5行一组拆分，对应每个Wordle答案的矩阵：

# 生成分组索引，每5行划分为一组
groups <- split(data_lines, ceiling(seq_along(data_lines)/5))

# 可选：过滤掉行数不足5的无效组（若数据末尾有残缺）
groups <- groups[sapply(groups, length) == 5]

步骤3：批量转换为矩阵 #

定义转换函数，批量将每组字符串转为5×5数值矩阵：

# 单组字符串转矩阵的函数
str_to_matrix <- function(str_vec) {
  # 拆分每个字符串为单个字符→转数值→构造5行5列矩阵（按行填充，匹配手动rbind逻辑）
  matrix(
    as.integer(unlist(strsplit(str_vec, ""))),
    nrow = 5,
    byrow = TRUE
  )
}

# 批量处理所有组，结果存入列表（推荐用列表管理大量矩阵，避免环境变量混乱）
wordle_matrices <- lapply(groups, str_to_matrix)

可选：生成命名全局变量 #

如果你需要像手动那样生成w1、w2这类命名变量，可以执行以下代码：

# 循环生成w1、w2...变量并放入全局环境
for (idx in seq_along(wordle_matrices)) {
  assign(paste0("w", idx), wordle_matrices[[idx]])
}

验证结果 #

查看第一个矩阵，确认和手动生成的逻辑一致：

# 查看列表中第一个矩阵
wordle_matrices[[1]]
# 或直接调用w1（如果执行了可选步骤）

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