Question

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

Answer 1

dplyr版本0.3添加了一个新的rename()函数，其功能与plyr::rename()类似。

df <- rename(df, new_name = old_name)

Answer 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

Answer 3

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

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函数的一部分（请参阅上面的Romain Francois帖子）。关于将非dplyr函数用作select链的一部分的一般说法仍然有效，dplyr是一个有趣的例子。

Answer 4

它未在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

Answer 5

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

Answer 6

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

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

我改为使用base R函数，事实证明它非常简单和有效：

names(occ_5d)[1] = "code_5d"

Answer 7

dplyr >= 1.0.0

除了新版本的 dplyr::rename 中的 dplyr 之外，还有 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

在dplyr中替换“重命名”

7 个答案:

dplyr >= 1.0.0