在 r 中使用 rename_at 從列名中刪除后綴

Question

我有一個 dataframe，其中許多列以相同的后綴結尾，我想使用 rename_at() 將它們全部刪除，但我無法弄清楚。

library(tidyverse)

my_df <- tibble(id = c(1, 2), 
jan_real = c(8, 10),
feb_real = c(9, 10),
mar_real = c(1, 11))

desired_df <- tibble(id = c(1, 2), 
jan = c(8, 10),
feb = c(9, 10),
mar = c(1, 11))

Answer 1

您現在應該使用從dplyr 1.0.0取代rename_at() rename_with() rename_with() ：

library(dplyr)

my_df %>%
  rename_with(~ sub("_real$", "", .x), everything())

# A tibble: 2 x 4
     id   jan   feb   mar
  <dbl> <dbl> <dbl> <dbl>
1     1     8     9     1
2     2    10    10    11

使用rename_at() ：

my_df %>%
  rename_at(vars(everything()), ~ sub("_real$", "", .x))

Answer 2

你可以試試這個方法

library(dplyr)
library(stringr)
my_df %>% 
  rename_at(vars(matches("_real")), ~str_remove(., "_real"))
#       id   jan   feb   mar
#     <dbl> <dbl> <dbl> <dbl>
# 1     1     8     9     1
# 2     2    10    10    11

Answer 3

您可以在setNames中嘗試gsub

desired_df <- setNames(my_df,gsub("_.*","",names(my_df)))

這樣

> desired_df
# A tibble: 2 x 4
     id   jan   feb   mar
  <dbl> <dbl> <dbl> <dbl>
1     1     8     9     1
2     2    10    10    11

Answer 4

在base R中，如果我們將whitespace指定為正則表達式以匹配_后跟字符 ( .* )，我們也可以使用trimws

names(my_df) <- trimws(names(my_df), whitespace = "_.*")
my_df
# A tibble: 2 x 4
#     id   jan   feb   mar
#  <dbl> <dbl> <dbl> <dbl>
#1     1     8     9     1
#2     2    10    10    11