删除嵌套在数据框列表中的列标题内的句点和空格

Question

我有一个数据框列表:

 mylist<-list(df1=data.frame(var1=c("a","b","c"), var.2= 
 c("a","b","c")), df2= data.frame(var1 = c("a","b","c"), 
 var..2=c("a","b","c")))

我想删除列表中每个数据框的列标题内的句点和空格。输出如下:

 mylist<-list(df1=data.frame(var1=c("a","b","c"), var2= 
 c("a","b","c")), df2= data.frame(var1= c("a","b","c"), 
 var2=c("a","b","c")))

我尝试过以下方法:

 cleandf <- lapply(ldf, function(x) x[(colnames(x) <- gsub(".", "", 
 colnames(x), fixed = TRUE))])

Answer 1

使用 Base R setNames:

lapply(mylist, function(x) setNames(x, gsub("\\.", "", names(x))))

或使用tidyverse:

library(tidyverse)

map(mylist, ~rename_all(.x, str_replace_all, "\\.", ""))

输出:

$df1
  var1 var2
1    a    a
2    b    b
3    c    c

$df2
  var1 var2
1    a    a
2    b    b
3    c    c