combining three separate 3D graphs into one plot R

Question

I have the following code

figfactor1<- plot_ly(X15a, x=~xplot,y=~yplot*-1,z=(~zplot*-1),
                  type="scatter3d",mode="markers",