我们可以使用select

library(dplyr)
df %>%
    select(matches('^T_\\d+_X'))
  T_01_X_1 T_02_X_2 T_03_X_3
1        1        2        3
2        2        3        4
3        2        3        4
4        2        4        5

你可以用-

df[grep("^T.*X", names(df))]

#  T_01_X_1 T_02_X_2 T_03_X_3
#1        1        2        3
#2        2        3        4
#3        2        3        4
#4        2        4        5

这将选择名称中以'T'开头、后跟'X'的列。

我使用intersect函数来实现：

df[intersect(grep("T.*", names(df)),grep("X", names(df)))]

  T_01_X_1 T_02_X_2 T_03_X_3
1        1        2        3
2        2        3        4
3        2        3        4
4        2        4        5

在正则表达式中，您可以使用插入符号（^）在搜索列表的开头扫描字母/单词。要匹配单词中任何位置的特定字符，您可能需要用match-anything正则表达式（.*）包围该项目，该正则表达式接受任何字母（.）任意次数（*）。
这将为您提供以下正则表达式来匹配您要查找的内容：^T.*X.*。

df[grep("^T.*X.*", names(df))] 
#>   T_01_X_1 T_02_X_2 T_03_X_3
#> 1        1        2        3
#> 2        2        3        4
#> 3        2        3        4
#> 4        2        4        5

作为另一种选择，如果您不想使用正则表达式，dplyr select helper可能会很有用。

library(dplyr)

df %>% 
  select(starts_with("T") & contains("X"))

#  T_01_X_1 T_02_X_2 T_03_X_3
#1        1        2        3
#2        2        3        4
#3        2        3        4
#4        2        4        5

你也可以用stringr做类似的事情。

library(stringr)

df[str_starts(names(df), "T") & str_detect(names(df), "X")]