R 如何结合ggplot和plotly图形？

我准备了一个

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

然后，我创建了

plot\u 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()

#plot#ly 3D plot
s=interp（x=df$x，y=df$y，z=df$z，duplicate=“mean”）#准备绘图
p%#绘图#
添加_曲面（）

，它创建了一个图形，如下所示

那么，问题来了。 我想将第一个

ggplot2

图添加到第二个

plot\u ly

图的底部，如下所示

是否有任何方法（功能或软件包）可以通过R实现这一点？

。

  #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()