Produce an odds ratio table and plot from a glm() or lme4::glmer() model.

or_plot(.data, dependent, explanatory, random_effect = NULL,
  factorlist = NULL, glmfit = NULL, confint_type = NULL,
  breaks = NULL, column_space = c(-0.5, 0, 0.5),
  dependent_label = NULL, prefix = "",
  suffix = ": OR (95% CI, p-value)", table_text_size = 5,
  title_text_size = 18, plot_opts = NULL, table_opts = NULL, ...)

Arguments

.data

Dataframe.

dependent

Character vector of length 1: name of depdendent variable (must have 2 levels).

explanatory

Character vector of any length: name(s) of explanatory variables.

random_effect

Character vector of length 1, name of random effect variable.

factorlist

Option to provide output directly from summary_factorlist().

glmfit

Option to provide output directly from glmmulti() and glmmixed().

confint_type

One of c("profile", "default") for GLM models or c("default", "Wald", "profile", "boot") for glmer models. Note "default" == "Wald".

breaks

Manually specify x-axis breaks in format c(0.1, 1, 10).

column_space

Adjust table column spacing.

dependent_label

Main label for plot.

prefix

Plots are titled by default with the dependent variable. This adds text before that label.

suffix

Plots are titled with the dependent variable. This adds text after that label.

table_text_size

Alter font size of table text.

title_text_size

Alter font size of title text.

plot_opts

A list of arguments to be appended to the ggplot call by "+".

table_opts

A list of arguments to be appended to the ggplot table call by "+".

...

Other parameters.

Value

Returns a table and plot produced in ggplot2.

See also

Other finalfit plot functions: coefficient_plot, ff_plot, hr_plot, surv_plot

Examples

library(finalfit) library(dplyr) library(ggplot2) # OR plot data(colon_s) explanatory = c("age.factor", "sex.factor", "obstruct.factor", "perfor.factor") dependent = "mort_5yr" colon_s %>% or_plot(dependent, explanatory)
#> Waiting for profiling to be done...
#> Waiting for profiling to be done...
#> Waiting for profiling to be done...
#> Warning: Removed 4 rows containing missing values (geom_errorbarh).
colon_s %>% or_plot(dependent, explanatory, table_text_size=4, title_text_size=14, plot_opts=list(xlab("OR, 95% CI"), theme(axis.title = element_text(size=12))))
#> Waiting for profiling to be done...
#> Waiting for profiling to be done...
#> Waiting for profiling to be done...
#> Warning: Removed 4 rows containing missing values (geom_errorbarh).