R使用dplyr将列移动到最后

Question

对于具有 n 列的 data.frame，我希望能够从任何 1-(n-1) 位置移动一列，以第 n 列（即非最后一列成为最后一列）。我也想用dplyr 来做。我想这样做而不是简单地输入所有列的名称。

例如：

data<-data.frame(a=1:5, b=6:10, c=11:15)

这可行，但不是dplyr 方式：

data[,c(colnames(data)[colnames(data)!='b'],'b')]

这是dplyr首先创建列b的方式：

data%>%select(b, everything())

但这并不能让b 成为最后一个：

data%>%select(everything(), b)

这可行，但需要我输入所有列：

data%>%select(a,c,b)

那么有没有一种优雅的 dplyr 方法可以做到这一点？

相关问题：

• move column to first in a data frame
• How does one reorder columns in a data frame?

Answer 1

更新：

dplyr::relocate 是 dplyr 1.0.0 中引入的一个新动词，现在是我的首选解决方案，因为它明确说明了你在做什么，你可以继续使用 tidyselect 助手选择变量，你可以准确地指定将带有.before 或.after 的列放在哪里

data %>% relocate(b, .after = last_col()) （同dule arnaux的更新）

原答案

data%>%select(-b,everything())

将变量 b 移动到末尾。

这是因为 select 的第一个位置的负变量会引发 select() 的特殊行为，即插入所有变量。然后它会删除 b，然后将它与everything() 部分一起添加回来。

由哈德利本人解释：https://github.com/tidyverse/dplyr/issues/2838

有关如何将某些列移至末尾和将其他列移至开头的其他示例，另请参阅此其他答案： How does dplyr's select helper function everything() differ from copying?

Answer 2

经过一些修改，以下内容可以正常工作，并且只需要很少的输入。

data %>% select(-b,b)

更新：dplyr 1.0.0

dplyr 1.0.0 介绍了relocate 动词：

data %>% relocate(b, .after = last_col())

我还是更喜欢旧的“hacky”方式。

Answer 3

df <- df[, c(which(colnames(df) != "YourColumnName"), which(colnames(df) == "YourColumnName"))]

Answer 4

由于在 dplyr 中没有现成的解决方案，您可以定义自己的小函数来为您完成：

move_last <- function(DF, last_col) {
    match(c(setdiff(names(DF), last_col), last_col), names(DF))
}

然后您可以在普通的select 呼叫中轻松使用它：

mtcars %>% select(move_last(., "mpg")) %>% head()

您还可以将多列移到末尾：

mtcars %>% select(move_last(., c("mpg", "cyl"))) %>% head()

您仍然可以提供其他参数来选择，例如删除一列：

mtcars %>% select(move_last(., "mpg"), -carb) %>% head()

Answer 5

我们可以使用

data %>%
    select(-one_of('b'), one_of('b'))
#  a  c  b
#1 1 11  6
#2 2 12  7
#3 3 13  8
#4 4 14  9
#5 5 15 10

或者

data %>%
    select(matches("[^b]"), matches("b"))

或使用select_

data %>% 
    select_(.dots = c(setdiff(names(.), 'b'), 'b'))
#  a  c  b
#1 1 11  6
#2 2 12  7
#3 3 13  8
#4 4 14  9
#5 5 15 10