如何在不合并r中的数据帧的情况下从多个数据帧的列名中删除“-”和空格

Question

我有 30 个数据帧说：data_01、data_02、....、data_30。 我试图从列名中删除空格和“-”，并使用以下代码将它们变成小写：

names(data_02) %<>% 
    stringr::str_remove_all("-") %>%
    str_replace_all( "\\s", "_" ) %>% tolower

我必须为 30 个数据帧重复这个过程 30 次。

有什么方法可以用一个代码对所有数据帧执行此过程，而无需合并数据帧。

我试过这个：制作数据框列表

dfs <- Filter(function(x) is(x, "data.frame"), mget(ls()))
lapply(dfs, function() {names () %<>% 
    stringr::str_remove_all("-") %>%
    str_replace_all( "\\s", "_" ) %>% tolower},  return())

但它不起作用。

ps：我是新用户，不太了解。 我将衷心感谢您的帮助。 谢谢你的帮助。

Answer 1

lapply匿名函数需要接受一个参数（并且return()需要在函数内部）。 没有可重现的例子就无法测试，但我猜这会起作用：

dfs <- Filter(function(x) is(x, "data.frame"), mget(ls()))
lapply(dfs, function(x) {
  names(x) = names(x) %>% 
    stringr::str_remove_all("-") %>%
    str_replace_all( "\\s+", "_" ) %>%  ## added the + just in case
    tolower
  return(x)
})