South Korea Holiday

Assignment to display information on a leaflet graph.

library(leaflet)
df <- data.frame(
    name = c("Incheon", "Seoul", "Alpensia", "Gyeongju", "Busan", "Suwon"),
    lat = c(37.4552,37.5604,37.6528,35.8448,35.1064,37.2926),
    lng = c(126.7026,126.9800,128.6739,129.2116,129.0361,127.0088),
    col= c("blue","red","red","red","blue","blue"))

df <- df %>%
  leaflet()  %>%
  addTiles()  %>%
  addMarkers(popup=df$name)  %>%
  addCircleMarkers(color = df$col) %>%
  addLegend(labels = c("accommodation","daytrip"), 
    colors = c("red", "blue"), title = "South Korea Holiday")
df