将函数应用于嵌入式tibble

Question

我有5列的反复：

# A tibble: 13 x 5
   sample animal   RNA  type              fusion
    <chr>  <int> <chr> <chr>              <list>
 1      A    206 meth1    T3 <tibble [126 x 24]>
 2      B    206 meth1    T5 <tibble [650 x 24]>
 3      C    206 meth1    T3 <tibble [515 x 24]>
 4      D    206 meth1    T5  <tibble [90 x 24]>
 5      E    206 meth1    T3 <tibble [154 x 24]>
 6      F    206 meth2    T5 <tibble [182 x 24]>
 7      G    206 meth2    T3 <tibble [148 x 24]>
 8      H    206 meth2    T5 <tibble [500 x 24]>
 9      I    206 meth2    T3  <tibble [50 x 24]>
10      J    206 meth2    T5  <tibble [16 x 24]>
11      K    212 meth2    T3   <tibble [3 x 24]>
12      L    212 meth2    T5   <tibble [3 x 24]>
13      M    212 meth2    T3   <tibble [1 x 24]>

我想将函数应用于融合列中的每个变量（嵌入式tibble）。融合列中的元素包含以下列：

vtype和unspecific_fusion：

我想申请这一行：

x %>% group_by(vtype) %>% 
    summarise(n=sum(unspecific_fusion>0))

到融合柱中的每个tibble（每行一个）。

任何想法。我尝试使用map（）和do（），但我总是有错误..

由于

P.S。 ：

在基地R我可以使用

lapply(samplesheet$fusion,function(x){x %>% 
        group_by(vtype) %>% 
        summarise(n=sum(unspecific_fusions>0))})

但我希望有一个dplyr解决方案与其使用保持一致。