Create an inline 'bullet chart' in a gt table
Usage
gt_plt_bullet(
gt_object,
column = NULL,
target = NULL,
width = 65,
palette = c("grey", "red"),
palette_col = NULL
)
Arguments
- gt_object
An existing gt table object of class
gt_tbl
- column
The column where a 'bullet chart' will replace the inline values.
- target
The column indicating the target values that will be represented by a vertical line
- width
Width of the plot in pixels
- palette
Color of the bar and target line, defaults to
c("grey", "red")
, can use named colors or hex colors. Must be of length two, and the first color will always be used as the bar color.- palette_col
An additional column that contains specific colors for the bar colors themselves. Defaults to NULL which skips this argument.
Examples
set.seed(37)
bullet_tab <- tibble::rownames_to_column(mtcars) %>%
dplyr::select(rowname, cyl:drat, mpg) %>%
dplyr::group_by(cyl) %>%
dplyr::mutate(target_col = mean(mpg)) %>%
dplyr::slice_sample(n = 3) %>%
dplyr::ungroup() %>%
gt::gt() %>%
gt_plt_bullet(column = mpg, target = target_col, width = 45,
palette = c("lightblue", "black")) %>%
gt_theme_538()
See also
Other Themes:
gt_plt_conf_int()
,
gt_plt_dot()
,
gt_theme_538()
,
gt_theme_dark()
,
gt_theme_dot_matrix()
,
gt_theme_espn()
,
gt_theme_excel()
,
gt_theme_guardian()
,
gt_theme_nytimes()
,
gt_theme_pff()