我有一个5列的tibble:
# 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()但我总是有错误..
谢谢
附: :
在基地R我可以使用
lapply(samplesheet$fusion,function(x){x %>%
group_by(vtype) %>%
summarise(n=sum(unspecific_fusions>0))})
但我希望有一个dplyr解决方案与其使用保持一致 .