R 데이터 프레임의 모든 열에서 값 검색

Question

다음은 샘플 데이터 프레임입니다.

df = data.frame(company = c('a', 'b', 'c', 'd'), 
       bond = c(0.2, 1, 0.3, 0), 
       equity = c(0.7, 0, 0.5, 1), 
       cash = c(0.1, 0, 0.2, 0)) 
df 

    company bond equity cash 
1  a 0.2 0.7 0.1 
2  b 1.0 0.0 0.0 
3  c 0.3 0.5 0.2 
4  d 0.0 1.0 0.0 

모든 열에 1.0이있는 회사를 찾아야합니다. 예상 결과는 b 및 d이어야합니다.

> 20 열 이상 사용할 수있는 솔루션을 제공해주십시오. df %>% filter(bond == 1)과 같은 솔루션은 특정 열을 검색하는 경우에만 작동합니다.

dplyr 또는 data.table 해결책이 허용됩니다.

감사합니다.

Answer 1

사용 rowSums 작동합니다 논리 데이터 프레임을 확인 :

df[rowSums(df[-1] == 1.0) != 0, 'company'] 
[1] b d 
Levels: a b c d 

Answer 2

var <- df %>% select(bond:cash) %>% names 
plyr::ldply(var, function(x) paste("filter(df,", x, "==1)") %>% parse(text=.) %>% eval) 
    company bond equity cash 
1  b 1  0 0 
2  d 0  1 0 

Answer 3

또 다른 옵션 :

df[unique(row(df[-1])[df[-1] == 1L]),] 
# company bond equity cash 
#2  b 1  0 0 
#4  d 0  1 0 

df$company[unique(row(df[-1])[df[-1] == 1L])] 
#[1] b d 
#Levels: a b c d 

Answer 4

우리는 또한 ==

res <- df[Reduce(`+`, lapply(df[-1], `==`, 1))!=0,] 
res 
# company bond equity cash 
#2  b 1  0 0 
#4  d 0  1 0 

res$company 
#[1] b d 
#Levels: a b c d