Belirli dizeleri/karakterleri içeren belirli sütunlar nasıl seçilir?

Question

Bu dataframe var:

df1 <- data.frame(a = c("correct", "wrong", "wrong", "correct"), 
    b = c(1, 2, 3, 4), 
    c = c("wrong", "wrong", "wrong", "wrong"), 
    d = c(2, 2, 3, 4)) 

a  b c  d 
correct 1 wrong 2 
wrong 2 wrong 2 
wrong 3 wrong 3 
correct 4 wrong 4 

ve sadece sütunları seçmek istiyorum ya dizeleri 'doğru' ya da ben bu dataframe olsun, öyle ki 'yanlış' (yani, sütunlar, b ve df1 içinde d) :

df2 <- data.frame(a = c("correct", "wrong", "wrong", "correct"), 
     c = c("wrong", "wrong", "wrong", "wrong")) 

     a  c 
1 correct wrong 
2 wrong wrong 
3 wrong wrong 
4 correct wrong 

bunu yapmak dplyr kullanabilir miyim? Değilse, bunu yapmak için hangi işlevleri kullanabilirim? Ben verdiğim örnek basittir, ki sadece bu (dplyr) yapabilirsiniz:

select(df1, a, c) 

Ancak, benim asıl dataframe içinde, ben yaklaşık 700 değişkenleri/sütunları ve dizeler içeren bir kaç yüz sütuna sahip 'Doğru' ya da 'yanlış' ve değişken/sütun isimlerini bilmiyorum.

Bunu nasıl yapılacağına dair herhangi bir öneri çabucak? Çok teşekkürler!

Answer 1

Sen df1 'in her bir kolon üzerinde işleyen ve mantıksal testi tatmin bütün olanları tutacak taban RFilter kullanabilirsiniz:

Filter(function(u) any(c('wrong','correct') %in% u), df1) 
#  a  c 
#1 correct wrong 
#2 wrong wrong 
#3 wrong wrong 
#4 correct wrong 

Ayrıca grepl kullanabilirsiniz:

Filter(function(u) any(grepl('wrong|correct',u)), df1) 

Answer 2

---- + Teşekkürler Albay Beavel. Ne kadar zarif bir çözüm. Filter daha kullanacağım. Ben veri çerçevesini genişletti

locator <- apply(df1, 2, function(x) grepl("correct|wrong", x)) 
index <- apply(locator, 2, any) 
newdf <- df1[,!index] 

500.000 için sütunlar:

dftest <- as.data.frame(replicate(500000, df1[,1])) 

Sonra sistem zamanını test

Sadece vaka bir süre içinde çok hızlı bir çözüm denetlemek istediğiniz önemli bir faktördür % desen ile% apply, grepl ile Filter ve Filter bir fonksiyonu:

f <- function() { 
locator <- apply(dftest, 2, function(x) grepl("correct|wrong", x)) 
index <- apply(locator, 2, any) 
newdf <- dftest[,!index] 
} 

f1 <- function() {newdf <- (Filter(function(x) any(c("wrong", "correct") %in% x), dftest))} 

f2 <- function() {newdf <- Filter(function(u) any(grepl('wrong|correct',u)), dftest)} 


system.time(f()) 
    user system elapsed 
    24.32 0.00 24.35 
system.time(f1()) 
    user system elapsed 
    2.31 0.00 2.34 
system.time(f2()) 
    user system elapsed 
    8.66 0.01 8.71 

Albay'ın çözümü en iyisi. Temiz ve en iyisini yapar. - data.frame öneri için kredi @akrun.