在一个列表中子集多个数据帧，并在R中保留以CD和RESN结尾的变量

我有一个包含3个数据帧的列表，

a

、

B

和

C

，每个数据帧中有3个变量，分别命名为

（ID、ACD、arsen）、（ID、BCD、BRESN）

和

（ID、CCD、CRESN）

---

如何在此列表中子集所有三个数据帧，选择以

CD

和

RESN

结尾的变量？

编写一个函数，将单个数据帧子集，选择以CD和RESN结尾的变量，然后

lappy（您的\u列表，该\u函数）

---

如果每个df最后两列，请使用提取函数：

lappy（df_list，[”，2:3）

Hi，感谢您的帮助。但是，当我试图定义函数时，它会给我一个错误，如select_cols_regex=function（x，pattern）{+x[grepl（pattern，names（x）]错误：意外的']:“select_cols_regex=function（x，pattern）{x[grepl（pattern，names（x）]“>}错误：“}”中意外出现的“}”有效。我错过了一个“}”

select_cols_regex = function(x, pattern) {
  x[grepl(pattern, names(x))]
}

lapply(your_list, select_cols_regex, pattern = c("(CD|RESN)$"))