lab 7

library(ggplot2)

Warning: package 'ggplot2' was built under R version 4.3.2

library(ggthemes)

Warning: package 'ggthemes' was built under R version 4.3.2

library(socviz)

Warning: package 'socviz' was built under R version 4.3.2

library(maps)

Warning: package 'maps' was built under R version 4.3.2

library(mapproj)

Warning: package 'mapproj' was built under R version 4.3.2

library(viridis)

Warning: package 'viridis' was built under R version 4.3.2

Loading required package: viridisLite

Attaching package: 'viridis'

The following object is masked from 'package:maps':

    unemp

library(readxl)

Warning: package 'readxl' was built under R version 4.3.2

library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

library(leaflet)

Warning: package 'leaflet' was built under R version 4.3.2

dutchlocations <- read_excel("C:/Users/Kate/OneDrive - John Brown University/Desktop/dutchlocations.xlsx")
or.dutch <- dutchlocations %>% filter(State == "OR")
or.dutch %>% leaflet(width = "100%") %>% addTiles() %>% setView(-120.0, 44.0, zoom = 6.4) %>% addMarkers(lat = ~Latitude,
          lng = ~Longitude,
          popup = ~`City Name`)

Most Dutch Bros locations in Oregon are along Interstate 5, which makes sense, as people traveling on the interstate want something quick. I made the popup value say the name of the city. I kept the marker as blue because that’s the color of Dutch Bros logo.