Add summary rows to one or more row groups by using the input data already provided in the gt() function alongside any suitable aggregation functions. Should we need to obtain the summary data for external purposes, the extract_summary() can be used with a gt_tbl object where summary rows were added via summary_rows().

summary_rows(data, groups = NULL, columns = NULL, fns,
missing_text = "---", formatter = fmt_number, ...)

Arguments

data a table object that is created using the gt() function. the row groups labels that identify which summary rows will be added. the columns for which the summaries should be calculated. If nothing is provided, then the supplied aggregation functions will be applied to all columns. functions used for aggregations. This can include base functions like mean, min, max, median, sd, or sum or any other user-defined aggregation function. The function(s) should be supplied within a list(). Within that list, we can specify the functions by use of function names (e.g., "sum"), the functions themselves (e.g., sum), or one-sided R formulas by prefacing with a ~ where . serves as the data to be summarized (e.g., sum(., na.rm = TRUE)). By using named arguments, the names will serve as row labels for the corresponding summary rows (otherwise the labels will be derived from the function names). the text to be used in place of NA values in summary cells with no data outputs. a formatter function name. These can be any of the fmt_*()functions available in the package (e.g., fmt_number(), link{fmt_percent}(), etc.), or a custom function using fmt(). The default function is fmt_number() and its options can be accessed through .... values passed to the formatter function, where the provided values are to be in the form of named vectors. For example, when using the default formatter function, fmt_number(), options such as decimals, use_seps, and locale can be used.

Value

an object of class gt_tbl.

Examples

# Use sp500 to create a gt table with
# row groups; create summary rows (min,
# max, avg) by row group, where each
# each row group is a week number
tab_1 <-
sp500 %>%
dplyr::filter(
date >= "2015-01-05" &
date <="2015-01-16"
) %>%
dplyr::arrange(date) %>%
dplyr::mutate(
week = paste0(
"W", strftime(date, format = "%V"))
) %>%
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
)