workflow.Rmd

---
title: "R Notebook with Phil Bowsher & Jared"
output: html_notebook
---



```{r setup}

library(readr)
library(ggplot2)
library(plotly)
```


Data

```{r}
library(readr)
adae <- read_csv("https://rhoinc.github.io/data-library/data/clinical-trials/adam/adae.csv")
View(adae)

adae
```

Data Visualization
```{r}

library(ggplot2)

ggplot(adae) +
 aes(x = AESEV, fill = SEX, weight = AGE) +
 geom_bar() +
 scale_fill_hue(direction = 1) +
 theme_minimal()


```


Plotly
```{r}
#plotly
plot <- ggplot(adae) +
 aes(x = AESEV, fill = SEX, weight = AGE) +
 geom_bar() +
 scale_fill_hue(direction = 1) +
 theme_minimal()

ggplotly(plot)

```