也不知道這是否因為大自然無形廣闊的壓制，或者山林季節給予包容氣氛的緣故，天地世間漸入悠悠靜默，而生命當下只剩一路踽踽獨行。
新聞裡的那個被嫌棄的人，其實就是這樣子的。他更極端一些，但話說誰會吃飽沒事幹，一到休假只到處爬山，還爬了台灣百岳群山？而且到最後竟然「只想自己一個人」獨自爬山，連同伴都捨棄、甚至厭倦？沒有人會懂這是怎樣的心態，恐怕連他自己也說不清吧！
對於群峰姿態有人視若征服、有人盼見容顏；有人暢快淋漓、有人純為禮敬；有人當作修行歸零、有人只想離索煩惱。那些真正愛爬山的人之所以「下山」，都是為了今後能夠繼續「上山」，爬山不只登頂，更多是那些陌生的途經，為此歷經反覆淬磨，直到山與人之間終於「獲得了心境、失去了言語」。
這世間所有的不告而別，是否都是因為明知「說了也沒用」？他還會繼續獨自爬山？會不會有天因為不再求救而讓他命喪山林？太過沉默深奧的「山之慾念」，沒爬過山的人永遠無法理解。 王尚智：他的山之慾念
前言
一人成行的獨攀登山客，只要發生了意外就會受到大眾的批評與攻擊。主要是事故發生後，往往無法透過隊友緩解危機。特別是往年張博崴、蔡東耀、李明翰等幾個特別突出的案例，常常因為留守缺乏對明確的安全回報資訊以及聯絡機制，導致山下人員需要上山搜索，花費了更多的搜救資源。
山難事故有常見的失聯遲歸，準備不足的迷途、疲勞、高山症，或者意外產生的、墜谷、墜崖、落石等事故。其中可控風險可人為避免，也有純粹意外事故，無論人數多寡都有可能發生。
其最應該控制避免的就是準備不足的失聯、迷途、疲勞與高山症，而這也是獨攀的特長，由於無法依賴領隊，獨攀者的準備工作往往比團體隊員來的充分足夠，更少發生準備不足的事故。但無論是負責搜救的主管機關或媒體，都無法具體的通過統計數據呈現獨行者的事故機率。
在缺乏消防署的獨攀者受援數據的狀況下，目前只能透過警政署入山申請分析獨攀者基數，以及其熱門攀登山區。
獨行者統計人次
if (sum(installed.packages()[, 1] == "DBI") < 1) install.packages("DBI")
library(DBI)
if (sum(installed.packages()[, 1] == "RSQLite") < 1) install.packages("RSQLite")
library(RSQLite)
if (sum(installed.packages()[, 1] == "dbplyr") < 1) install.packages("dblyr")
suppressMessages(library(dplyr))
if (sum(installed.packages()[, 1] == "dbplot") < 1) install.packages("dbplot")
library(dbplot)
if (sum(installed.packages()[, 1] == "ggplot2") < 1) install.packages("ggplot2")
library(ggplot2)
if (sum(installed.packages()[, 1] == "devtools") < 1) install.packages("devtools")
library(devtools)
if (sum(installed.packages()[, 1] == "ggthemr") < 1) devtools::install_github('cttobin/ggthemr')
library(ggthemr)
suppressWarnings(ggthemr('grass'))從 2012-2017 年統計可以看出，每年約有一萬六千到一萬九千人次，也就是總入山申請的 12%-16% 的山友採取一個人申請入山。
備註: 2017 年，部份熱門山區不需要再申請入山申請，因此總入山申請數下降，但入山人口持續增長。
con <- dbConnect(RSQLite::SQLite(), "../data.db")
### 歷年年獨行山地管制區申請統計
dbGetQuery(con, '
SELECT year,(people == 1) as solo FROM applications
') %>%
group_by(year, solo) %>%
filter(year < 2018) %>%
summarise(n = n()) %>%
mutate(perc=n/sum(n)) %>%
ggplot() +
geom_col(aes(x=year, y=n, fill=solo), show.legend = FALSE, position = "stack")+
geom_text(aes(label=paste(n, " (", scales::percent(perc),")"), x=year, y=n), position = position_stack(vjust = 0.5), size=2.5) +
labs(title = "歷年獨行山地管制區申請統計", caption ="資料來源內政部警政署 20180901") +
xlab("年份") +
ylab("申請次數") +
stat_summary(fun.y = sum, aes(x=year, y=n, label = ..y.., group=year), geom = "text", vjust = -1, color='white', size=2.5) +
theme(axis.text.x = element_text(angle = 45, hjust = 1))
分析單人入山申請的入山天數，大多為一天行程，平均數為 3.02。長天數高山縱走或探勘行程屬於非常少數的族群。
此數據集有部份錯誤資料，例如入山天數超過一百天等，在此忽略不計算。
### 申請天數
solo <- dbGetQuery(con, '
SELECT year,days FROM applications WHERE people == 1 AND days > 0 AND year < 2018
')
summary(solo$days)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 1.00 1.00 1.00 3.02 2.00 37616.00# 中位數 Median = 1
# 平均數 Mean
solo %>%
group_by(days, year) %>%
summarise(n = n()) %>%
filter(n>100) %>%
mutate(perc=n/sum(n)) %>%
ggplot() +
geom_col(aes(x=days, y=n), show.legend = FALSE, position = "stack")+
geom_text(aes(label=n, x=days, y=n), position = position_stack(vjust = 0.5), size=2.5) +
labs(title = "歷年獨行山地管制區申請天數統計", caption ="資料來源內政部警政署 20180901") +
xlab("天數") +
ylab("申請次數") +
stat_summary(fun.y = sum, aes(x=days, y=n, label = ..y.., group=days), geom = "text", vjust = -1, color='white', size=2.5) +
theme(axis.text.x = element_text(angle = 45, hjust = 1))
以每年申請來看，單人入山申請的投三十名熱門山區，依序是
dbGetQuery(con, '
SELECT city,district,mountain,count(*) as n FROM location WHERE
district != "烏來區" AND
mountain != "慕谷慕魚" AND
mountain != "清水溪上游" AND
mountain != "砂婆澢溪" AND
id IN
(SELECT id FROM applications WHERE people == 1 AND year < 2018)
GROUP by mountain order by n DESC LIMIT 30
')## city district mountain n
## 1 花蓮縣 秀林鄉 錐麓古道 4843
## 2 臺中市 和平區 雪山主東峰 4430
## 3 屏東縣 泰武鄉 北大武山 4222
## 4 嘉義縣 阿里山鄉 玉山主峰 2777
## 5 花蓮縣 秀林鄉 奇萊主北峰 2752
## 6 新竹縣 尖石鄉 司馬庫斯古道 2638
## 7 宜蘭縣 大同鄉 南湖大山 2592
## 8 臺中市 和平區 武陵四秀 2567
## 9 嘉義縣 阿里山鄉 玉山群峰 2179
## 10 臺中市 和平區 鳶嘴山 1777
## 11 南投縣 仁愛鄉 畢祿山 1747
## 12 南投縣 仁愛鄉 合歡西北峰 1562
## 13 屏東縣 泰武鄉 檜谷山莊 1560
## 14 南投縣 仁愛鄉 合歡北峰 1501
## 15 高雄市 桃源區 三叉向陽嘉明湖 1231
## 16 嘉義縣 阿里山鄉 玉山前峰 1223
## 17 苗栗縣 泰安鄉 翠池 1212
## 18 苗栗縣 泰安鄉 雪見 1113
## 19 花蓮縣 秀林鄉 南湖群峰 1078
## 20 桃園市 復興區 北插天山 1021
## 21 花蓮縣 秀林鄉 羊頭山 1007
## 22 新竹縣 尖石鄉 鎮西堡 1004
## 23 宜蘭縣 大同鄉 翠峰湖 1003
## 24 苗栗縣 泰安鄉 大霸群峰 1002
## 25 臺東縣 海端鄉 嘉明湖 955
## 26 南投縣 仁愛鄉 奇萊南峰、南華山 950
## 27 南投縣 仁愛鄉 奇萊主山 922
## 28 嘉義縣 阿里山鄉 樂野村 833
## 29 花蓮縣 卓溪鄉 瓦拉米 830
## 30 南投縣 仁愛鄉 合歡西峰 828其中花蓮縣秀林鄉包含慕谷慕魚、清水溪、砂婆澢溪等遊憩區域，在此不記入登山運動。新北市烏來區無論進入福山村、桶後、阿玉等區域包含戲水、自行車、健行等運動，可忽略不計為高山運動。司馬庫斯古道無法判斷是否健行或遊憩活動。
以下列出每年申請人數。
dbGetQuery(con, '
SELECT year,mountain FROM location WHERE
district != "烏來區" AND
mountain != "慕谷慕魚" AND
mountain != "清水溪上游" AND
mountain != "砂婆澢溪" AND
id IN
(SELECT id FROM applications WHERE people == 1)
') %>%
group_by(mountain, year) %>%
summarise(n = n()) %>%
filter(n>350) %>%
filter(year < 2018) %>%
ggplot() +
geom_col(aes(x=mountain, y=n, fill=year, colour=year), show.legend = TRUE, position = "stack")+
geom_text(aes(label=n, x=mountain, y=n), position = position_stack(vjust = 0.5), size=2.5) +
labs(title = "歷年山地管制區獨行熱門山區統計", caption ="不包含慕谷慕魚、清水溪上游、砂婆澢溪 資料來源內政部警政署 20180901") +
xlab("地區") +
ylab("申請次數") +
stat_summary(fun.y = sum, aes(x=mountain, y=n, label = ..y.., group=mountain), geom = "text", vjust = -1, color='white', size=2.5) +
theme(axis.text.x = element_text(angle = 45, hjust = 1))