Блог

У меня есть следующий код

 figfactor1<- plot_ly(X15a, x=~xplot,y=~yplot*-1,z=(~zplot*-1),
                  type="scatter3d",mode="markers",
                  marker=list(color=~vectorM,colorscale='Greys',
                  showscale=TRUE,colorbar=list(title="factor"),
                  cmin=0,cmax=1.2,
                  line=list(width=2,color='DarkSlateGrey')))
figfactor2<- plot_ly(X15b, x=~xplot,y=~yplot*-1,z=(~zplot*-1),
                  type="scatter3d",mode="markers",
                  marker=list(color=~vectorM,colorscale='Greys',
                  showscale=TRUE,colorbar=list(title="factor"),
                  cmin=0,cmax=1.2,
                  line=list(width=2,color='DarkSlateGrey')))
figfactor3<- plot_ly(X15c, x=~xplot,y=~yplot*-1,z=(~zplot*-1),
                  type="scatter3d",mode="markers",
                  marker=list(color=~vectorM,colorscale='Greys',
                  showscale=TRUE,colorbar=list(title="factor"),
                  cmin=0,cmax=1.2,
                  line=list(width=2,color='DarkSlateGrey')))
        
scene<-list(xaxis = list(title = 'x-value [mm]',range=c(-40,40),dtick=20,tickwidth=1),
            yaxis = list(title = 'y-value [mm]',range=c(0,200),dtick=20,tickwidth=1), 
            zaxis = list(title = 'z-value [mm]',range=c(0,150),dtick=20,tickwidth=1),
            camera=list(eye=list(x=2.1,y=0.3,z=0.6)))
                       
fig1 <- figfactor1 %>% layout( title="Volume category '0-1 cc'",scene=scene)
fig2 <- figfactor2 %>% layout( title="Volume category '1-10 cc'",scene=scene)
fig3 <- figfactor3 %>% layout( title="Volume category '>10 cc'",scene=scene)
  

Как я могу объединить эти три графика, имея только 1 цветную полосу справа от трех графиков и с заголовком «Изменение коэффициента». Я хотел бы получить изображение, как показано ниже, в настоящее время я получаю только три отдельных изображения.