R: “tie” two graphs together

Question

I am using the R programming language. With the following code, I was able to create two interactive graphs:

library(dplyr)
library(ggplot2)
library(shiny)
librar