knitr::kable实现结构化展示数据

一般做检验，直接会summary结果，通常情况下，会看到很多很多，口区~
如何提取有用的信息，然后结构化展示数据呢？
kable函数了。

我先给出学长给我的一部分，回头整理好了再补充

culture_result %>%
    map_dfr(
        ~
            data.frame(
                statistic = .$LMlag$statistic,
                p.value = .$LMlag$p.value,
                method = .$LMlag$method,
                model = .$LMlag$data.name
            )
    ) %>%
    mutate(model = str_replace_all(model, "
", " ")) %>% 
    mutate(year = c(2008, 2013, 2018)) %>%
    knitr::kable() %>% 
    clipr::write_clip()

要补充的笔记有两点
1.如何在检验结果中提取各种检验值
2. kable 函数学习，主要是一些个参数把