## Prevalence of Drug Use Disorders by age
* Prevalence, "Share (%) of the population suffering from drug use disorders By  Age(10-49). "

## Software required to recreate plot:
* Install: R language, RTools40 and RStudio (see link below)
* Packages: GGPLot2, dplyr, janitor.
* Download code and data from Github.com (see link below).
* Move R code and data to the working directory



## Run code:
```
library(ggplot2)
library(scales)
library(dplyr)
library(janitor)
## Read Data
rm(list=ls())
df <- read.csv("./prevalence-of-drug-use-disorders-by-age.csv")
df <- clean_names(df)
colnames(df) <- c("County","Code","Year","age_14","age_19","age_24",
                  "age_29","age_34","all_age_percent","male_14","age_49",
                                   "age_70","standard_percent")
US <- df %>% filter(Code=="USA") %>% select(Year:standard_percent)
str(df)
## 
ggplot(US) + geom_line(aes(x=Year,y=standard_percent)) +
  labs(title="Standard Percent")
##
ggplot(US) + geom_line(aes(x=Year,y=age_14,col="age_14")) +
  geom_line(aes(x=Year,y=age_19,col="age_19")) +
  geom_line(aes(x=Year,y=age_24,col="age_24")) +
  geom_line(aes(x=Year,y=age_24,col="age_24")) +
  geom_line(aes(x=Year,y=age_29,col="age_29")) +
  geom_line(aes(x=Year,y=age_34,col="age_34")) +
  geom_line(aes(x=Year,y=age_49,col="age_49")) +
  labs(title = "prevalence-of-drug-use-disorders-by-age: 10-49 Years",
       y="prevalence (%) ") +
  guides(color = guide_legend(override.aes = list(size = 2)))
```

Plot:
=> https://github.com/davidjayjackson/Gemini-content/blob/main/prevalence-by-age.png Prevalence Of Drug Use by Age

## Resources:
=> https://github.com/davidjayjackson/Gemini-content R Code, data
=> https://cloud.r-project.org/ R Language and Rtools40 (click and "base" and "Rtools")
=> https://rstudio.com/products/rstudio/download/ Download and install RStudio
=> https://www.youtube.com/channel/UCEYlsdkxG4hY6c5-5d3gxCw Caribou Data Science(YouTube)
=> https://gmi.skyjake.fi/lagrange/ Lagrange Gemini Browser
=> gemini://gemlog.blue/users/cariboudatascience/1613266872.gmi This Gemini Capsule