将矩阵的每一列写入R中的不同文本文件

# 示例矩阵数据
matrix_data <- matrix(1:12, nrow = 4)

# 确定矩阵的列数
num_cols <- ncol(matrix_data)

# 循环遍历每一列，并将每一列的数据写入不同的文本文件
for (col_index in 1:num_cols) {
  # 获取当前列的数据
  column_data <- matrix_data[, col_index]
  
  # 构造文件名
  file_name <- paste0("column_", col_index, ".txt")
  
  # 将数据写入文本文件
  write.table(column_data, file = file_name, row.names = FALSE, col.names = FALSE)
  
  # 输出文件路径
  cat("列", col_index, "的数据已写入文件", file_name, "\n")
}