R 如何组合使用shiny中不同库创建的两个绘图？

我已经在shiny应用程序中分别使用动态图和rCharts库创建了两个不同的绘图。由于它们是在两个不同的函数renderChart2和RenderGraph中创建的，因此我无法使用par（mfrow=c（2,1））来组合它们。我想组合这两个图表，以便在我的应用程序中有效地分配空间

服务器.R代码

output$plot1 <- renderDygraph({
    data <- data()
 posStart <- as.Date(input$startDate,format="%Y-%m-%d")
     posEnd <-  as.Date(input$endDate,format="%Y-%m-%d")

    if (input$startDate >= input$endDate)
      stop("EndingDate must be > StartingDate")

if (input$startDate < input$endDate){

newdata <- data[paste(posStart,posEnd,sep="::"),]

dygraph(newdata)

    }
  })  

output$chart2 <- renderChart2({
  data <- data()
  posStart <- as.Date(input$startDate,format="%Y-%m-%d")
  posEnd <-  as.Date(input$endDate,format="%Y-%m-%d")
  newdata <- data[paste(posStart,posEnd,sep="::"),]
  #       barChart(newdata)
#   data <- read.csv("C:\\app1\\AAPL.CSV",sep=",")
data.df <- data.frame(cbind(format(index(newdata),"%Y-%m-%d"),coredata(newdata)))
colnames(data.df)[1]<-"date"

data.melt <- melt(data.df)
# newdatamelt <- data.melt[paste(posStart,posEnd,sep="::"),]
print(head(data.df))
print(head(data.melt))
d7 <- dPlot(
  x = "date",
  y = "AAPL.Volume",

  data = data.melt,
  type = "bar"
)

d7$addParams(height = 70,width="100%", dom = 'chart2')

return(d7)
})

输出$plot1