Omitting white margins in multilayer surface plot

Question

Take this example from plot_ly package wit some modifications:

library("plotly")
z <- c(
  c(8.83,8.89,8.81,8.87,8.9,8.87),
  c(8.89