join_ggplots: Join two ggplot objects side by side

In rix133/ormPlot: Advanced Plotting of Ordinal Regression Models

Join two ggplot objects side by side

Description

Function to get aligned table of two ggplot objects

Usage

join_ggplots(
  leftplot,
  rightplot,
  plot.widths = c(0.5, 0.5),
  title = "Odds Ratio"
)

Arguments

leftplot	the left side plot
rightplot	the plot on the right
plot.widths	the relative widths of the left and right plot should be a vector (c()) with 2 elements that sum to 1 defaults to equal widths
title	the tile row of the drawn plot

Examples

set.seed(123)
#load the libraries
library(rms)
library(ormPlot)
library(ggplot2)

#make the datadist
dd<-rms::datadist(educ_data)
options(datadist="dd")

#create the model
cran_model <- orm(educ_3 ~ YOBc + sex + height_rzs + n_siblings  + cran_rzs, data = educ_data)

#the antilog true produces odd ratios (default value for orm and lrm)
s<-summary(cran_model, antilog = TRUE)

#set the plotting default theme (optional)
theme_set(theme_classic())

#return modifiable ggplots
plots<-forestplot(s, return_ggplots = TRUE )

#modify like any ggplot2 object
table<-plots[[1]] +  theme(axis.text=element_text(size = 12),
                           axis.line.x = element_line(color = "red", size = 1),
                           axis.text.y = element_blank())

graph<-plots[[2]] + theme(axis.line = element_line(color = "red", size = 1),
                          axis.text.y = element_text())

#join the graphs
join_ggplots(  graph, table, title = "", plot.widths = c(0.6,0.4))

rix133/ormPlot documentation built on Sept. 20, 2023, 5:53 a.m.