我喜欢 plyr 的重命名功能rename
。我最近开始使用 dplyr,想知道是否有一种简单的方法可以使用 dplyr 中的函数重命名变量,就像 plyr 一样容易使用rename
?
7 回答
dplyr 0.3 版添加了一个新rename()
功能,就像plyr::rename()
.
df <- rename(df, new_name = old_name)
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
您实际上可以将plyr
'rename
函数用作dplyr
链的一部分。我认为 a) 将 adata.frame
作为第一个参数并且 b) 返回 adata.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 中列为功能(尚未):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
虽然不完全重命名,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() 使用函数重命名列。
您可以使用参数在一组整洁的列上应用.cols
函数:
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