MyJourneyInPenang

Introduction to My Jouney

I stayed here at Penang for a training at USM.
The food I don’t like:

1. Penang fried kuew tiew
2. Penang Rojak
3. Penang Kari Mee
4. Penang Prawn Mee

Places I visited

The dataset I used

##        lng      lat                             pop
## 1 100.2915 5.336164       Vistana Hotel - good stay
## 2 100.3011 5.354509                 Thank you USM !
## 3 100.3064 5.333659          Food is terrible here!
## 4 100.2695 5.423276 I want to go here next time !!!

The place I visited

library(leaflet)
heart<-icons("Heart-icon.png")
skull<-icons("skull-icon.png")

m <- leaflet(dt) %>%
     clearShapes() %>%
     addTiles() 

m <- addMarkers(m, dt[c(1,2,4),"lng"], dt[c(1,2,4),"lat"],
                popup=dt[c(1,2,4),"pop"], 
                icon = heart) 
m <- addMarkers(m, dt[3,"lng"], dt[3,"lat"],
                popup=dt[3,"pop"], 
                icon = skull) 
m