獨立特色書店的點擊數與其空間關係圖

想知道全台灣的獨立特色書店(非連鎖書店)在空間上主要聚集在哪裡。 在尚未進行之前，知道大部分會聚集在台北，但是想要知道主要聚集在台北的哪裡。

各書店的資訊：

顯示前6個和後6個

library(jsonlite)
url <- "https://cloud.culture.tw/frontsite/trans/emapOpenDataAction.do?method=exportEmapJson&typeId=M"
my.data <- fromJSON(url)
name address website hitRate
公館舊書城 汀州路3段130號 901
古今書廊 羅斯福路3段244巷17號及23號 pnpbook.blogspot.tw 691
胡思二手書店(公館店) 羅斯福路3段308之1號2 樓(公館捷運站4號出口)(公館店出入口位於羅斯福路三段308-1號本棟正後方，請由兩側巷子繞進) http://www.whosebooks.com.tw 803
茉莉二手書店(臺大店) 羅斯福路四段40巷2號一樓 http://www.mollie.com.tw/Store_1.asp 2060
晶晶書庫 羅斯福路3段210巷8弄8號1樓 http://www.ginginbooks.com 503
信誼小太陽親子書房(臺北重慶店) 重慶南路 2 段 75 號 1 樓 http://www.hsin-yi.org.tw/kidStore 1131
.
.
.
name address website hitRate
84 佩績的店 山東街61號 http://www.peggy-bookstore.com 834
85 小陶壺書坊 隘寮村11鄰中清巷5號 53
86 鶵鳥藝文空間 南港村9鄰尖山腳4號 http://juvart.pixnet.net/blog 30
87 雨果部落書坊 景美村三棧38之1號 9
88 松風閣茶館 埔邊16號 7
89 刺鳥咖啡獨立書店 復興村13鄰222號(12據點) 9

按點擊數由大至小排序各書店的點擊數：

顯示前6個和後6個

name address website hitRate
4 茉莉二手書店(臺大店) 羅斯福路四段40巷2號一樓 http://www.mollie.com.tw/Store_1.asp 2060
32 水木書苑 光復路2段101號（清華大學風雲樓一樓） http://www.nthubook.com.tw 1997
22 古原軒書店 建國南路2段157號 1425
7 下北沢世代 和平西路二段141號2樓之1 1394
11 永樂座書店 建國南路二段123巷6號 http://eirakuza0730.pixnet.net/blog 1366
8 田園城市生活風格書店 中山北路2段72巷6號 http://www.gardencity.com.tw 1365
.
.
.
name address website hitRate
89 刺鳥咖啡獨立書店 復興村13鄰222號(12據點) 9
88 松風閣茶館 埔邊16號 7
72 新星巷弄書屋 明興街61巷8號 NA 5
83 小房子書舖 文橫二路115巷15號 NA 5
70 方圓書房 萬大路129巷1號 NA 4
55 曬書店 台南市新營區中山路93-2號2樓 NA 3 
library(plotly)
library(ggmap)
library(ggplot2)

使用ggmap

my.data$longitude<-as.numeric(my.data$longitude)
my.data$latitude<-as.numeric(my.data$latitude)
twmap <- get_map(location = c(121.53,25.08), zoom = 12, maptype = 'roadmap')
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=25.08,121.53&zoom=12&size=640x640&scale=2&maptype=roadmap&language=en-EN&sensor=false
twmap0 <- ggmap(twmap)+   
  geom_point(data = my.data, 
             aes(x = longitude, y = latitude, colour = hitRate), 
             size = 9) +
  scale_color_continuous(low = "yellow", high = "black")+
  guides(size = FALSE)

twmap0

my.data$longitude<-as.numeric(my.data$longitude)
my.data$latitude<-as.numeric(my.data$latitude)
twmap <- get_map(location = c(121.53,25.08), zoom = 12, maptype = 'roadmap')
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=25.08,121.53&zoom=12&size=640x640&scale=2&maptype=roadmap&language=en-EN&sensor=false
twmap0 <- ggmap(twmap)+    
  geom_point(data = my.data, 
             aes(x = longitude, y = latitude, colour = hitRate), 
             size = 9) +
  
  scale_color_continuous(low = "yellow", high = "black")+
  guides(size = FALSE)
twmap0

twmap <- get_map(location = c(121.53,25.05), zoom = 13, maptype = 'roadmap')
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=25.05,121.53&zoom=13&size=640x640&scale=2&maptype=roadmap&language=en-EN&sensor=false
twmap0 <- ggmap(twmap)+  
  geom_point(data = my.data, 
             aes(x = longitude, y = latitude, colour = hitRate), 
             size = 9) +
  
  scale_color_continuous(low = "yellow", high = "black")+
  guides(size = FALSE)
twmap0

twmap <- get_map(location = c(121.53,25.02), zoom = 15, maptype = 'roadmap')
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=25.02,121.53&zoom=15&size=640x640&scale=2&maptype=roadmap&language=en-EN&sensor=false
twmap0 <- ggmap(twmap)+   
  geom_point(data = my.data, 
             aes(x = longitude, y = latitude, colour = hitRate), 
             size = 5) +
  
  scale_color_continuous(low = "yellow", high = "black")+
  guides(size = FALSE)
twmap0

使用leaflet

library(leaflet)
# 可以在地圖上加入訊息方塊，其內容可以包涵任何的 HTML 程式碼：
content <- paste(sep = "<br/>",
                 paste("書店名:",my.data$name),
                 paste("hitRate: ",my.data$hitRate)
                 )
map1 <- leaflet(my.data) %>%
  addTiles() %>%  # 加上預設的地圖資料
  addCircleMarkers(radius = rank(my.data$hitRate)/5, 
                   color = "red", 
                   popup = content)
## Assuming 'longitude' and 'latitude' are longitude and latitude, respectively
map1
map2 <- leaflet(my.data) %>%
  addTiles() %>%  # 加上預設的地圖資料
  addCircleMarkers(radius = rank(my.data$hitRate)/5, 
                   color = "red", 
                   popup = content,
                   clusterOptions = markerClusterOptions()
                   )
## Assuming 'longitude' and 'latitude' are longitude and latitude, respectively
map2  # 繪製地圖
結論

在台北，獨立特色書店主要聚集於大安區，尤其是台大附近。應該是因為大安區屬於文教區。且相對於ggmap，leaflet可以更自由地呈現資料與空間的關係。

資料來源：政府資料開放平台–文化部收錄獨立特色書店的資料