ajstewartlang

library(tidyverse)
library(ggthemes)

cran_code <- readr::read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2019/2019-11-12/loc_cran_packages.csv")

# Plot 1 ####
cran_code %>%
  group_by(language) %>%
  summarise(n = n()) %>%
  arrange(-n) %>%

ajstewartlang

# Note, not all of these libraries are needed for the code below

library(tidyverse)
library(openintro)
library(ggthemes)
library(ggmap)
library(maps)
library(mapdata)
library(ggrepel)
library(patchwork)

ajstewartlang

set.seed(1234)

a <- seq(1:20)
b <- a + runif(20, 0, .25)

my_data <- as.data.frame(c(a, b))

my_model <- lm(a ~ b, data  = my_data)

summary(my_model)

ajstewartlang

library(tidyverse)
library(mapdata)
library(ggthemes)
library(patchwork)

# read in various data files
rainfall <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-01-07/rainfall.csv')
temperature <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-01-07/temperature.csv')
nasa_fire <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-01-07/MODIS_C6_Australia_and_New_Zealand_7d.csv')

ajstewartlang

library(tidyverse)
library(lubridate)
library(patchwork)
library(ggrepel)
library(ggthemes)

spotify_songs <- read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-01-21/spotify_songs.csv')

arrow <- tibble(x1 = 25, x2 = 12, y1 = 320, y2 = 331.5)