Выбор столбцов на основе совпадения строк - dplyr :: select

У меня есть фрейм данных («данные») с множеством столбцов. Некоторые столбцы содержат определенную строку ("search_string").

Как я могу использовать, dplyr::select()чтобы дать мне подмножество, включающее только столбцы, содержащие строку?

Я старался:

# columns as boolean vector
select(data, grepl("search_string",colnames(data)))

# columns as vector of column names names 
select(data, colnames(data)[grepl("search_string",colnames(data))]) 

Ни один из них не работает.

Я знаю, что select()принимает числовые векторы в качестве замены столбцов, например:

select(data,5,7,9:20)

Но я не знаю, как получить числовой вектор столбцов IDs из моего grepl()выражения.

В мире dplyr попробуйте:

select(iris,contains("Sepal"))

См. Раздел «Выбор» ?selectдля получения информации о многих других помощниках, например starts_with, ends_withи т. Д.

Ты можешь попробовать:

select(data, matches("search_string"))

Это более общий характер, чем contains- вы можете использовать регулярное выражение (например "one_string|or_the_other").

Дополнительные примеры см: http://rpackages.ianhowson.com/cran/dplyr/man/select.html .

Нет необходимости использования selectпросто использовать [вместо

data[,grepl("search_string", colnames(data))]

Попробуем с irisнабором данных

>iris[,grepl("Sepal", colnames(iris))]
  Sepal.Length Sepal.Width
1          5.1         3.5
2          4.9         3.0
3          4.7         3.2
4          4.6         3.1
5          5.0         3.6
6          5.4         3.9

Основываясь на ответе Петра Мигдальса, я хочу дать альтернативное решение, позволяющее использовать вектор строк:

myVectorOfStrings <- c("foo", "bar")
matchExpression <- paste(myVectorOfStrings, collapse = "|")
# [1] "foo|bar"
df %>% select(matches(matchExpression))

Использование ORоператора регулярного выражения ( |)

ВНИМАНИЕ : Если у вас действительно есть простой вектор имен столбцов (и вам не нужна мощность RegExpression), см. Комментарий под этим ответом (так как это более чистое решение).