如何在R中的矩阵列表中添加每个矩阵的两列?

时间:2014-05-15 09:53:29

标签: r list matrix

我有一个矩阵列表,我希望通过计算平均值来组合两列,最后删除其中一列。我知道如何只使用一个矩阵,而不是列表中的许多矩阵。

假设我们有一个包含3列的矩阵。这就是我想要做的事情:

matrix <- matrix(1:9,ncol=3)
matrix[,2] <- (matrix[,2] + matrix[,3]) / 2
matrix <- matrix[,-3]

可以像这样删除列:

list <- lapply(list, function(x)x[,-3])

但是如何通过矩阵列表实现第一部分呢?

list <- list(matrix(1:9, ncol=3), matrix(3:11, ncol=3))

1 个答案:

答案 0 :(得分:4)

你的意思是这样的:

matrix_list <- list(m1 = matrix(runif(9), nrow=3), m2 = matrix(runif(9), nrow=3))
matrix_list <- lapply(matrix_list, function(x){
        x[,2] <- (x[,2] + x[,3]) / 2; 
        x <- x[,-3]; 
        return(x)})