R语言中，如何将基因表达矩阵当中重复的基因去除保留一个，基因表达量为重复基因的平均表达量

在R语言中，可以使用以下代码来实现基因表达矩阵中重复基因的去重和表达量的平均值计算：

# 假设基因表达矩阵为 gene_expression_matrix，其中每行表示一个基因，每列表示一个样本

# 获取所有基因的名称
gene_names <- rownames(gene_expression_matrix)

# 去除重复基因并计算平均表达量
unique_genes <- unique(gene_names)
reduced_expression_matrix <- matrix(0, nrow = length(unique_genes), ncol = ncol(gene_expression_matrix))
rownames(reduced_expression_matrix) <- unique_genes
for (i in 1:length(unique_genes)) {
  gene <- unique_genes[i]
  gene_indices <- which(gene_names == gene)
  reduced_expression_matrix[i, ] <- apply(gene_expression_matrix[gene_indices, ], 2, mean)
}

解释一下上述代码的思路：

首先，获取基因表达矩阵中所有基因的名称。

然后，使用 R 中的 unique() 函数获取所有不重复的基因名称。

接着，根据不重复的基因名称，创建一个新的基因表达矩阵 reduced_expression_matrix，该矩阵的行数为不重复的基因数，列数与原始基因表达矩阵相同。

最后，遍历每个不重复的基因，计算该基因在原始基因表达矩阵中的所有样本的平均表达量，并将结果保存到新的基因表达矩阵 reduced_expression_matrix 中。