R语言矩阵生成程序异常求助：输入数据无法正确转换为矩阵

原代码的核心问题 #

• strsplit() 返回的是列表对象，不是直接的向量，所以 length(input_split) 的值始终为1，导致 rows1 = 1/2 = 0.5，完全不符合矩阵行数的合理要求。
• 未对拆分后的字符串做类型转换，最终生成的矩阵会是字符类型，而非预期的数值类型（若输入为数字）。
• 行数计算逻辑错误：若要生成方阵，应该基于拆分后数据的总长度取平方根，而非列表的长度。

修正后的代码 #

# 读取用户输入
user_input <- readline(prompt = "Enter the data (comma-separated): ")

# 拆分输入并转换为一维向量（解除列表结构）
input_vec <- unlist(strsplit(user_input, ","))
# 转换为数值类型（适配数字输入场景）
input_vec <- as.numeric(input_vec)

# 验证输入数据量是否符合方阵要求
n <- length(input_vec)
rows1 <- sqrt(n)
if (rows1 != as.integer(rows1)) {
  stop("输入数据的数量必须是完全平方数（如4、9、16等）")
}

# 生成目标方阵
finalmatrix <- matrix(input_vec, nrow = rows1, ncol = rows1)
print(finalmatrix)

关键修正点说明 #

• 用 unlist() 拆解 strsplit() 返回的列表，得到能正确统计长度的一维向量。
• 添加 as.numeric() 类型转换，确保矩阵存储的是数值而非字符。
• 增加输入验证逻辑，避免因数据量不匹配生成异常矩阵。
• 基于拆分后数据的真实长度计算方阵行数，保证逻辑合理性。

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