plot_ly: как построить подзаголовок по горизонтали?

#r #plotly #subplot

Вопрос:

Я не могу создать подзаголовок с помощью plot_ly, scatter3d, когда каждый участок находится рядом на линии horitonzal.

 library(plotly)
mtcars$am[which(mtcars$am == 0)] <- 'Automatic'
mtcars$am[which(mtcars$am == 1)] <- 'Manual'
mtcars$am <- as.factor(mtcars$am)

fig1 <- plot_ly(mtcars, x = ~wt, y = ~hp, z = ~qsec, color = ~am, colors = c('#BF382A', '#0C4B8E'), type = "scatter3d", mode = "markers")
fig2 <- plot_ly(mtcars, x = ~hp, y = ~wt, z = ~qsec, color = ~am, colors = c('#BF382A', '#0C4B8E'), type = "scatter3d", mode = "markers")
subplot(fig1, fig2)
 

введите описание изображения здесь
Чего мне не хватает?