如何更改 R 中不同矩阵列表的列名和行名，每个矩阵都有唯一的列名和行名？

Question

所以我有一个样本清单。 每个样本都有自己的矩阵文件、自己的行名文件和自己的列名文件。 到目前为止，我有读取每个文件的循环（例如，读取所有矩阵的循环，读取所有行名的循环，以及读取所有列名的循环）。

我的印象是先制作矩阵，然后在事后更改列名和行名是一种很好的做法，但是当我有一个完全不同的矩阵列表时，我不知道该怎么做另一个，以及每个矩阵唯一的列名和行名。 因此，例如，我尝试将行名称循环的结果添加到我从矩阵循环创建的矩阵中。 我也尝试了使用列名，但它返回了以下错误：

尝试添加列名时出错

这是我到目前为止所拥有的：

#Loading in data ----------------------------------------------------------------

filePaths = getGEOSuppFiles("GSE136103") 
tarF <- list.files(path = "./GSE136103/", pattern = "*.tar", full.names = TRUE) 
untar(tarF, exdir = "./GSE136103/") 
gzipF <- list.files(path = "./GSE136103/", pattern = "*.gz", full.names = TRUE) 
ldply(.data = gzipF, .fun = gunzip) 


#making list of matrices---------------------------------------------------------

mylist<-c("./GSE136103/GSM4041150_healthy1_cd45+_matrix.mtx", 
          "./GSE136103/GSM4041151_healthy1_cd45-A_matrix.mtx",
          "./GSE136103/GSM4041152_healthy1_cd45-B_matrix.mtx")


LoopList_test <- list()

for (i in 1:length(mylist)){
  
  matrix_input <- readMM(file =mylist[i])
  matrix_input <- as.matrix(matrix_input) 
  
  LoopList_test[[i]] <- matrix_input
  
}

LoopList_test[1:5]
  

#reading the row name files -----------------------------------------------------

gene_name_list <- c("./GSE136103/GSM4041150_healthy1_cd45+_genes.tsv", 
                    "./GSE136103/GSM4041151_healthy1_cd45-A_genes.tsv",
                    "./GSE136103/GSM4041152_healthy1_cd45-B_genes.tsv")
  
for (i in 1:length(gene_name_list)){
  rowname_gene_input <- read.table(file = gene_name_list[i], 
                                   sep = '\t', header = FALSE, stringsAsFactors = FALSE)
}

#making the gene names the rows of the matrix
for (i in 1:length(LoopList_test)){
  LoopList_test <- lapply(LoopList_test, function(x) {rownames(x) <- rowname_gene_input[,2];x})
  #rownames(LoopList_test[i]) <- rowname_gene_input[,2]

}

LoopList_test[1:5]


#reading the column name files ------------------------------------------------------

barcode_name_list <- c("./GSE136103/GSM4041150_healthy1_cd45+_barcodes.tsv", 
                       "./GSE136103/GSM4041151_healthy1_cd45-A_barcodes.tsv",
                       "./GSE136103/GSM4041152_healthy1_cd45-B_barcodes.tsv") 

for (i in 1:length(barcode_name_list)){
  colname_barcode_input <- read.table(file = barcode_name_list[i], 
                                      sep = '\t', header = FALSE, stringsAsFactors = FALSE)
}

#making the barcodes the columns of the matrices
for (i in 1:length(LoopList_test)){
  LoopList_test <- lapply(LoopList_test, function(x) {colnames(x) <- colname_barcode_input[,1];x})

}

对不起，如果这很长，感谢阅读！