vishakh charts.Rmd

## Import Statements

```{r}
library(highcharter)
library(dplyr)
```

## reading in data
```{r}
# obestiy
childhood_obesity <- readRDS(file = 'clean_data/Children/childhood_obesity_data.rds')

#physical inactivity
childhood_inactivity <- readRDS(file = 'clean_data/Children/child_inactivity_data.rds')

#WIC Obesity
wic_obesity <- readRDS(file = 'clean_data/Children/wic_obesity_data.rds')

#smoking trends
tobacco_trends <- readRDS(file = 'clean_data/Children/child_tobacco_trend.rds')

#vaping us
vaping_use <- readRDS(file = 'clean_data/Children/child_vape_data.rds')

#teen suicides
teen_suicides <- readRDS(file = 'clean_data/Children/teen_suicide_data.rds')

#uninsured rates
child_uninsurance <- readRDS(file = 'clean_data/Children/child_uninsured_data.rds')

diabetes_trends_women_18_44 <- read_rds("clean_data/maternity/diabetes_trends_women_18_44.rds")

```


# Making the charts 

## Teen suicide rates
```{r}
## Seems to be complete, need formatting

highchart() 

hchart(teen_suicides, 
       'line', 
       hcaes(x = edition, y = value, group = state_name)) %>%
hc_title(text = "Teen Suicide Rates") %>%
  hc_xAxis()
```

## Physical Inactivity
```{r}
## need formatting

highchart() 

hchart(childhood_inactivity, 
       'line', 
       hcaes(x = year, y = percentage)) %>%
hc_title(text = "Percentage of Texas high school students who were physically active for a total of 60 minutes per day on all seven days of the past seven days")

```

## Current Smoking Rates
```{r}
## Ask and see if there is more data about this

highchart() 

hchart(tobacco_trends, 
       'line', 
       hcaes(x = year, y = data_value)) %>%
hc_title(text = "Percentage of US high school students who currently use tobacco")

```

```{r}
## this needs more data too

## this needs to become a line chart, fix this
hchart(child_uninsurance%>%filter(`peer` == 'Y' | `name` == 'Texas'),
       'line',
       hcaes(x = year, y = uninsured_percent, group = peer))
       
```

```{r}
highchart(
  
)
```