函数使用Purrr::map生成多个htmlTables。

Question

library(htmlTable)
library(tidyverse)
library(ggmosaic) for "happy" dataset

我想要创建一个函数，为数据集中的所有分类变量创建频率表，然后为每个变量生成htmlTables。但是，通过使用purrr::map，表在列表中。如何使用htmlTable生成表？还是生成类似表以供发布的更好的包？我想我需要拆分列表或者使用额外的purrr::map函数？我很感激你的帮助.

Something like this...


FUN<-function(data){
TAB<-happy%>%select_if(is.factor)%>%
map(table)
TABLES<-htmlTable(TAB)
return(TABLES)
}

Answer 1

下面是一个使用tibble来存储函数的参数以及由此产生的HTML字符串的解决方案：

编辑：添加了新列(百分比)

library(ggmosaic) 
library(purrr)
library(tidyverse) 
library(htmlTable)
library(magrittr) 
library(scales)

data(happy)

# Use a subset of `happy` for the example
h <- happy %>% as_tibble %>% sample_n(100)

# create the function
make_html_table <- function(data, .name, .col_names) {
  data %>% 
    table %>% 
    as.data.frame %>% 
    set_colnames(.col_names) %>% 
    as.data.frame %>% 
    mutate(percent = scales::percent(count/sum(count))) %>%  # add the percent column
    htmlTable(caption = .name)
}

# Apply the function and store the results in a tibble
tbl <- 
    h %>% 
    select_if(is.factor) %>% 
    { tibble(NAME = names(.), 
             data = map(., ~.x)) } %>% 
    mutate(TABLE = map2(.x = data, 
                        .y = NAME, 
                        .f = make_html_table, 
                        .col_names = c("levels", "count")))

# Check out the tables in the Viewer Pane (if you're using RStudio)
tbl %>% extract2("TABLE") %>% map(htmlTableWidget)
#> $happy
#> 
#> $sex
#> 
#> $marital
#> 
#> $degree
#> 
#> $finrela
#> 
#> $health

下面是创建的一个表的屏幕截图：

​

​