session 9 abdullah

library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──

## ✔ ggplot2 3.3.6     ✔ purrr   0.3.4
## ✔ tibble  3.1.7     ✔ dplyr   1.0.9
## ✔ tidyr   1.2.0     ✔ stringr 1.4.0
## ✔ readr   2.1.2     ✔ forcats 0.5.1

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()

library(gapminder)
library(here)

## here() starts at /Users/abdullah/GitHub/from-Zero-to-hero-in-r

plot_gapminder <- gapminder %>% 
  ggplot(aes(x = log(gdpPercap), y = lifeExp, col = year, size = pop)) +
  geom_point(alpha = 0.3) +
  geom_smooth(method = lm) +
  facet_wrap( ~ continent, scales = "free") +
  theme_bw()

ggsave(here("results","gapminder_plt.png"), plot_gapminder, height = 20, dpi = 300)

## Saving 7 x 20 in image

## `geom_smooth()` using formula 'y ~ x'

gapminder_data <- gapminder

write_csv(gapminder_data, "gapminder_data.csv")

write_csv(gapminder_data, here("results", "gapminder_data.csv"))