Как совместить ggplot и графически график?

Question

Я готовлю data.frame следующим образом;

  #create dataframe
  df <-data.frame(x = c(rnorm(300, 3, 2.5), rnorm(150, 7, 2)), # create random data
                  y = c(rnorm(300, 6, 2.5), rnorm(150, 2, 2)),
                  z = c(rnorm(300, 6, 2.5), rnorm(150, 2, 2)),
                  group = c(rep('A', 300), rep('B', 150))) # add two groups

Соотношение между у и х такое же, как показано ниже, когда показано ggplot2;

  #for y-x correlation by group with fit curve
  gg <- ggplot(df, aes(x=x, y=y)) + 
    stat_density_2d(geom = "polygon", aes(alpha = ..level..,fill=group))+
    geom_smooth(method = 'loess')
  print(gg)  

Затем я создал plot_ly 3D рисунок следующим образом;

  #plot_ly 3D plot
  s = interp(x = df$x, y = df$y, z = df$z,duplicate = "mean") # prepare for plot_ly plot
  p <- plot_ly(x = s$x, y = s$y, z = s$z,colorscale = 'Jet')%>% # plot_ly
    add_surface()

, который создал график как показано ниже;

Тогда возникает вопрос. Я хотел бы добавить первую цифру ggplot2 внизу второй фигуры plot_ly, как показано ниже;

Есть ли какие-либо способ (функция или пакет) для выполнения sh это с R?