1. ### 1. doCombn函数可以给出因子水平的两两比较的组合
  2. doCombn <- function(x){
  3.   xx <- unique(x)
  4.   combns <- combn(1:length(xx), 2)
  5.   res <- apply(combns, 2, function(x) str_glue("{xx[x[1]]} vs {xx[x[2]]}") )
  6.   return(res)
  7. }
  8. doCombn(c("A", "B", "C"))       
  9. doCombn2 <- function(x){
  10.   xx <- unique(x)
  11.   combns <- as.data.frame(combn(xx, 2)) 
  12.   res <- map_chr(combns,~paste0(.x,collapse = " vs "))
  13.   res
  14. }
  15. doCombn2(c("A", "B", "C"))

如何讲多层列表转变成单层列表？

  1. list.flatten(list1)
  3. test1 <-list(
  4.   KEGG = list(
  5.     'AvsB' = c(1, 2),
  6.     'BvsC' = '2'
  7.   ),
  8.   GO = list(
  9.     'AvsB' = 3,
  10.     'BvsC' = 4
  11.   )
  12. )
  13. test1
  14. # $KEGG
  15. #$KEGG$AvsB
  16. #[1] 1 2
  17. #
  18. #$KEGG$BvsC
  19. #[1] "2"
  20. #
  21. #
  22. #$GO
  23. #$GO$AvsB
  24. #[1] 3
  25. #
  26. #$GO$BvsC
  27. #[1] 4
  30. test1 %>%
  31.   enframe(name = "name2", value = "value2") %>%
  32.   unnest(value2) %>%
  33.   mutate(value2 = enframe(value2)) %>%
  34.   unnest(value2) %>%
  35.   mutate(group = str_c(name2, name, sep = "---")) %>%
  36.   dplyr::select(group, value) %>%
  37.   deframe()