将一个非常大的稀疏矩阵写入R中的文件

# 安装并加载Matrix包
if (!requireNamespace("Matrix", quietly = TRUE)) {
  install.packages("Matrix")
}
library(Matrix)

# 创建一个稀疏矩阵
data <- c(1, 2, 3, 4)
row_indices <- c(1, 2, 3, 4)
col_indices <- c(1, 2, 3, 4)
sparse_matrix <- sparseMatrix(i = row_indices, j = col_indices, x = data, dims = c(5, 5))

# 将稀疏矩阵写入文件
writeMM(sparse_matrix, file = "sparse_matrix.mtx")

# 分块处理示例
chunk_size <- 1000
num_chunks <- ceiling(nrow(sparse_matrix) / chunk_size)

for (i in 1:num_chunks) {
  start_row <- (i - 1) * chunk_size + 1
  end_row <- min(i * chunk_size, nrow(sparse_matrix))
  chunk <- sparse_matrix[start_row:end_row, ]
  writeMM(chunk, file = paste0("sparse_matrix_chunk_", i, ".mtx"))
}