| fp_set_style {forestplot} | R Documentation | 
Set the style of the graph
Description
Sets the output style associated with the foresplot
Usage
fp_set_style(
  x,
  default = NULL,
  box = NULL,
  lines = NULL,
  vertices = NULL,
  summary = NULL,
  zero = NULL,
  axes = NULL,
  hrz_lines = NULL,
  grid = NULL,
  txt_gp = NULL,
  align = NULL
)
Arguments
| x | The forestplot object | 
| default | A fallback grid::gpar for all unspecified attributes.
If set to NULL then it defaults to legacy parameters, including
the  | 
| box | The graphical parameters ( | 
| lines | The graphical parameters ( | 
| vertices | The graphical parameters ( | 
| summary | The graphical parameters ( | 
| zero | The graphical parameters ( | 
| axes | The graphical parameters ( | 
| hrz_lines | The graphical parameters ( | 
| grid | The graphical parameters ( | 
| txt_gp | Set the fonts etc for all text elements. See  | 
| align | Vector giving alignment (l,r,c) for the table columns | 
Value
The foresplot object with the styles
See Also
Other graph modifiers: 
fp_add_lines(),
fp_decorate_graph(),
fp_insert_row(),
fp_set_zebra_style()
Other forestplot functions: 
forestplot(),
fpColors(),
fpDrawNormalCI(),
fpLegend(),
fpShapesGp(),
fp_add_lines(),
fp_decorate_graph(),
fp_insert_row(),
fp_set_zebra_style()
Examples
base_data <- tibble::tibble(mean  = c(0.578, 0.165, 0.246, 0.700, 0.348, 0.139, 1.017),
                            lower = c(0.372, 0.018, 0.072, 0.333, 0.083, 0.016, 0.365),
                            upper = c(0.898, 1.517, 0.833, 1.474, 1.455, 1.209, 2.831),
                            study = c("Auckland", "Block", "Doran", "Gamsu",
                                      "Morrison", "Papageorgiou", "Tauesch"),
                            deaths_steroid = c("36", "1", "4", "14", "3", "1", "8"),
                            deaths_placebo = c("60", "5", "11", "20", "7", "7", "10"),
                            OR = c("0.58", "0.16", "0.25", "0.70", "0.35", "0.14", "1.02"))
base_data |>
  forestplot(labeltext = c(study, deaths_steroid, deaths_placebo, OR),
             clip = c(0.1, 2.5),
             xlog = TRUE) |>
  fp_add_header(study = c("", "Study"),
                deaths_steroid = c("Deaths", "(steroid)"),
                deaths_placebo = c("Deaths", "(placebo)"),
                OR = c("", "OR")) |>
  fp_set_style(box = "royalblue",
               line = "darkblue",
               summary = gpar(fill = "royalblue", clr = "black"),
               txt_gp = fpTxtGp(label = gpar(fontfamily = "mono")))