## code to prepare `key_crop_yields` dataset goes here
library(readr)
library(janitor)
library(tidyr)
library(magrittr)
library(dplyr)
url <- 'https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-09-01/key_crop_yields.csv'
key_crop_yields <- read_csv(url) %>%
clean_names() %>%
pivot_longer(
cols = -c("year", "code", "entity"),
names_to = "crop",
values_to = "tonnes_per_hectare",
names_pattern = "([^_]+)"
) %>%
rename(country = entity)
usethis::use_data(key_crop_yields, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.