ggplot2_3D圖

library(rayshader)
library(ggsci)      # 修改配色
p1 <- ggplot(diamonds, aes(x, depth)) +
         stat_density_2d(aes(fill = stat(nlevel)), 
                         geom = "polygon",
                         n = 100,bins = 10,contour = TRUE) +
        theme(axis.title=element_blank(), 
              axis.text=element_blank(), 
              axis.ticks=element_blank()
        ) +   scale_fill_viridis_c()
p1