地图后删除栏

Question

天真的问题：我想在map

之后删除一列

Repex：

tibble(a = rep(c("A", "B"), each = 5),
       x = runif(10),
       y = runif(10),
       z = runif(10)) %>%
  split(.$a) %>%
  map(`[`, c("x", "y", "z"))

选择x的{​​{1}}，y和z列。

如果我想删除列tibble怎么办？ （结果相同，但对我来说更容易。）

Answer 1

使用 base R

map(~.x[grep('a', names(.x), invert = TRUE)])
#OR
map(function(x) x[grep('a', names(x), invert = TRUE)])

使用 dplyr

map(~select(.x, -a))