R 删除缺失值超过阈值的行缺失值_R

R 删除缺失值超过阈值的行缺失值

R 删除缺失值超过阈值的行缺失值,r,R,我有一个缺少值的矩阵 A <- array(c(1, NA, 3, NA, 4, 5, 7, NA, 2 ), dim=c(3,3)) A您需要指定[的行选择器参数： A[rowSums(is.na(A)) < ncol(A)/2, ] upvote是否制作一个好的可复制示例未经测试？对我来说，它生成：[1]3 5 2对我来说。@LoveDestination，将a重置为您最初指定的状态，然后再次复制并粘贴我的代码。我得到的结果如上所述。我没有手动生成答案的文本（只是从我的终端复

我有一个缺少值的矩阵

A <- array(c(1, NA, 3, NA, 4, 5, 7, NA, 2 ), dim=c(3,3))

A您需要指定[
的行选择器参数：
A[rowSums(is.na(A)) < ncol(A)/2, ]

upvote是否制作一个好的可复制示例未经测试？对我来说，它生成：[1]3 5 2对我来说。@LoveDestination，将a重置为您最初指定的状态，然后再次复制并粘贴我的代码。我得到的结果如上所述。我没有手动生成答案的文本（只是从我的终端复制粘贴）.我的错…有问题的A中有额外的括号，我现在已经编辑过了。
B <- A[,colSums(is.na(A)) < nrow(A)/2]

B <- A[,rowSums(is.na(A)) < ncol(A)/2]

A[rowSums(is.na(A)) < ncol(A)/2, ]

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