Warning: file_get_contents(/data/phpspider/zhask/data//catemap/7/sql-server/21.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 删除选定列中缺少数据的行,前提是这些行没有';t所有列中都没有缺失数据(最好使用完整的.cases)_R_Na - Fatal编程技术网

R 删除选定列中缺少数据的行,前提是这些行没有';t所有列中都没有缺失数据(最好使用完整的.cases)

R 删除选定列中缺少数据的行,前提是这些行没有';t所有列中都没有缺失数据(最好使用完整的.cases),r,na,R,Na,因此,我试图删除某些列中缺少数据的行,而不是所有列中都缺少数据的行 在旁边使用行和!is.na()在数据集底部为我提供了1000行na。这里的顶部答案提供了一种使用complete.cases解决问题的好方法: i、 e data\u set1尝试使用rowSums如: cols <- 11:103 vals <- rowSums(is.na(data_set1[cols])) data_set2 <- data_set1[!(vals > 0 & vals &

因此,我试图删除某些列中缺少数据的行,而不是所有列中都缺少数据的行

旁边使用
行和
!is.na()
在数据集底部为我提供了1000行na。这里的顶部答案提供了一种使用complete.cases解决问题的好方法:

i、 e


data\u set1尝试使用
rowSums
如:

cols <- 11:103
vals <- rowSums(is.na(data_set1[cols]))
data_set2 <- data_set1[!(vals > 0 & vals < length(cols)), ]

用可复制的例子

df <- data.frame(a = c(1, 2, 3, NA, 1), b = c(NA, 2, 3, NA, NA), c = 1:5)
cols <- 1:2

vals <- rowSums(is.na(df[cols]))
df[!(vals > 0 & vals < length(cols)), ]

#   a  b c
#2  2  2 2
#3  3  3 3
#4 NA NA 4
df
df <- data.frame(a = c(1, 2, 3, NA, 1), b = c(NA, 2, 3, NA, NA), c = 1:5)
cols <- 1:2

vals <- rowSums(is.na(df[cols]))
df[!(vals > 0 & vals < length(cols)), ]

#   a  b c
#2  2  2 2
#3  3  3 3
#4 NA NA 4