使用 lapply 和 gsub 重命名列表中的列

Question

假设我想通过删除以下数据框列表中的特殊字符来重命名列：

df1 <- data.frame("x.1" = runif(3), "y.1" = runif(3))
df2 <- data.frame("x.2" = runif(3), "y.2" = runif(3))
df.list <- list(df1, df2)

我试过下面的代码..

 dplyr::df.list <- lapply(df.list, function(y) gsub("\\.", "", colnames(y)))

如何lapply() 和gsub() 删除特殊字符？

Answer 1

试试这个：

df.list <- lapply(df.list, function(y) {colnames(y) <- gsub("\\.", "", colnames(y)); y})
df.list