替换 dplyr 中的“重命名”答案

【问题标题】：Replacement for "rename" in dplyr替换 dplyr 中的“重命名”
【发布时间】：2014-02-25 11:16:19
【问题描述】：

我喜欢 plyr 的重命名功能rename。我最近开始使用 dplyr，想知道是否有一种简单的方法可以使用 dplyr 中的函数重命名变量，就像 plyr 的 rename 一样容易使用？

【问题讨论】：

标签： r rename dplyr

【解决方案1】：

dplyr >= 1.0.0

在dplyr 的较新版本中除了dplyr::rename 是rename_with()

rename_with() 使用函数重命名列。

您可以使用 .cols 参数对一组 tidy-select 列应用函数：

iris %>% 
  dplyr::rename_with(.fn = ~ gsub("^S", "s", .), .cols = where(is.numeric))

    sepal.Length sepal.Width Petal.Length Petal.Width    Species
1            5.1         3.5          1.4         0.2     setosa
2            4.9         3.0          1.4         0.2     setosa
3            4.7         3.2          1.3         0.2     setosa
4            4.6         3.1          1.5         0.2     setosa
5            5.0         3.6          1.4         0.2     setosa

【讨论】：

【解决方案2】：

dplyr 的下一个版本将支持 select 的改进版本，该版本还包含重命名：

> mtcars2 <- select( mtcars, disp2 = disp )
> head( mtcars2 )
                  disp2
Mazda RX4         160
Mazda RX4 Wag     160
Datsun 710        108
Hornet 4 Drive    258
Hornet Sportabout 360
Valiant           225
> changes( mtcars, mtcars2 )
Changed variables:
      old         new
disp  0x105500400
disp2             0x105500400

Changed attributes:
      old         new
names 0x106d2cf50 0x106d28a98

【讨论】：

仅供参考 changes 被导出（或应该被导出）
不错。唯一的问题是，这将意味着用户的思维转变，因为plyr 的重命名函数使用"old"="new" 而dplyr 使用new=old，这确实使其与其他dplyr 函数保持一致。就个人而言，我不认为这是一个问题——你很快就会习惯新事物，尤其是当这意味着你的数据处理速度会显着加快时。
这是预期的功能，因此选择了动词select。不确定我们是否有选择所有变量并顺便重命名此列的内容。
也许为避免混淆，您能否编辑您的帖子以使代码反映select 的实际行为方式？我会投票支持一种简单的dplyr 方式来保留所有变量并重命名一两个变量。 :) 现在我将继续加载 plyr 并使用 rename。
@RomainFrancois @aaronwolen 您可以使用mtcars %>% select(matches(".*"),disp2=disp) 实现OP 想要的。我想要一个更简洁的解决方案，但这可以工作并保留所有列（尽管不是它们的顺序）。 disp 不会重复。

【解决方案3】：

我尝试使用 dplyr::rename，但出现错误：

occ_5d <- dplyr::rename(occ_5d, rowname='code_5d')
Error: Unknown column `code_5d` 
Call `rlang::last_error()` to see a backtrace

我改用了基础 R 函数，结果证明它非常简单有效：

names(occ_5d)[1] = "code_5d"

【讨论】：

【解决方案4】：

虽然不完全重命名，但dplyr::select_all() 可用于重新格式化列名。此示例将空格和句点替换为下划线并将所有内容转换为小写：

iris %>%  
  select_all(~gsub("\\s+|\\.", "_", .)) %>% 
  select_all(tolower) %>% 
  head(2)
  sepal_length sepal_width petal_length petal_width species
1          5.1         3.5          1.4         0.2  setosa
2          4.9         3.0          1.4         0.2  setosa

【讨论】：

【解决方案5】：

dplyr 0.3 版添加了一个新的rename() 函数，其工作方式与plyr::rename() 类似。

df <- rename(df, new_name = old_name)

【讨论】：

你能解释一下语法吗？这比命令更重要。我正在使用rename(TheDataFrame,OldVarName=NewVarName)，但我得到Error: Unknown variables: NewVarName.，但我不明白为什么。
@s_a 我已经添加了说明。它应该在审核后显示。
如果你有问题，也许明确指定包会帮助dplyr::rename(iris, petal_length = Petal.Length)。
两个快速观察：必须将上述命令分配给数据框才能生效iris <- dplyr::rename(iris, petal_length = Petal.Length) 并且 rename() 不处理带有空格的变量名称，例如，dplyr::rename(iris, petal_length = "petal length") 会产生错误。
如果要批量替换列名，可以使用setNames()：df %>% mutate(foo = 1 +2) %>% setNames(c("blah", "blu", "bar"))

【解决方案6】：

您实际上可以将plyr 的rename 函数用作dplyr 链的一部分。我认为 a) 将 data.frame 作为第一个参数并且 b) 返回 data.frame 的每个函数都适用于链接。这是一个例子：

library('plyr')
library('dplyr')

DF = data.frame(var=1:5)

DF %>%
    # `rename` from `plyr`
    rename(c('var'='x')) %>%
    # `mutate` from `dplyr` (note order in which libraries are loaded)
    mutate(x.sq=x^2)

#   x x.sq
# 1 1    1
# 2 2    4
# 3 3    9
# 4 4   16
# 5 5   25

更新：dplyr 的当前版本支持直接重命名作为 select 函数的一部分（请参阅上面的 Romain Francois 帖子）。关于使用非 dplyr 函数作为 dplyr 链的一部分的一般性声明仍然有效，rename 是一个有趣的例子。

【讨论】：

这种情况下最好在 plyr之后加载dplyr。这样，在可用时使用更快的 dplyr 函数，您可以使用 mutate 而不是 dplyr::mutate
看起来你在链接中使用非 dplyr 函数是对的。 mtcars %.% rename(c("mpg","cyl"), c("mympg","mycyl")) 适用于 rename 是我的答案中定义的函数。
我更改了dplyr和plyr的加载顺序，谢谢。
这是一个不错的解决方法，但引发了关于大数据性能的有趣讨论，这是 dplyr 的主要优势之一。感谢您的建议！
是否通过引用重命名工作，例如 data.table 包中的 setnames

【解决方案7】：

它还没有在 dplyr 中列为函数：http://cran.rstudio.org/web/packages/dplyr/dplyr.pdf

如果您不想同时加载 plyr 和 dplyr，以下函数的工作方式（几乎）相同

rename <- function(dat, oldnames, newnames) {
  datnames <- colnames(dat)
  datnames[which(datnames %in% oldnames)] <- newnames
  colnames(dat) <- datnames
  dat
}

dat <- rename(mtcars,c("mpg","cyl"), c("mympg","mycyl"))
head(dat)

                  mympg mycyl disp  hp drat    wt  qsec vs am gear carb
Mazda RX4          21.0     6  160 110 3.90 2.620 16.46  0  1    4    4
Mazda RX4 Wag      21.0     6  160 110 3.90 2.875 17.02  0  1    4    4
Datsun 710         22.8     4  108  93 3.85 2.320 18.61  1  1    4    1
Hornet 4 Drive     21.4     6  258 110 3.08 3.215 19.44  1  0    3    1
Hornet Sportabout  18.7     8  360 175 3.15 3.440 17.02  0  0    3    2
Valiant            18.1     6  225 105 2.76 3.460 20.22  1  0    3    1

编辑：Romain 的评论产生以下内容（注意更改功能需要 dplyr .1.1）

> dplyr:::changes(mtcars, dat)
Changed variables:
          old         new        
disp      0x108b4b0e0 0x108b4e370
hp        0x108b4b210 0x108b4e4a0
drat      0x108b4b340 0x108b4e5d0
wt        0x108b4b470 0x108b4e700
qsec      0x108b4b5a0 0x108b4e830
vs        0x108b4b6d0 0x108b4e960
am        0x108b4b800 0x108b4ea90
gear      0x108b4b930 0x108b4ebc0
carb      0x108b4ba60 0x108b4ecf0
mpg       0x1033ee7c0            
cyl       0x10331d3d0            
mympg                 0x108b4e110
mycyl                 0x108b4e240

Changed attributes:
          old         new        
names     0x10c100558 0x10c2ea3f0
row.names 0x108b4bb90 0x108b4ee20
class     0x103bd8988 0x103bd8f58

【讨论】：

这里唯一的问题是数据被复制了。如果这是为了玩游戏没什么大不了的，即mtcars 等……但如果你处理大量数据，那就很戏剧性了。检查dplyr:::changes(mtcars, dat)
感谢罗曼的评论。没有从 dplyr 导出更改是否有原因？看起来很有用的功能。
我猜 hadley 主要将其视为我们的开发工具。
绝对应该导出。我可能只是忘记了