dplyr :: select_if kann colnames und ihre Werte gleichzeitig verwenden?

Question

Ich möchte cols mit colnames und ihre Werte in einer einzelnen Pipe-Kette ohne Verweis auf andere Objekte, wie NAMES <- names(d) auswählen. Kann ich es mit select_if() tun?

Zum Beispiel

kann ich COLNAMES verwenden cols auszuwählen.
(select(matches(...)) ist schlauer Umgang nur Colnamen).

library(dplyr) 
d <- iris %>% select(-Species) %>% tibble::as.tibble() 

d %>% select_if(stringr::str_detect(names(.), "Petal")) 

Und ich kann die Werte verwenden.

d %>% select_if(~ mean(.) > 5) 

Aber wie Sie beide verwenden? (vor allem OR)
Unter Code ist was ich will (natürlich nicht laufen).

d %>% select_if(stringr::str_detect(names(.), "Petal") | ~ mean(.) > 5) 

Jede Hilfe würde sehr geschätzt werden.

Answer 1

Eine Abhilfe, die nicht zu kompliziert ist:

d %>% select_if(stringr::str_detect(names(.), "Petal") | sapply(., mean) > 5) 

# or 
d %>% select_if(grepl("Petal",names(.)) | sapply(., mean) > 5) 

Welche gibt:

# A tibble: 150 x 3 
    Sepal.Length Petal.Length Petal.Width 
      <dbl>  <dbl>  <dbl> 
1   5.1   1.4   0.2 
2   4.9   1.4   0.2 
3   4.7   1.3   0.2 
4   4.6   1.5   0.2 
5   5.0   1.4   0.2 
6   5.4   1.7   0.4 
7   4.6   1.4   0.3 
8   5.0   1.5   0.2 
9   4.4   1.4   0.2 
10   4.9   1.5   0.1 
# ... with 140 more rows