R Notebook

library(tidyverse)

## Warning: package 'tidyverse' was built under R version 4.0.5

## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --

## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.4     v dplyr   1.0.7
## v tidyr   1.1.3     v stringr 1.4.0
## v readr   2.0.1     v forcats 0.5.1

## Warning: package 'ggplot2' was built under R version 4.0.5

## Warning: package 'tibble' was built under R version 4.0.5

## Warning: package 'tidyr' was built under R version 4.0.4

## Warning: package 'readr' was built under R version 4.0.5

## Warning: package 'purrr' was built under R version 4.0.3

## Warning: package 'dplyr' was built under R version 4.0.5

## Warning: package 'stringr' was built under R version 4.0.3

## Warning: package 'forcats' was built under R version 4.0.3

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(leaflet)

## Warning: package 'leaflet' was built under R version 4.0.5

library(readxl)

## Warning: package 'readxl' was built under R version 4.0.3

Cl_statusmap1 <- read_excel("C:/Users/Nicklaus Neureuther/Documents/R/R_maps/Cl_statusmap1.xlsx")
View(Cl_statusmap1)

Create Colors

pal <- colorFactor(palette = c("Blue", "orange", "green","yellow","dark red"), 
 levels = c("Modeling", "Flow", "Remain Active","Remove ASAP","Retired"))

Create Map

 Map<-leaflet(data = Cl_statusmap1) %>% 
   addProviderTiles("Esri.NatGeoWorldMap") %>%
   addCircleMarkers(~long, ~lat, popup = ~as.character(Nickname), label = ~as.character(Status),radius = 2,fillOpacity=1,color = ~pal(Status))
Map

Add Legend

Map%>%
 addLegend(pal=pal,
 values=c("Modeling", "Flow", "Remain Active","Remove ASAP","Retired"))