最後更新時間 02/22/2022
寂寞這種感受很難數據化，如果問，你寂寞嗎？1–10分，你會給自己幾分。隨著時間空間無時無刻變化，這種感覺說不準也很難量化。不過從很多寂寞的人們會做的事情來看，或許可以略窺一二。
不知道從哪聽來的一句話，愈愛看電影的人愈寂寞，如果成立，自然愈多愛看電影的人的地方也就是愈寂寞的城市。根據維基百科的資料顯示全臺灣的營業電影院有115家（依列表名稱），而文化部影視及流行音樂產業局公布的106年度統計數字為111家784廳。我們直接來看看電影院在臺灣的分布圖吧。
臺北市共有32家，佔全臺27%拔得頭籌，其次依序為高雄市14家、臺中市12家、新北市11家。這樣是不是代表臺北人最寂寞呢？（感覺是很不責任的結論哈哈哈
而從過去幾年來看電影院的數量，能發現雖然電影院後期瞬間減少，但是廳數都是在成長。
我加上了內政部統計處發布的各縣市人口數來計算一間電影院需要承載的人數多寡（嘉義縣與嘉義市合計，新竹縣與新竹市合計，因為嘉義縣和新竹縣沒有電影院）。
umm 這樣看起來有截然不同的結果，將電影院的數量除以其地區的人口數（我也針對青壯人口算過，分布差不多），這樣即得出一間電影院會有多少人，彰化縣一間電影院就比臺北市多出34萬多人…然而，當地朋友表示「我們真的不愛看電影，只有去臺北才會想到電影」，需求少供給自然少了。
因此我覺得「電影院愈多的城市，人愈寂寞。」的說法還是值得參考。我是真的蠻喜歡看電影的，一個月可以看四場，尤其在這個幾乎每天下雨又冷的我要死不活的冬季，電影院是放鬆讓人溫暖的好選擇呀。
YY NOTE
因為一直想要用R做圖試試，所以我決定先從這種簡單少量幾乎沒啥分析的數據開始!! 上課教的東西，實際用時還是覺得東卡西卡，不過一發現有圖片跑出來時還是很愉悅的（會有種amzing的感覺。第一張圖是用R做的，第二張還是Excel，以下是我這次用的程式碼，有興趣的可以看一下噢。
library(ggmap)
library(mapproj)
map=get_map(location=’Taiwan’,zoom=8,language=”zh-TW”)
ggmap(map)
theater=read.csv(‘/Users/Lynus/Downloads/cold_theater.csv’)
lon.deg=sapply((strsplit(as.character(theater$WGS84Lon),”,”)),as.numeric)
theater$lon=lon.deg[1, ] + lon.deg[2, ]/60 + lon.deg[3, ]/3600
lat.deg=sapply((strsplit(as.character(theater$WGS84Lat),”,”)),as.numeric)
theater$lat=lat.deg[1, ] + lat.deg[2, ]/60 + lat.deg[3, ]/3600
ggmap(map)+geom_point(aes(x=lon,y=lat,size=amount),data=theater)
ggmap(map,darken=c(0.1,”white”))+geom_point(aes(colour=amount,x=lon,y=lat,size=amount),data=theater)+scale_size(range = c(5, 20))
