devtools::install_github("drsimonj/ourworldindata") finance <- ourworldindata::financing_healthcare Question What is the relastionship between healthcare expenditure and child mortality over year?
finance %>% select(year, country, health_exp_total, child_mort) %>% filter(country == "United States") %>% na.omit() %>% mutate(child_mort = child_mort/100) %>% ggplot(aes(health_exp_total, child_mort)) + geom_point(size = 2) + geom_text(aes(label = year), vjust = 1.3) + scale_x_continuous(labels = scales::dollar) + scale_y_continuous(labels = scales::percent) + labs(x = "\nTotal Health Expenditure", y = "Child Mortality\n", title = "Child Mortality Declines with Increased Health Expediture in the U.
obese <- read_csv("prevalence-of-obesity-in-adults-by-region.csv") Background Data comes from Our World in Data. Obesity has been a growing problem for many parts of the world. I want to visualize this trend by region, assuming that more wealthier regions are leading the world. Then, I look at how child mortality is effected by education level.
Obesity obese <- obese %>% rename(continent = Entity, year = Year, prevalence = `Prevalence of obesity in adults (18+ years old) (FAO (2017)) (%)`) label <- obese %>% filter(year == 2014) ggplot(obese, aes(year, (prevalence)/100, group = continent, col = continent)) + geom_point() + geom_line() + theme_minimal() + scale_y_continuous(limits = c(0,.