#Just in case these weren't run before
source("DWV Assign 7 - Bartels (Figure 1A).r")
bartels1A

source("DWV Assign 7 - Bartels (Figure 1B).r")
bartels1B

# "Patch" the two together
library(patchwork)
bartels1A / bartels1B

#Let's just use GGplot to clean away some of those now extraneous elements
bartels1 <- (bartels1A +
  theme(
    axis.title.x = element_blank(),
    axis.text.x  = element_blank(),
    axis.ticks.x = element_blank(),
    plot.caption = element_blank()
  )
) /
  (bartels1B +
     labs(title = NULL, subtitle = NULL) +
     theme(axis.title.x = element_blank())
       )

bartels1