У меня есть две матрицы с одинаковым количеством строк и столбцов, и я хотел бы объединить их по их индексу, чтобы создать новую матрицу (я не знаю заранее ни nrow (), ни ncol (), nrow () исходит из k k означает центр тяжести кластеров, а ncol () исходит из значений k 'knn)
A <- matrix(sample(letters), ncol = 10, nrow = 3)
B <- matrix(sample(letters), ncol = 10, nrow = 3)
A
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] "h" "p" "j" "w" "z" "e" "q" "o" "s" "y"
[2,] "y" "b" "k" "t" "a" "v" "f" "x" "c" "r"
[3,] "r" "i" "m" "g" "d" "n" "l" "u" "h" "p"
B
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] "k" "q" "l" "n" "o" "r" "u" "b" "s" "y"
[2,] "y" "f" "v" "c" "t" "w" "h" "a" "d" "x"
[3,] "x" "e" "j" "g" "m" "i" "p" "z" "k" "q"
Нахожу их индекс:
a <- which(A !=0, arr.ind = T)
b <- which(B !=0, arr.ind = T)
Я хотел бы, чтобы окончательная матрица объединяла A и B по строке и по индексу столбца, чтобы A [1,1] находился непосредственно перед B [1,1]
A[1,1] B[1,1] A[1,2] B[1,2] A[1,3] B[1,3] A[1,4] B[1,4] ...
A[2,1] B[2,1] A[2,2]] B[2,2] A[2,3] B[2,3] A[2,4] B[2,4] ...
A[3,1] B[3,1] A[3,2] B[3,2] A[3,3] B[3,3] A[3,4] B[3,4] ...
Так, например, первая строка будет:
h k p q j l w n z o
Я обнаружил здесь, что функция lapply выполняет свою работу, но дает мне список :
t <- lapply(1:length(knn.mat),
function(i){cbind(A[i], B[i])})
Я не могу просто исключить список, потому что я заранее не знаю, сколько строк и столбцов будет в моей входной матрице, и я хотел бы получить матрицу или фрейм данных в качестве выходных данных, возможно, что-то с циклом for, которое я мог бы использовать с функцией из применяемой семьи? (этот не работает)
doMat <- function(x,y){
X <- matrix(0, nrow = nrow(x), ncol = ncol(x)*2)
for (i in 1:nrow(x))
{
X[i] <- cbind(x[i],y[i])
i = i+1
}
return(X)}