Dplyr 在指定位置改变新列

Question

一个例子：

a = c(10,20,30)
b = c(1,2,3)
c = c(4,5,6)
d = c(7,8,9)
df=data.frame(a,b,c,d)

library(dplyr)

df_1 = df %>% mutate(a1=sum(a+1))

如何在“a”（或任何其他定义的位置）之后而不是在最后添加“a1”？

谢谢你。

Answer 1

可能对发现此问题的其他人有用的更新 - 现在可以直接在mutate实现（我使用的是dplyr v1.0.2）。

只需指定新列应位于哪个现有列之后或之前，例如：

df_after <- df %>% 
   mutate(a1=sum(a+1), .after = a)

df_before <- df %>% 
   mutate(a1=sum(a+1), .before = b)

Answer 2

另一种选择是add_column从tibble

library(tibble)    
add_column(df, a1 = sum(a + 1), .after = "a")
#   a a1 b c d
#1 10 63 1 4 7
#2 20 63 2 5 8
#3 30 63 3 6 9

Answer 3

扩展 www 的答案，我们可以使用 dplyr 的select_helper函数来重新排序我们认为合适的新创建的列：

library(dplyr)

## add a1 after a
df %>% 
    mutate(a1 = sum(a + 1)) %>%
    select(a, a1, everything())
#>    a a1 b c d
#> 1 10 63 1 4 7
#> 2 20 63 2 5 8
#> 3 30 63 3 6 9

## add a1 after c
df %>% 
    mutate(a1 = sum(a + 1)) %>%
    select(1:c, a1, everything())
#>    a b c a1 d
#> 1 10 1 4 63 7
#> 2 20 2 5 63 8
#> 3 30 3 6 63 9

Answer 4

mutate函数将始终在末尾添加新创建的列。 但是，我们可以使用select在mutate函数之后按字母顺序对列进行排序。

library(dplyr)

df_1 <- df %>% 
  mutate(a1 = sum(a + 1)) %>%
  select(sort(names(.)))
df_1
#    a a1 b c d
# 1 10 63 1 4 7
# 2 20 63 2 5 8
# 3 30 63 3 6 9

Answer 5

dplyr >= 1.0.0

relocate被添加为一个新动词以更改一列或多列的顺序。 如果你管的输出mutate的语法relocate也使用.before和.after参数：

df_1 %>% 
  relocate(a1, .after = a)
   a a1 b c d
1 10 63 1 4 7
2 20 63 2 5 8
3 30 63 3 6 9

---

另一个好处是您还可以使用任何tidyselect语法移动多个列：

df_1 %>% 
  relocate(c:a1, .before = b)
   a c d a1 b
1 10 4 7 63 1
2 20 5 8 63 2
3 30 6 9 63 3