r - 埋め込まれたティブルに関数を適用する

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]>

Fusion 列 (埋め込みティブル) の各変数に関数を適用したいと考えています。フュージョン列のティブルには、次の列が含まれます。

vtype と unspecific_fusion :

私はこの行を適用したいと思います:

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

融合列の各ティブルに（つまり、1 行に 1 つ）。

何か案が。map() と do() を試しましたが、常にエラーが発生します..

ありがとう

PS :

ベースRIで使用できます

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

しかし、その使用と一貫した dplyr ソリューションが必要です。