ggPMX (version 0.9.4)

pmx_settings: Create controller global settings

Description

Create controller global settings

Usage

pmx_settings(is.draft = TRUE, use.abbrev = FALSE, color.scales = NULL,
  cats.labels = NULL, use.labels = FALSE, use.titles = TRUE,
  effects = NULL, ...)

Arguments

is.draft

logical if FALSE any plot is without draft annotation

use.abbrev

logical if TRUE use abbreviations mapping for axis names

color.scales

list list containing elements of scale_color_manual

cats.labels

list list of named vectors for each factor

use.labels

logical if TRUE replace factor named by cats.labels

use.titles

logical FALSE to generate plots without titles

effects

list list of effects levels and labels

...

extra parameter not used yet

Value

pmxSettingsClass object

Examples

# NOT RUN {
library(ggPMX)
library(ggplot2)
ctr <- theophylline(
  settings=
    pmx_settings(
      color.scales=list(
        "Study",
        labels=c("Study 1","Study 2"),
        values=c("1"="lightyellow","2"="lightblue")),
      cats.labels=list(
        SEX=c("0"="M","1"="F"),
        STUD=c("1"="Study 1","2"="Study 2")
      ),
      use.abbrev=TRUE,
      is.draft=TRUE,
      use.labels=TRUE
    )
)



ctr %>% 
  pmx_plot_npde_time(strat.color="STUD",strat.facet=~SEX)
# 
# 
ctr  %>%
  pmx_plot_eta_box(strat.color="STUD", strat.facet =~SEX)

ctr  %>%  pmx_plot_eta_hist
# }