library(tidyr)
library(hrbrthemes)
library(tidyverse)
library(lattice)
library(rgdal)
library(leaflet)
m1 <- leaflet() %>%
 addTiles() %>%  
 addMarkers(lng=120.214305, 
            lat=22.996463,
            popup="Far Eastern Department Stores")
m1

m2 <- leaflet() %>%
addTiles() %>%  
 addMarkers(lng=120.210048, 
            lat=22.995454, 
            popup="SHINKONG MITSUKOSHI 01")
m2

m3 <- leaflet() %>%
 addTiles() %>%  
 addMarkers(lng=120.198651, 
            lat=22.987463,
            popup="SHINKONG MITSUKOSHI 02")
m3