如何在R矩陣列表中的每個矩陣中添加兩列？

Question

我有一個矩陣列表，我想通過計算均值來合並兩列，最后刪除其中之一。 我知道如何只用一個矩陣而不用列表中的許多矩陣來做到這一點。

假設我們有一個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))

Answer 1

您的意思是這樣的嗎：

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)})