как установить подмножество одновременно на значения и имена

Question

Есть ли удобный способ объединить эти 2 шага в один?

df = data.frame(aa = 'A', ab = '', n = 'C')
#  aa  ab  n
#   A      C

temp = df[ grep('a', names(df)) ]          
#  aa  ab  
#   A       

ans = temp[ temp != '' ]
# [1] "A"

Заранее спасибо за любые предложения.

Answer 1

Вот один способ предположить, что ваш фрейм данных имеет только одну строку -

df[grepl("a", names(df)) & df != '']

[1] "A"

Благодаря @thelatemail, вот обобщенное решение для любого количества строк -

df <- data.frame(aa = c('A','B'), ab = c('','T'), n = c('C', 'C'))

df[grepl("a", names(df)[col(df)]) & df != '']

[1] "A" "B" "T"

Answer 2

обратный путь

library(tidyr)
library(dplyr)
df = data.frame(aa = 'A', ab = '', n = 'C')
df.long <-gather(df, col) #chaging to long format and key is col
df.long %>%
filter(col %in% grep("a",col, value = T) & value != '')