使用R选择指定列之后的所有列

Question

如何使用R选择指定列之后的所有列(理想情况下仅限dplyr，但欢迎使用非dplyr解决方案)。例如，假设在数据帧mtcars中，我想获取vs后面的所有列，该列将是am gear carb。但我想要一个函数来实现这一点，在这个函数中，我只提供所选的列，并且返回的dataframe只包括指定列之后的那些列。我想不出一种方法来实现这一点，让事情继续下去。

                     mpg cyl  disp  hp drat    wt  qsec vs am gear carb
Mazda RX4           21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4
Mazda RX4 Wag       21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4
Datsun 710          22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1
Hornet 4 Drive      21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1
Hornet Sportabout   18.7   8 360.0 175 3.15 3.440 17.02  0  0    3    2
Valiant             18.1   6 225.0 105 2.76 3.460 20.22  1  0    3    1
Duster 360          14.3   8 360.0 245 3.21 3.570 15.84  0  0    3    4

我希望函数的结果如下所示(但我对结果的兴趣远远小于对逻辑的兴趣，因为结果可以通过多种方式获得，但逻辑可以推广到复杂的情况(大量的列，变化的参数等)。)，我希望函数的结果如下所示(但我对结果不感兴趣，因为结果可以通过多种方式获得，但逻辑可以推广到复杂的情况(大量列，参数变化等))。

                    am gear carb
Mazda RX4            1    4    4
Mazda RX4 Wag        1    4    4
Datsun 710           1    4    1
Hornet 4 Drive       0    3    1
Hornet Sportabout    0    3    2
Valiant              0    3    1
Duster 360           0    3    4

Answer 1

一种选择可能是：

mtcars %>%
 select(vs:last_col(), -vs)

                    am gear carb
Mazda RX4            1    4    4
Mazda RX4 Wag        1    4    4
Datsun 710           1    4    1
Hornet 4 Drive       0    3    1
Hornet Sportabout    0    3    2
Valiant              0    3    1
Duster 360           0    3    4
Merc 240D            0    4    2
Merc 230             0    4    2

或者：

mtcars %>%
 select((which(names(.) == "vs") + 1):last_col())

Answer 2

在base R中，你可以这样做：

my_select <- function(data, col_after){
   data[-seq_len(grep(col_after, names(data)))]
}

my_select(head(mtcars), "vs")
                  am gear carb
Mazda RX4          1    4    4
Mazda RX4 Wag      1    4    4
Datsun 710         1    4    1
Hornet 4 Drive     0    3    1
Hornet Sportabout  0    3    2
Valiant            0    3    1

在dplyr中，您将执行以下操作：

my_select1 <- function(data, col_after){
  data %>%
    select(!1:{{col_after}})
}

my_select1(head(mtcars), vs)
                 am gear carb
Mazda RX4          1    4    4
Mazda RX4 Wag      1    4    4
Datsun 710         1    4    1
Hornet 4 Drive     0    3    1
Hornet Sportabout  0    3    2
Valiant            0    3    1

Answer 3

您可以先找到vs的索引，然后使用last_col，如下所示：

library(tidyverse)
vs_index = which(colnames(mtcars)=="vs")
mtcars %>% 
        select((vs_index + 1):last_col())