基于r中的名称向量移除列

我有一个 data.frame 打电话 DATA 是的。使用 基R ,我想知道如何删除 数据 其名称如下: ar = c("out", "Name", "mdif" , "stder" , "mpre") 是吗?

目前,我使用 DATA[ , !names(DATA) %in% ar] 但是,当这删除了不需要的变量时,它又创建了一些新的麻烦的变量后缀 .1 是的。

提取之后,是否可以只删除后缀?

注1: 我们无法进入 r ,唯一的输入是 数据 是的。

注2: 这是玩具数据,一个功能解决方案是赞赏的。

r <- list(
 data.frame(Name = rep("Jacob", 6), 
           X = c(2,2,1,1,NA, NA), 
           Y = c(1,1,1,2,1,NA), 
           Z = rep(3, 6), 
         out = rep(1, 6)), 

 data.frame(Name = rep("Jon", 6), 
           X = c(1,NA,3,1,NA,NA), 
           Y = c(1,1,1,2,NA,NA), 
           Z = rep(2, 6), 
         out = rep(1, 6)))

DATA <- do.call(cbind, r)  ## DATA

ar = c("out", "Name", "mdif" , "stder" , "mpre") # The names for exclusion

DATA[ , !names(DATA) %in% ar]      ## Current solution
#>
#    X  Y Z X.1 Y.1 Z.1          ## X.1 Y.1 Z.1  are automatically created but no needed
# 1  2  1 3   1   1   2
# 2  2  1 3  NA   1   2
# 3  1  1 3   3   1   2
# 4  1  2 3   1   2   2
# 5 NA  1 3  NA  NA   2
# 6 NA NA 3  NA  NA   2