Import data

# excel file
myData <- read_excel("../00_data/myData.xlsx")
myData
## # A tibble: 27 × 35
##    country country_code  year `Cardiovascular diseases (%)` `Cancers (%)`
##    <chr>   <chr>        <dbl>                         <dbl>         <dbl>
##  1 World   OWID_WRL      1990                          26.5          12.2
##  2 World   OWID_WRL      1991                          26.6          12.4
##  3 World   OWID_WRL      1992                          27.0          12.5
##  4 World   OWID_WRL      1993                          27.3          12.7
##  5 World   OWID_WRL      1994                          27.3          12.7
##  6 World   OWID_WRL      1995                          27.6          12.9
##  7 World   OWID_WRL      1996                          27.6          13.0
##  8 World   OWID_WRL      1997                          27.7          13.1
##  9 World   OWID_WRL      1998                          27.8          13.3
## 10 World   OWID_WRL      1999                          28.0          13.4
## # ℹ 17 more rows
## # ℹ 30 more variables: `Respiratory diseases (%)` <dbl>, `Diabetes (%)` <dbl>,
## #   `Dementia (%)` <dbl>, `Lower respiratory infections (%)` <dbl>,
## #   `Neonatal deaths (%)` <dbl>, `Diarrheal diseases (%)` <dbl>,
## #   `Road accidents (%)` <dbl>, `Liver disease (%)` <dbl>,
## #   `Tuberculosis (%)` <dbl>, `Kidney disease (%)` <dbl>,
## #   `Digestive diseases (%)` <dbl>, `HIV/AIDS (%)` <dbl>, …

State one question

Has cardiovascular deaths increased or decreased from 1990-2016?

Plot data

ggplot(data = myData) +
    geom_point(mapping = aes(x = `Cardiovascular diseases (%)`, y = year))

Interpret

Based off of my graph, we can see that cardiovascular diseases has increased a little bit over the last 25 years, but not very much. It has gone from around 26.5% in 1990 to just over 32% in 2016.