install.packages("plotly")
library(plotly)

tmp <- matrix(c(#place array here
  ),nrow = 24)

p <- plot_ly(z = ~tmp) %>% add_surface()
p