如何从数据帧列表中选择列?

我的tibble中有几个tibble作为列表列。看起来像

# A tibble: 2 x 2
  kind      data                 
  <chr>     <list>               
1 Bernoulli <tibble [3,154 × 13]>
2 Binomial  <tibble [43 × 3]>  

在 data 列有一个名为 cigs . 我想从每个tibble中提取该列,并将其作为新列包含。所需输出为

  # A tibble: 2 x 2
      kind      data                   cigs
      <chr>     <list>                 <list>
    1 Bernoulli <tibble [3,154 × 13]>  <tibble [3,154 x 1]>
    2 Binomial  <tibble [43 × 3]>      <tibble [43 x 1]>

目前,我是这样做的

library(tidyverse)
compare_me %>% 
  mutate(cigs = data %>% map( ~ select(.x,cigs)) )

purrr有没有更简单的方法?