rayshader rmd

rayshaderTry.Rmd

---
title: "Untitled"
author: "Stephanie"
date: "5/25/2021"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## GGplot

```{r ggp}
library(tidyverse)
library(rayshader)
ggdiamonds = ggplot(diamonds, aes(x, depth)) +
   stat_density_2d(aes(fill = stat(nlevel)), geom = "polygon", n = 200, bins = 50,contour = TRUE) +
   facet_wrap(clarity~.) 
ggdiamonds
```

## Rayshader

```{r rayshader}
plot_gg(ggdiamonds,multicore = TRUE,width=5,height=5,scale=250,
        zoom = 0.55, phi = 30)
render_snapshot()
rgl::rgl.close()
```