R中是否有變量complete.cases的類比？

這裏是爲了說明一個例子：R中是否有變量complete.cases的類比？

x = data.frame(x1=1:3, x2=2:4, x3=3:5) 
x 
# x1 x2 x3 
# 1 1 2 3 
# 2 2 3 4 
# 3 3 4 5 
x[2, 1] = NA 
x[3, 2] = NA 
complete.cases(x) 
# [1] TRUE FALSE FALSE 
x[complete.cases(x), , drop=FALSE] 
# x1 x2 x3 
# 1 1 2 3

如果不是完整的情況下，我要篩選完整的變量（列）什麼？在上面的例子中，應該是這樣的：

x[,3,drop=FALSE] 
# x3 
# 1 3 
# 2 4 
# 3 5

來源

2013-05-02 qed

或者是這樣的：

x[, complete.cases(t(x)), drop=FALSE] # Tks Simon

來源

2013-05-02 14:42:11 Rcoster

+1簡單的人都是最佳的。我會用一個'x []'來返回OP所需要的，即''[complete.cases（t（x））]'' – 2013-05-02 14:55:20

我敢肯定有一個清潔的生產策略在這裏，但我認爲下面的功能也將工作：

x = data.frame(x1=1:3, x2=2:4, x3=3:5) 
x[2, 1] = NA 
x[3, 2] = NA 

complete.cols = function(dat){ 
    non.missing.test = apply(dat,2,function(t){sum(is.na(t))==0}) 
    dat.complete.cols = data.frame(dat[,which(non.missing.test == TRUE)]) 
    names(dat.complete.cols) = names(dat)[which(non.missing.test == TRUE)] 
    return(dat.complete.cols) 
} 

complete.cols(x)

來源

2013-05-02 14:34:47

你可以做這樣的事情：

R> x[,sapply(x, function(v) sum(is.na(v))==0), drop=FALSE] 
    x3 
1 3 
2 4 
3 5

來源

2013-05-02 14:39:53 juba

這個小功能應該工作：

for (a in c(1:length(x))){ 
    ifelse(TRUE%in%is.na(x[,a]),print ('INCOMPLETE'),print ('COMPLETE')) 
}

來源

2013-05-02 14:48:16

complete.col <- function(col) sum(is.na(col))==0 
dfrm[ sapply(dfrm, complete.col) ] 
#or almost equivalently 
dfrm[ , ] 

#If you wanted the numbers of the columns with no missing 
which(sapply(dfrm, complete.col)) 

# To wrap `sapply` around the function on a single column functions 
complete.cols <- function(dfrm) sapply(dfrm, function(col) sum(is.na(col))==0) 
x[ complete.cols(x) ] 
#-------- 
    x3 
1 3 
2 4 
3 5

來源

2013-05-02 15:32:46

您可以使用sapply檢查列使用結果缺失值和子集：

x[sapply(x,function(y) !any(is.na(y)))] 
    x3 
1 3 
2 4 
3 5

來源

2013-05-02 15:33:07 James

R中是否有變量complete.cases的類比？

回答

相關問題