gt object — extract_summary" />

Get a list of summary row data frames from a gt_tbl object where summary rows were added via the summary_rows() function. The output data frames contain the groupname and rowname columns, whereby rowname contains descriptive stub labels for the summary rows.




A table object that is created using the gt() function.


A list of data frames containing summary data.


See also

Other table export functions: as_latex, as_raw_html, as_rtf


# Use `sp500` to create a gt table with # row groups; create summary rows by row # group (`min`, `max`, `avg`) and then # extract the summary rows as a list # object summary_extracted <- sp500 %>% dplyr::filter( date >= "2015-01-05" & date <="2015-01-30" ) %>% dplyr::arrange(date) %>% dplyr::mutate( week = paste0( "W", strftime(date, format = "%V")) ) %>% dplyr::select(-adj_close, -volume) %>% gt( rowname_col = "date", groupname_col = "week" ) %>% summary_rows( groups = TRUE, columns = vars(open, high, low, close), fns = list( min = ~min(.), max = ~max(.), avg = ~mean(.)), formatter = fmt_number, use_seps = FALSE ) %>% extract_summary() # Use the summary list to make a new # gt table; the key thing is to use # `dplyr::bind_rows()` and then pass the # tibble to `gt()` (the `groupname` and # `rowname` magic column names create # row groups and a stub) tab_1 <- summary_extracted %>% dplyr::bind_rows() %>% gt()