R dplyr：使用字符串函数重命名变量

（有点相关的问题：在 dplyr 的重命名函数中以字符串形式输入新列名称)

在中间一个dplyr chain (%>%），我想用旧名称的函数替换多个列名称（使用tolower or gsub, etc.)

library(tidyr); library(dplyr)
data(iris)
# This is what I want to do, but I'd like to use dplyr syntax
names(iris) <- tolower( gsub("\\.", "_", names(iris) ) )
glimpse(iris, 60)
# Observations: 150
# Variables:
#   $ sepal_length (dbl) 5.1, 4.9, 4.7, 4.6, 5.0, 5.4, 4.6,...
#   $ sepal_width  (dbl) 3.5, 3.0, 3.2, 3.1, 3.6, 3.9, 3.4,...
#   $ petal_length (dbl) 1.4, 1.4, 1.3, 1.5, 1.4, 1.7, 1.4,...
#   $ petal_width  (dbl) 0.2, 0.2, 0.2, 0.2, 0.2, 0.4, 0.3,...
#   $ species      (fctr) setosa, setosa, setosa, setosa, s...

# the rest of the chain:
iris %>% gather(measurement, value, -species) %>%
  group_by(species,measurement) %>%
  summarise(avg_value = mean(value)) 

我明白了?rename接受论证replace as a named character vector, with new names as values, and old names as names.罢工>

所以我尝试：

iris %>% rename(replace=c(names(iris)=tolower( gsub("\\.", "_", names(iris) ) )  ))

但这（a）返回Error: unexpected '=' in iris %>% ...(b) 需要按名称引用链中先前操作的数据帧，但在我的实际用例中我无法做到这一点。

iris %>% 
  rename(replace=c(    )) %>% # ideally the fix would go here
  gather(measurement, value, -species) %>%
  group_by(species,measurement) %>%
  summarise(avg_value = mean(value)) # I realize I could mutate down here 
                                     #  instead, once the column names turn into values, 
                                     #  but that's not the point
# ---- Desired output looks like: -------
# Source: local data frame [12 x 3]
# Groups: species
# 
#       species  measurement avg_value
# 1      setosa sepal_length     5.006
# 2      setosa  sepal_width     3.428
# 3      setosa petal_length     1.462
# 4      setosa  petal_width     0.246
# 5  versicolor sepal_length     5.936
# 6  versicolor  sepal_width     2.770
# ... etc ....  

这是一个很晚的答案，2017 年 5 月

As of dplyr 0.5.0.9004，即将推出 0.6.0，许多重命名列的新方法，符合maggritr管道操作员%>%，已添加到包中。

这些功能是：

• 全部重命名
• 重命名_如果
• 重命名_at

使用这些函数有很多不同的方法，但与您的问题相关的一种方法是使用stringr包如下：

df <- df %>%
  rename_all(
      funs(
        stringr::str_to_lower(.) %>%
        stringr::str_replace_all(., '\\.', '_')
      )
  )

因此，继续进行管道安装:)（无双关语）。