R dplyr：删除多列

我有一个数据框和要删除的该数据框中的列列表。让我们以iris数据集为例。我想删除Sepal.Length并Sepal.Width仅使用剩余的列。如何使用包装select或select_从dplyr包装中取出？

到目前为止，这是我尝试过的方法：

drop.cols <- c('Sepal.Length', 'Sepal.Width')
iris %>% select(-drop.cols)

-drop.cols中的错误：一元运算符的参数无效

iris %>% select_(.dots = -drop.cols)

-drop.cols中的错误：一元运算符的参数无效

iris %>% select(!drop.cols)

！drop.cols中的错误：参数类型无效

iris %>% select_(.dots = !drop.cols)

！drop.cols中的错误：参数类型无效

我觉得我缺少一些明显的东西，因为这些似乎是应该已经存在的非常有用的操作。在Github上，有人发布了类似的问题，哈德利说要使用“负索引”。那是我尝试过的（我认为），但无济于事。有什么建议？

检查有关select_vars的帮助。这为您提供了一些有关如何使用此功能的额外想法。

在您的情况下：

iris %>% select(-one_of(drop.cols))

也尝试

## Notice the lack of quotes
iris %>% select (-c(Sepal.Length, Sepal.Width))

除此以外，select(-one_of(drop.cols))还有其他一些用于删除列的选项，这些选项select()不涉及定义所有特定的列名称（使用dplyr starwars示例数据获取更多的列名称）：

starwars %>% 
  select(-(name:mass)) %>%        # the range of columns from 'name' to 'mass'
  select(-contains('color')) %>%  # any column name that contains 'color'
  select(-starts_with('bi')) %>%  # any column name that starts with 'bi'
  select(-ends_with('er')) %>%    # any column name that ends with 'er'
  select(-matches('^f.+s$')) %>%  # any column name matching the regex pattern
  select_if(~!is.list(.)) %>%     # not by column name but by data type
  head(2)

# A tibble: 2 x 2
homeworld species
  <chr>     <chr>  
1 Tatooine  Human  
2 Tatooine  Droid 

请谨慎使用该select()函数，因为它同时在dplyr和MASS软件包中使用，因此，如果加载了MASS，select（）可能无法正常工作。若要找出要加载的软件包sessionInfo()，请在“其他附加的软件包：”部分中键入并寻找它。如果已加载，请键入detach( "package:MASS", unload = TRUE )，然后您的select()函数应会再次运行。

我们可以尝试

iris %>% 
      select_(.dots= setdiff(names(.),drop.cols))

另一种方法是将不需要的列更改为NULL，这避免了嵌入括号：

head(iris,2) %>% mutate_at(drop.cols, ~NULL)
#   Petal.Length Petal.Width Species
# 1          1.4         0.2  setosa
# 2          1.4         0.2  setosa

如果你有在列名的特殊字符，无论是select或select_可能无法正常工作。的该属性dplyr使用"."。要引用问题中的数据集，可以使用以下行来解决此问题：

drop.cols <- c('Sepal.Length', 'Sepal.Width')
  iris %>% .[,setdiff(names(.),drop.cols)]

你可以试试

iris %>% select(-!!drop.cols)