用空格替换功能名称中的所有下划线

我想用空格替换数据帧功能名称中的所有下划线:

library(tidyverse)
names <- c("a_nice_day", "quick_brown_fox", "blah_ha_ha")
example_df <- data.frame(
  x = 1:3,
  y = LETTERS[1:3],
  z = 4:6
)
names(example_df) <- names

尝试:

example_df %>% rename_all(replace = c("_" = " "))
Error: `.funs` must specify a renaming function

还试过:

example_df %>% rename_all(funs(replace = c("_" = " ")))
Error: `nm` must be `NULL` or a character vector the same length as `x`

如何用空格替换功能名称中的所有下划线？

最佳答案

关于什么:

example_df %>% select_all(funs(gsub("_", " ", .)))

输出:

  a nice day quick brown fox blah ha ha
1          1               A          4
2          2               B          5
3          3               C          6

您也可以使用 rename ，但是在这种情况下，您需要以不同的方式调用它:

example_df %>% rename_all(function(x) gsub("_", " ", x))

或者干脆:

example_df %>% rename_all(~ gsub("_", " ", .))

关于用空格替换功能名称中的所有下划线，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/54544035/