The Map of Fukuoka City Wifi

library(readr)
library(leaflet)

# read data
f <- "http://ckan.open-governmentdata.org/dataset/28d0fa52-01c1-40c9-939a-4c0b0ca8b4ba/resource/81a329e4-8683-47e7-853c-2e7fc745b4ef/download/201409wifi.csv"
p <- read_file(f) %>% iconv("sjis", "utf8") %>% read_csv()
colnames(p) <- c("name", "address", "lat", "lng")

# leaflet
m <- leaflet(p) %>% addTiles() %>% addMarkers(~lng, ~lat, popup=~name)
m