如何在使用管道 `%>%` 时使用`<-` 分配行名？ [复制]

Question

我们可以使用<- 运算符和rownames(df) 来分配数据框的行名，如下所示：

df<-data.frame(a=letters[1:5], b=1:5, c=LETTERS[1:5])
df
rownames(df) <- df[,1]
df[,1] <- NULL
df

上面的脚本会将第一列转换为行名，输出如下：

df
  a b c
1 a 1 A
2 b 2 B
3 c 3 C
4 d 4 D
5 e 5 E

df
  b c
a 1 A
b 2 B
c 3 C
d 4 D
e 5 E 

有没有办法使用管道%>% 来做到这一点？

我尝试了df %>% rownames(.) <- .[,1]，但失败了。
关键问题是不能在%>%之间使用<-

Answer 1

不使用任何额外的包，你可以通过这样做来达到相同的结果

df1 <- data.frame(df[-1], row.names = df[,1])
df1
#  b c
#a 1 A
#b 2 B
#c 3 C
#d 4 D
#e 5 E

使用dplyr，您可能只需要pull 将列中的值分配给rownames

library(dplyr)
rownames(df) <- df %>% pull(a)

Answer 2

虽然<- 运算符看起来很特别，但当用于替换rownames() 时，它实际上是`rownames<-`() 函数的快捷方式，您可以直接在管道中调用它：

data.frame(a=letters[1:5], b=1:5, c=LETTERS[1:5]) %>%
    `rownames<-`(.[,1])

  a b c
a a 1 A
b b 2 B
c c 3 C
d d 4 D
e e 5 E

这是您在分配行名时实际上一直在使用的函数：

# When you write this
rownames(df) <- c(1:5)

# What R is actually doing is running this function:
`rownames<-`(df, c(1:5))

您也可以使用 `colnames<-`() 和 `names<-`() 做同样的事情

反引号字符 (`) 将某些内容定义为符号，即使它包含符号中的非法字符也是如此。将其括在反引号中告诉 R，您正在运行一个名为 rownames<- 的函数，并将 .[,1] 作为参数传入。没有它，R 会在到达< 符号时停止读取函数名，并寻找正常的rownames 函数，这不是我们想要的。

阅读此问题以获取有关反引号语法的更多详细信息：What do backticks do in R?

Answer 3

df <- data.frame(a = letters[1:5], b = 1:5, c = LETTERS[1:5])
df

> df
  a b c
1 a 1 A
2 b 2 B
3 c 3 C
4 d 4 D
5 e 5 E

library(dplyr)
library(tibble)
df1 <- df %>% 
  tibble::column_to_rownames(var = "a")
df1  

> df1
  b c
a 1 A
b 2 B
c 3 C
d 4 D
e 5 E