如何在dplyr中批量移除编号变量但保留指定特殊变量

针对需要移除x.1、x.2这类“x.加数字”格式的变量，同时保留x.special和x.y.z的需求，推荐两种高效的正则匹配筛选方法：

方法一：使用dplyr的select结合正则匹配 #

利用matches()函数搭配正则表达式，精准定位要排除的变量，不会误删含"x."但后缀不是纯数字的列：

library(dplyr)

# 生成示例数据
df <- data.frame(x.1 = rnorm(n=100),
                 x.2 = rnorm(n=100),
                 x.3 = rnorm(n=100),
                 x.special = rnorm(n=100),
                 x.y.z = rnorm(n=100))

# 筛选保留目标列
df_filtered <- df %>% select(-matches("^x\\.\\d+$"))

# 查看筛选结果
head(df_filtered)

正则表达式^x\\.\\d+$的含义：

• ^：匹配字符串开头
• x\\.：匹配字面量"x."（点号在正则中是特殊字符，需用反斜杠转义）
• \\d+：匹配一个或多个数字
• $：匹配字符串结尾
  这样就只会匹配x.1、x.2这类严格符合“x.加数字”格式的变量。

方法二：Base R原生实现 #

如果不想加载dplyr包，可以用grepl()结合列名筛选：

# 生成示例数据
df <- data.frame(x.1 = rnorm(n=100),
                 x.2 = rnorm(n=100),
                 x.3 = rnorm(n=100),
                 x.special = rnorm(n=100),
                 x.y.z = rnorm(n=100))

# 筛选保留目标列
df_filtered_base <- df[, !grepl("^x\\.\\d+$", colnames(df))]

# 查看筛选结果
head(df_filtered_base)

这里grepl()会返回一个逻辑向量，标记哪些列名符合要排除的格式，用!取反后即可保留目标列。

内容的提问来源于stack exchange，提问作者Shawn Hemelstrand