I currently have the following code:
figfactor<- plot_ly(X15b, x=~xplot,y=~yplot*-1,z=(~zplot*-1),type="scatter3d",mode="markers",