format_column | R Documentation |
Change the formatting of a column or single cells within columns.
format_column(
tbl,
columns = dplyr::everything(),
rows = NULL,
format_gt = gt::fmt_auto,
format_openxlsx = "GENERAL",
stack = TRUE
)
tbl |
tablespan table |
columns |
the columns to style. Must be a tidyselect selector expression (e.g., starts_with("hp_")) |
rows |
indices of the rows which should be styled. When set to NULL, the style is applied to all rows |
format_gt |
formatting used for gt. This must be a function with the following signature: function(tbl, columns, rows, ...) and return the tbl with applied formatting. See examples. |
format_openxlsx |
an argument passed to the numFmt field for openxlsx::createStyle. |
stack |
When set to TRUE, the style is added on top of the existing styles. This is mostly relevant for openxlsx. When set to FALSE, the new style replaces all previous styling. |
the tablespan table with added styles
library(tablespan)
library(dplyr)
data("mtcars")
# We want to report the following table:
summarized_table <- mtcars |>
group_by(cyl, vs) |>
summarise(N = n(),
mean_hp = mean(hp),
sd_hp = sd(hp),
mean_wt = mean(wt),
sd_wt = sd(wt))
# Create a tablespan:
tbl <- tablespan(data = summarized_table,
formula = Cylinder:cyl + Engine:vs ~
N +
(`Horse Power` = Mean:mean_hp + SD:sd_hp) +
(`Weight` = Mean:mean_wt + SD:sd_wt),
title = "Motor Trend Car Road Tests",
subtitle = "A table created with tablespan",
footnote = "Data from the infamous mtcars data set.")
tbl |>
format_column(columns = mean_hp,
rows = c(1,3),
format_gt = function(tbl, columns, rows, ...){
return(gt::fmt_number(tbl,
columns = columns,
rows = rows,
decimals = 4))},
format_openxlsx = "0.0000") |>
as_gt()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.