Code for TidyTuesday week 5 (A map of trees planted in San Francisco, according to their 'caretaker')

trees_SF_caretaker.R

install.packages("tidyverse")
library(tidyverse)

trees_SF <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-01-28/sf_trees.csv')
trees_SF <- na.omit(trees_SF)
trees_map_SF <- ggplot2::ggplot(data = trees_SF, aes(x = longitude, y = latitude, colour = caretaker)) +
  geom_point() +
  labs(x = 'Longitude', y = 'Latitude', title = 'Trees in San Franscisco & their caretakers') +
  xlim(min(trees_SF$longitude), max(trees_SF$longitude)) +
  ylim(min(trees_SF$latitude), max(trees_SF$latitude))
trees_map_SF