Напишите функцию, которая подставляет один фрейм данных, выбирая переменные, заканчивающиеся на CD и RESN, затем lapply(your_list, that_function)
.
select_cols_regex = function(x, pattern) {
x[grepl(pattern, names(x))]
}
lapply(your_list, select_cols_regex, pattern = c("(CD|RESN)$"))