Alaskan_stations

d<-read.csv("Alaska_NOAA_stations.csv")
d<-d[!duplicated(d$id),]
lat<-median(d$latitude)
lon<-median(d$lon)
library(leaflet)
library(leaflet.extras)
library(rgdal)

mp<-leaflet(width=1000) %>%
  setView(lon,lat, zoom = 12) %>%
  addFullscreenControl() %>%
  addTiles() %>%
  addMarkers(lng=d$longitude,lat=d$latitude,popup=d$id,label=d$name)
mp