dplyr 'rename' 标准评估功能没有按预期工作？

Question

更新：从下面对这篇文章的评论来看，这现在按预期工作，没有我在此处列出的问题。

下面是使用来自 dplyr 的 rename_ 的玩具示例。我期望能够使用下面的第二个示例将列名更改回原来的名称，但我猜函数参数评估规则在某种程度上阻止了它按我想的方式工作。使用原始 plyr 包 rename 函数（以及使用基本包 names 函数）有一个简单的解决方法，但我觉得我缺少一个 dplyr 解决方案。

我有一个如下所示的解决方法，但我欢迎第二个示例的 dplyr 解决方案按我的预期工作，或者解释为什么我不应该期望它按我希望的方式工作。

谢谢你， 马特

编辑：我在下面添加了一个示例，使用rename_ 来完成这项工作，但很复杂。我假设如果 Hadley 在下面提到的错误得到修复，这将如下所示。但在那之前，我的尴尬方式确实如此，但使用标准的plyr 方法可能会更好。最后还添加了基本 R 技术，例如完整性。

library(plyr)
library(dplyr)

# dataframe to operate on
dat <- data_frame(a=1, b=1)

# identifier with string of column name in dat
x <- "a"


# Renaming using standard evaluation this way works
dat %>%
    rename_("new" = x)
# Source: local data frame [1 x 2]
# 
#   new b
# 1   1 1


# But changing it back does not
# I expect "a" to be the name, not the identifier x
dat %>%
    rename_("new" = x) %>%
    rename_(x = "new")
# Source: local data frame [1 x 2]
# 
#   x b
# 1 1 1


# This works, but seems really awkward...
dat %>%
    rename_("newname" = x) %>%
    do(do.call(rename_, setNames(list(., "newname"), c(".data", x))))

# Source: local data frame [1 x 2]
# 
#   a b
# 1 1 1


# This works fine
dat %>%
    rename_("new" = x) %>%
    plyr::rename(c("new" = x))
# Source: local data frame [1 x 2]
# 
#   a b
# 1 1 1


# Base R way
datrn <- dat %>%
    rename_("newname" = x)
names(datrn)[names(datrn) == "newname"] = x
datrn
# Source: local data frame [1 x 2]
# 
#   a b
# 1 1 1

Answer 1

有几件事让这很痛苦：

1. c(x = "new") 与c("x" = "new") 相同，而不是相反 的c(new = x)。

2. 你可以用setNames(x, "new")构造你想要的向量， 但是……

3. 我忘记将 .dots 参数添加到 rename_（错误报告在 https://github.com/hadley/dplyr/issues/708) 所以你不能这样做：

   rename_(dat, .dots = setNames(x, "new"))
   

   您需要使用do.call:

   do.call(rename_, c(list(quote(dat)), list(setNames(x, "new"))))
   

Answer 2

在我的 Rstudio 中，我定义：

x <- 'myname'
dat <- data.frame(yes=1, no=2)

我想将变量名从 yes 更改为 myname

它不起作用：

rename_(dat, .dots = setNames(x, "yes"))

但这有效：

rename_(dat, .dots = setNames("yes", x))

rename_(dat, .dots = setNames("yes", paste(x) ))