Philippines Volcano Map (Data Visualisation task)

Clearing global environment.

options(scipen = 9999)
rm(list=ls())

library(leaflet)

Loading Philippines volcano CSV input file. Source: https://www.kaggle.com/gabbygab/active-volcanoes-in-the-philippines

phil_volcano <- read.csv("ActiveVolcanoPH.csv")

Loading volcano icon and set local latitude longitude minimum and maximum preference.

ico <- makeIcon(
    iconUrl = "volcano_icon.png",
    iconWidth=25, iconHeight=25)

loca <- data.frame(lat = phil_volcano$lat,
                   long = phil_volcano$long)

Create Phillipines volcano map:

# create a leaflet map widget
map1 <- leaflet()

# add tiles from open street map
map1 <- addTiles(map1)

# add markers
map1 <- addMarkers(map1, data = loca, icon=ico)

map1

Creating pop-up description.

pops <- c(
    "<strong>Volcano: Ambalatungan</strong><p>Elevation: 2329m</p><p>Province: Kalinga</p>",
    "<strong>Volcano: Babuyan Claro</strong><p>Elevation: 843m</p><p>Province: Cagayan</p>",
    "<strong>Volcano: Banahaw</strong><p>Elevation: 2169m</p><p>Province: Quezon</p>",
    "<strong>Volcano: Biliran</strong><p>Elevation: 134m</p><p>Province: Biliran</p>",
    "<strong>Volcano: Bulusan</strong><p>Elevation: 1565m</p><p>Province: Sorsogon</p>",
    "<strong>Volcano: Cabalian</strong><p>Elevation: 945m</p><p>Province: Southern Leyte</p>",
    "<strong>Volcano: Cagua</strong><p>Elevation: 116m</p><p>Province: Cagayan</p>",
    "<strong>Volcano: Camiguin de Babuyanes</strong><p>Elevation: 712m</p><p>Province: Cagayan</p>",
    "<strong>Volcano: Didicas</strong><p>Elevation: 843m</p><p>Province: Cagayan</p>",
    "<strong>Volcano: Hibok Hibok</strong><p>Elevation: 1332</p><p>Province: Camiguin</p>",
    "<strong>Volcano: Iraya</strong><p>Elevation: 1009m</p><p>Province: Batanes</p>",
    "<strong>Volcano: Iriga</strong><p>Elevation: 1143m</p><p>Province: Camarines Sur</p>",
    "<strong>Volcano: Jolo Group</strong><p>Elevation: 620m</p><p>Province: Sulu</p>",
    "<strong>Volcano: Kanlaon</strong><p>Elevation: 2435m</p><p>Province: Negros Occidental, Negros Oriental</p>",
    "<strong>Volcano: Leonard Kniaseff</strong><p>Elevation: 200m</p><p>Province: Compostela Valley</p>",
    "<strong>Volcano: Makaturing</strong><p>Elevation: 194m</p><p>Province: Lanao del Sur</p>",
    "<strong>Volcano: Matutum</strong><p>Elevation: 2286m</p><p>Province: South Cotabato</p>",
    "<strong>Volcano: Mayon</strong><p>Elevation: 246m</p><p>Province: Albay</p>",
    "<strong>Volcano: Musuan</strong><p>Elevation: 646m</p><p>Province: Bukidnon</p>",
    "<strong>Volcano: Parker</strong><p>Elevation: 1784m</p><p>Province: South Cotabato</p>",
    "<strong>Volcano: Pinatubo</strong><p>Elevation: 1445m</p><p>Province: Zambales, Tarlac, Pampanga</p>",
    "<strong>Volcano: Ragang</strong><p>Elevation: 2815m</p><p>Province: Lanao del Sur, Cotabato</p>",
    "<strong>Volcano: San Pablo</strong><p>Elevation: 109m</p><p>Province: Laguna, Batangas</p>",
    "<strong>Volcano: Smith</strong><p>Elevation: 688m</p><p>Province: Cagayan</p>",
    "<strong>Volcano: Taal</strong><p>Elevation: 311m</p><p>Province: Batangas</p>",
    "<strong>Volcano: Unnamed</strong><p>Elevation: -24m</p><p>Province: Batanes</p>"
)

Final Phillipines volcano map.

map1 <- leaflet()
map1 <- addTiles(map1)
map1 <- addMarkers(map1, data = loca, icon=ico, popup = pops)

map1

Philippines Volcano Map (Data Visualisation task)

Danang

9 July 2018