移动表格中的位置 - R.

Question

在R中,考虑到通用矩阵A,如何将三角形NA移动到矩阵B中的位置？如果矩阵是mxn怎么办？

> A <- matrix(c(3, NA, NA, 4, 2, NA, 1, 5, 3), nrow = 3)
> A
     [,1] [,2] [,3]
[1,]    3    4    1
[2,]   NA    2    5
[3,]   NA   NA    3


> B <- matrix(c(3, 2, 3, 4, 5, NA, 1, NA, NA), nrow = 3)
> B
     [,1] [,2] [,3]
[1,]    3    4    1
[2,]    2    5   NA
[3,]    3   NA   NA

谢谢!

Answer 1

我不知道是否有更惯用的方式,但这似乎做你想要的:

A <- matrix(c(3, NA, NA, 4, 2, NA, 1, 5, 3), nrow = 3)
A

     [,1] [,2] [,3]
[1,]    3    4    1
[2,]   NA    2    5
[3,]   NA   NA    3

t(apply(A, 1, function(x) x[order(is.na(x))]))

     [,1] [,2] [,3]
[1,]    3    4    1
[2,]    2    5   NA
[3,]    3   NA   NA

A <- matrix(c(3, NA, NA, NA, 4, 2, NA, NA, 1, 5, 3, NA), nrow=4)
A

     [,1] [,2] [,3]
[1,]    3    4    1
[2,]   NA    2    5
[3,]   NA   NA    3
[4,]   NA   NA   NA


t(apply(A, 1, function(x) x[order(is.na(x))]))

     [,1] [,2] [,3]
[1,]    3    4    1
[2,]    2    5   NA
[3,]    3   NA   NA
[4,]   NA   NA   NA

A <- matrix(c(3, NA, NA, 4, 2, NA, 1, 5, 3, 6, 7, 8), nrow=3)
A

     [,1] [,2] [,3] [,4]
[1,]    3    4    1    6
[2,]   NA    2    5    7
[3,]   NA   NA    3    8

t(apply(A, 1, function(x) x[order(is.na(x))]))

     [,1] [,2] [,3] [,4]
[1,]    3    4    1    6
[2,]    2    5    7   NA
[3,]    3    8   NA   NA