library(tidyverse)
library(rayshader)
dim1<-dnorm(seq(from=0,to=1,by=0.01),mean=.5,sd=.2)
mygrid<-expand_grid(x=1:100,y=1:100)
mygrid$value <- dim1[mygrid$x] * dim1[mygrid$y]
(g<- ggplot(mygrid, aes(x, y)) +
geom_raster(aes(fill = value)) +
scale_fill_gradient(
low = "#FFFFFF",
high = "#000000"
)
)
rayshader::plot_gg(ggobj = g,multicore = TRUE
,phi=0,theta=0 )

The result is interactive if you mouse around you'll change the viewing angle.