Заменить все подчеркивания в именах элементов пробелом

Question

Я хотел бы заменить все подчеркивания в именах элементов данных на пробелах пробелом:

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`

Как заменить все подчеркивания в именах элементов пробелом?

Answer 1

С базой R:

colnames(example_df) <- gsub("_", " ", colnames(example_df))

Answer 2

Как насчет:

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("_", " ", .))