बाइनरी कॉलम

Question

की पहचान करें मैं डेटा.फ्रेम में बाइनरी कॉलम की पहचान करना चाहता हूं।

उदाहरण के लिए

, इस तालिका

my.table <-read.table(text="a,b,c 
0,2,0 
0.25,1,1 
1,0,0", header=TRUE, as.is=TRUE,sep = ",") 

देना होगा FALSE, FALSE, TRUE

Answer 1

apply(my.table,2,function(x) { all(x %in% 0:1) }) 

(या

apply(my.table,2,function(x) { all(na.omit(x) %in% 0:1) }) 

अगर आप NA मूल्यों के लिए अनुमति देना चाहते हैं)

Answer 2

आप उन्हें में एनए के साथ द्विआधारी स्तंभों को स्वीकार करना चाहते हैं, तो निम्नलिखित चाल करना चाहिए:

is.binary <- function(v) { 
    x <- unique(v) 
    length(x) - sum(is.na(x)) == 2L 
} 

my.table <- data.frame(a=11:15, b=c(T,F,T,NA,T), c=c('foo',NA,'bar','bar','foo')) 
vapply(my.table, is.binary, logical(1)) 
# a  b  c 
#FALSE TRUE TRUE 

... या आप केवल 0,1, स्वीकार करता है, तो एनए:

is.binary <- function(v) { 
    x <- unique(v) 
    length(x) - sum(is.na(x)) == 2L && all(x[1:2] == 0:1) 
}