1

我有一个 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]>

我想将一个函数应用于融合列（嵌入的小标题）中的每个变量。融合列中的小标题包含以下列：

vtype 和 unspecific_fusion ：

我想应用这条线：

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

到融合列中的每个小标题（所以每行一个）。

任何想法。我尝试使用 map() 和 do() 但我总是有一个错误..

谢谢

PS：

在基础 RI 中可以使用

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

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

4

0 回答 0