library(tidyverse)
library(skimr)
Lab 08 - University of Edinburgh Art Collection
Load packages and data
# Remove eval = FALSE or set it to TRUE once data is ready to be loaded
<- read_csv("data/uoe-art.csv") uoe_art
Exercise 9
<- uoe_art %>%
uoe_art separate(title, into = c("title", "date"), sep = "\\(") %>%
mutate(year = str_remove(date, "\\)") %>% as.numeric()) %>%
select(title, artist, year, ___)
TO DO: Add error true
Exercise 10
Remove this text, and add your answer for Exercise 1 here. Add code chunks as needed. Don’t forget to label your code chunk. Do not use spaces in code chunk labels.
Exercise 11
…
Add exercise headings as needed.