在 dplyr 中替换“ rename”

小开

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

The function below works (almost) the same if you don't want to load both plyr and 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

Edit: The comment by Romain produces the following (note that the changes function requires 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

小开

您实际上可以使用 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是一个有趣的例子。

小开

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

小开

最佳答案

Dplyr 版本0.3添加了一个新的 rename()函数，其工作原理与 plyr::rename()类似，但新旧名称互换:

df <- rename(df, new_name = old_name)

小开

虽然不完全重命名，但可以使用 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

小开

我尝试使用 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"

小开

Dplyr > = 1.0.0

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

Rename _ with ()使用函数重命名列。

You can apply a function over a 整齐-选择 set of columns using the .cols argument:

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