Simple bar chart plot that shows counts per category.
Source:R/tm_g_barchart_simple.R
tm_g_barchart_simple.Rd
Categories can be defined up to four levels deep and are defined through
x
, fill
, x_facet
and y_facet
. If any of them is NULL
,
it is ignored.
Usage
tm_g_barchart_simple(
x = NULL,
fill = NULL,
x_facet = NULL,
y_facet = NULL,
label = "Count Barchart",
plot_options = NULL,
plot_height = c(600L, 200L, 2000L),
plot_width = NULL,
pre_output = NULL,
post_output = NULL,
ggplot2_args = teal.widgets::ggplot2_args()
)
Arguments
- x
(
data_extract_spec
)
variable on the x-axis.- fill
(
data_extract_spec
)
grouping variable assigned to the bar colors.- x_facet
(
data_extract_spec
)
faceting groups on the row dimension.- y_facet
(
data_extract_spec
)
faceting groups on the col dimension.- label
(
character
)
menu item label of the module in the teal app.- plot_options
(
list
)
list of plot options.- plot_height
optional, (
numeric
)
a vector of length three withc(value, min, max)
. Specifies the height of the main plot and renders a slider on the plot to interactively adjust the plot height.- plot_width
optional, (
numeric
)
a vector of length three withc(value, min, max)
. Specifies the width of the main plot and renders a slider on the plot to interactively adjust the plot width.- pre_output
optional, (
shiny.tag
)
with text placed before the output to put the output into context. For example a title.- post_output
optional, (
shiny.tag
)
with text placed after the output to put the output into context. For example theshiny::helpText()
elements are useful.- ggplot2_args
-
optional, (
ggplot2_args
)
object created byteal.widgets::ggplot2_args()
with settings for the module plot. The argument is merged with optionteal.ggplot2_args
and with default module arguments (hard coded in the module body).For more details, see the help vignette:
vignette("custom-ggplot2-arguments", package = "teal.widgets")
.
Examples
library(nestcolor)
adsl <- tmc_ex_adsl %>% dplyr::mutate(ITTFL = factor("Y") %>%
formatters::with_label("Intent-To-Treat Population Flag"))
adae <- tmc_ex_adae %>% dplyr::filter(!((AETOXGR == 1) & (AESEV == "MILD") & (ARM == "A: Drug X")))
app <- init(
data = cdisc_data(
cdisc_dataset("ADSL", adsl),
cdisc_dataset("ADAE", adae)
),
modules = modules(
tm_g_barchart_simple(
label = "ADAE Analysis",
x = data_extract_spec(
dataname = "ADSL",
select = select_spec(
choices = variable_choices(
adsl,
c(
"ARM", "ACTARM", "SEX",
"RACE", "ITTFL", "SAFFL", "STRATA2"
)
),
selected = "ACTARM",
multiple = FALSE
)
),
fill = list(
data_extract_spec(
dataname = "ADSL",
select = select_spec(
choices = variable_choices(
adsl,
c(
"ARM", "ACTARM", "SEX",
"RACE", "ITTFL", "SAFFL", "STRATA2"
)
),
selected = "SEX",
multiple = FALSE
)
),
data_extract_spec(
dataname = "ADAE",
select = select_spec(
choices = variable_choices(adae, c("AETOXGR", "AESEV", "AESER")),
selected = NULL,
multiple = FALSE
)
)
),
x_facet = list(
data_extract_spec(
dataname = "ADAE",
select = select_spec(
choices = variable_choices(adae, c("AETOXGR", "AESEV", "AESER")),
selected = "AETOXGR",
multiple = FALSE
)
),
data_extract_spec(
dataname = "ADSL",
select = select_spec(
choices = variable_choices(
adsl,
c(
"ARM", "ACTARM", "SEX",
"RACE", "ITTFL", "SAFFL", "STRATA2"
)
),
selected = NULL,
multiple = FALSE
)
)
),
y_facet = list(
data_extract_spec(
dataname = "ADAE",
select = select_spec(
choices = variable_choices(adae, c("AETOXGR", "AESEV", "AESER")),
selected = "AESEV",
multiple = FALSE
)
),
data_extract_spec(
dataname = "ADSL",
select = select_spec(
choices = variable_choices(
adsl,
c(
"ARM", "ACTARM", "SEX",
"RACE", "ITTFL", "SAFFL", "STRATA2"
)
),
selected = NULL,
multiple = FALSE
)
)
)
)
)
)
#> [INFO] 2023-08-14 14:44:00.2605 pid:1183 token:[] teal.modules.clinical Initializing tm_g_barchart_simple
if (interactive()) {
shinyApp(app$ui, app$server)
}