Permanent loss of lake ice cover by 2100

Image by Free-Photos from Pixabay

Collaborators

• Sapna Sharma (York University)
• Alessandro Filazzola (York University & University of Toronto)
• M. Arshad Imrit (York University)
• Kevin Blagrave (York University)
• Harrie-Jan Hendricks Franssen (Forschungszentrum Jülich)

Last ice-cover event for eastern North America.

library(tidyverse)
library(rgdal)
library(spdep)
library(leaflet)


## make a lake icon
lakeIcons <- iconList(
  lake = makeIcon("lake.png", "lake2x.png",  40, 40)
)

## Load data
lakes <- read.csv("ice_free_predictions.csv") %>% filter(Pour_long < -59) %>% filter(Pour_long > -95)

## Plot lakes
leaflet(data=lakes) %>% addTiles() %>% 
  addMarkers(~Pour_long, ~Pour_lat, popup = ~as.character(rcp85), label = ~as.character(rcp85))