r - 使用 dplyr 和 select_if 从数据框中删除列表列

Question

是否可以使用 dpyr 从数据框中删除所有列表列？ select类似于删除单个列？

df <- tibble(
  a = LETTERS[1:5],
  b = 1:5,
  c = list('bob', 'cratchit', 'rules!','and', 'tiny tim too"')
)


df %>% 
  select_if(-is.list)

Error in -is.list : invalid argument to unary operator

这似乎是一个可行的解决方法，但想知道是否可以使用 select_if 来完成。 .

df %>%
  select(-which(map(df,class) == 'list'))

Answer 1

使用 Negate

df %>% 
  select_if(Negate(is.list))
# A tibble: 5 x 2
  a         b
  <chr> <int>
1 A         1
2 B         2
3 C         3
4 D         4
5 E         5

还有 purrr::negate这将产生相同的结果。