Styles a plot with provided colors and labels

Styles a plot with provided colors and labels

style_plot(
  p,
  title = NULL,
  xlabel = NULL,
  ylabel = NULL,
  xlims = NULL,
  ylims = NULL,
  colors = NULL,
  labels = NULL,
  shapes = NULL,
  legend = NULL,
  shape_legend = NULL,
  color_order = NULL,
  shape_order = NULL,
  linetype_order = NULL,
  legend.position = NULL,
  legend.title.position = NULL,
  legend.title.hjust = NULL,
  logx = NULL,
  logy = NULL,
  fill_alpha = NULL,
  fill_legend = NULL,
  fill_order = NULL,
  caption_hjust = NULL,
  legend_nrow = NULL
)

Arguments

p

A ggplot2 object to update colors/legend labels

title

A string for a plot title

xlabel

A string for x-axis label

ylabel

A string for y-axis label

xlims

A tuple of numbers specifying limits for x-axis

ylims

A tuple of numbers specifying limits for y-axis

colors

A named character vector for setting colors

labels

A named character vector for setting legend labels

shapes

A named character vector for setting geom_point shapes

legend

A string for setting color legend title

shape_legend

A string for setting shape legend title

color_order

A numeric for setting color legend order

shape_order

A numeric for setting shape legend order

linetype_order

A numeric for setting linetype legend order

legend.position

A string for legend position

legend.title.position

A string for legend title position ("top", "left", "bottom", "right")

legend.title.hjust

A string or numeric for legend title horizontal justification ("left"/0, "center"/0.5, "right"/1)

logx

A boolean for setting x-axis to log scale

logy

A boolean for setting y-axis to log scale

fill_alpha

A numeric for controlling alpha of fill colors

fill_legend

A string to replace fill legend title

fill_order

A numeric for setting fill legend order

caption_hjust

A string or numeric for caption horizontal justification ("left"/0, "center"/0.5, "right"/1)

legend_nrow

A numeric for number of rows in legend

Value

an updated ggplot2 object

Examples

data_proc <- cqtkit_data_verapamil |> preprocess()
.p <- eda_mean_dv_over_time(
  data_proc,
  deltaQTCF,
  NTLD,
  DOSEF,
  group_col = TRTG,
  reference_threshold = c(-10, 10),
)

.p <- style_plot(
  p = .p,
  colors = c(
    "0 mg Placebo" = "grey"
  ),
  labels = c(
    "120 mg Verapamil HCL" = "Verapamil",
    "0 mg Placebo" = "Placebo",
    "Reference 10" = "+/- 10 ms dQTcF",
    "Reference -10" = NA
  ),
  legend = "Treatment"
)
#> Scale for colour is already present.
#> Adding another scale for colour, which will replace the existing scale.
#> Scale for shape is already present.
#> Adding another scale for shape, which will replace the existing scale.
.p