38

以下代码重命名数据集中的第一列：

require(dplyr)    
mtcars %>%
        setNames(c("RenamedColumn", names(.)[2:length(names(.))]))

期望的结果：

                    RenamedColumn cyl  disp  hp drat    wt  qsec vs am gear carb
Mazda RX4                    21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4
Mazda RX4 Wag                21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4
Datsun 710                   22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1

是否有可能使用rename和列索引得出相同的结果？

这个：

mtcars %>%
    rename(1 = "ChangedNameAgain")

将失败：

Error in source("~/.active-rstudio-document", echo = TRUE) : 
  ~/.active-rstudio-document:7:14: unexpected '='
6: mtcars %>%
7:     rename(1 =
                ^

同样尝试使用rename_or.[[1]]作为列引用将返回错误。

4

4 回答 4

62

从dplyr 0.7.5, rlang 0.2.1,开始tidyselect 0.2.4，这很有效：

library(dplyr)

rename(mtcars, ChangedNameAgain = 1)

#                     ChangedNameAgain cyl  disp  hp drat    wt  qsec vs am gear carb
# Mazda RX4                       21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4
# Mazda RX4 Wag                   21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4
# Datsun 710                      22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1
# Hornet 4 Drive                  21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1
# Hornet Sportabout               18.7   8 360.0 175 3.15 3.440 17.02  0  0    3    2
# ...

原始答案和编辑现已过时：

的逻辑rename()是new_name = old_name，所以ChangedNameAgain = 1会比 更有意义1 = ChangedNameAgain。

我会建议：

mtcars %>% rename_(ChangedNameAgain = names(.)[1])
#                     ChangedNameAgain cyl  disp  hp drat    wt  qsec vs am gear carb
# Mazda RX4                       21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4
# Mazda RX4 Wag                   21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4
# Datsun 710                      22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1
# Hornet 4 Drive                  21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1
# Hornet Sportabout               18.7   8 360.0 175 3.15 3.440 17.02  0  0    3    2
# Valiant                         18.1   6 225.0 105 2.76 3.460 20.22  1  0    3    1

编辑

我还没有完全了解dplyr基于 .的新编程系统rlang，因为dplyr.

我最初的答案中使用的下划线后缀版本rename现在已弃用，并且根据@jzadra 的评论，它无论如何都不适用于语法有问题的名称，例如"foo bar".

rlang这是我对基于新的非标准评估系统的尝试。不要犹豫，在评论中告诉我我做错了什么：

df <- tibble("foo" = 1:2, "bar baz" = letters[1:2])

# # A tibble: 2 x 2
#     foo `bar baz`
#   <int>     <chr>
# 1     1         a
# 2     2         b

首先我直接尝试，rename()但不幸的是我有一个错误。它似乎FIXME是源代码中的一个（或者这个 FIXME 无关？）（我使用的是dplyr0.7.4），所以它可以在未来工作：

df %>% rename(qux = !! quo(names(.)[[2]]))

# Error: Expressions are currently not supported in `rename()`

（编辑：现在的错误消息（dplyr 0.7.5）读取Error in UseMethod("rename_") : no applicable method for 'rename_' applied to an object of class "function"）

（2018 年 6 月 14 日更新：df %>% rename(qux = !! quo(names(.)[[2]]))现在似乎可以工作，仍然使用 dplyr 0.7.5，不确定底层包是否已更改）。

这是一个可行的解决方法select。它不会保留列顺序，例如rename：

df %>% select(qux = !! quo(names(.)[[2]]), everything())

# # A tibble: 2 x 2
#     qux   foo
#   <chr> <int>
# 1     a     1
# 2     b     2

如果我们想把它放在一个函数中，我们必须稍微修改它:=以允许在左侧取消引用。如果我们想对字符串和裸变量名之类的输入保持健壮，我们必须使用 and 的“黑魔法”（或者说小插图）（老实说，我不完全理解它的作用）：enquo()quo_name()

rename_col_by_position <- function(df, position, new_name) {
  new_name <- enquo(new_name)
  new_name <- quo_name(new_name)
  select(df, !! new_name := !! quo(names(df)[[position]]), everything())
}

这适用于新名称作为字符串：

rename_col_by_position(df, 2, "qux")

# # A tibble: 2 x 2
#     qux   foo
#   <chr> <int>
# 1     a     1
# 2     b     2

这适用于新名称作为 quosure：

rename_col_by_position(df, 2, quo(qux))

# # A tibble: 2 x 2
#     qux   foo
#   <chr> <int>
# 1     a     1
# 2     b     2

这适用于新名称作为裸名：

rename_col_by_position(df, 2, qux)

# # A tibble: 2 x 2
#     qux   foo
#   <chr> <int>
# 1     a     1
# 2     b     2

即使这样也有效：

rename_col_by_position(df, 2, `qux quux`)

# # A tibble: 2 x 2
#   `qux quux`   foo
#        <chr> <int>
# 1          a     1
# 2          b     2
于 2017-03-13T17:26:47.843 回答
13

这里有几个可以说更容易阅读的替代解决方案，因为它们不关注.参考。select理解列索引，所以如果你要重命名第一列，你可以简单地做

mtcars %>% select( RenamedColumn = 1, everything() )

但是，使用的问题select是，如果您在中间重命名列，它将重新排序列。要解决此问题，您必须预先选择要重命名的列左侧的列：

## This will rename the 7th column without changing column order
mtcars %>% select( 1:6, RenamedColumn = 7, everything() )

另一种选择是使用 new rename_at，它也理解列索引：

## This will also rename the 7th column without changing the order
## Credit for simplifying the second argument: Moody_Mudskipper
mtcars %>% rename_at( 7, ~"RenamedColumn" )

之所以~需要，是因为rename_at它非常灵活并且可以接受函数作为其第二个参数。例如，mtcars %>% rename_at( c(2,4), toupper )将使第二列和第四列的名称大写。

于 2018-03-05T21:45:20.533 回答
8

dplyr已取代rename_at(). rename_with()您可以像这样按索引重命名列：

library(tidyverse)

mtcars %>% 
  rename_with(.cols = 1, ~"renamed_column")

#>                     renamed_column cyl  disp  hp drat    wt  qsec vs am gear
#> Mazda RX4                    21.0   6 160.0 110 3.90 2.620 16.46  0  1    4
#> Mazda RX4 Wag                21.0   6 160.0 110 3.90 2.875 17.02  0  1    4
#> Datsun 710                   22.8   4 108.0  93 3.85 2.320 18.61  1  1    4
#> Hornet 4 Drive               21.4   6 258.0 110 3.08 3.215 19.44  1  0    3
#> Hornet Sportabout            18.7   8 360.0 175 3.15 3.440 17.02  0  0    3
#> ...

确保~在新列名之前包含波浪号 ( )*。

另请注意，如果您引入glue包，您可以像这样修改现有的列名：

library(glue)

mtcars %>% 
  rename_with(.cols = 1, ~glue::glue("renamed_{.}"))
#>                     renamed_mpg cyl  disp  hp drat    wt  qsec vs am gear carb
#> Mazda RX4                  21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4
#> Mazda RX4 Wag              21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4
#> Datsun 710                 22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1
#> Hornet 4 Drive             21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1
#> Hornet Sportabout          18.7   8 360.0 175 3.15 3.440 17.02  0  0    3    2
#> ...

将上述方法应用于多列只需使用冒号 () 传入列索引号范围或使用;:在向量中传递多个索引。c()这是两者的结合：

mtcars %>% 
  rename_with(.cols = c(1:3, 5), ~glue::glue("renamed_{.}"))
#>                     renamed_mpg renamed_cyl renamed_disp  hp renamed_drat    wt
#> Mazda RX4                  21.0           6        160.0 110         3.90 2.620
#> Mazda RX4 Wag              21.0           6        160.0 110         3.90 2.875
#> Datsun 710                 22.8           4        108.0  93         3.85 2.320
#> Hornet 4 Drive             21.4           6        258.0 110         3.08 3.215
#> Hornet Sportabout          18.7           8        360.0 175         3.15 3.440
#> ...

请记住，由于.代表当前列名，您可以像这样对其应用字符串修改函数：

mtcars %>% 
  rename_with(.cols = c(1:3), 
              ~glue::glue("renamed_{str_replace(.,'mpg','miles_per_gallon')}"))
#>                     renamed_miles_per_gallon renamed_cyl renamed_disp  hp
#> Mazda RX4                               21.0           6        160.0 110
#> Mazda RX4 Wag                           21.0           6        160.0 110
#> Datsun 710                              22.8           4        108.0  93
#> Hornet 4 Drive                          21.4           6        258.0 110
#> Hornet Sportabout                       18.7           8        360.0 175
#> ...

*您可以在此处了解有关~和.NSE 函数简写的更多信息。

于 2021-03-13T18:53:12.053 回答
1

@Aurelerlang所建议的恕我直言，这里太多了。

解决方案1：使用花括号管道管道上下文：

bcMatrix %>% {colnames(.)[1] = "foo"; .}

解决方案 2：或者（ab）使用包中的 tee 运算符%>%（magrittr如果使用，则无论如何安装dplyr）来执行重命名作为副作用：

bcMatrix %T>% {colnames(.)[1] = "foo"}

解决方案 3：使用简单的辅助函数：

rename_by_pos = function(df, index, new_name){ 
    colnames(df)[index] = new_name 
    df 
}
iris %>% rename_by_pos(2,"foo")
于 2017-12-20T13:23:49.817 回答