Skip to contents

Helper Function: CoxPH Grob

Source: R/kaplan_meier_plot.R
h_grob_coxph.Rd

[Stable]

Grob of rtable output from h_tbl_coxph_pairwise

Usage 

h_grob_coxph(
  ...,
  x = 0,
  y = 0,
  ttheme = gridExtra::ttheme_default(base_size = 12, padding = grid::unit(c(1, 0.5),
    "lines"), core = list(bg_params = list(fill = c("grey95", "grey90"), alpha = 0.5)))
)

Arguments

...

arguments will be passed to h_tbl_coxph_pairwise().

x

a numeric value between 0 and 1 specifying x-location.

y

a numeric value between 0 and 1 specifying y-location.

ttheme

(list)
see gridExtra::ttheme_default().

Examples 

if (FALSE) {
library(dplyr)
library(survival)
library(grid)

grid::grid.newpage()
grid.rect(gp = grid::gpar(lty = 1, col = "pink", fill = "gray85", lwd = 1))
data <- tern_ex_adtte %>%
  filter(PARAMCD == "OS") %>%
  mutate(is_event = CNSR == 0)
tbl_grob <- h_grob_coxph(
  df = data,
  variables = list(tte = "AVAL", is_event = "is_event", arm = "ARMCD"),
  control_coxph_pw = control_coxph(conf_level = 0.9), x = 0.5, y = 0.5
)
grid::grid.draw(tbl_grob)
}