#導入資料
trf <- read.csv("課堂專案資料/1382.csv")探索臺灣車種與危險感知對交通改善
研究動機
我國民眾長期
資料介紹
資料來源：微笑小熊調查小棧
問卷編號：1382
問卷名稱：2021「機汽」大戰
調查時間：2021.03.08～2021.04.06
受訪人數：1218人；完成數:1078人
資料來源：https://smilepoll.tw/web-s/survey_history.php
一、選用專案理由：
#檢查資料內容
nrow(trf)[1] 1072names(trf) [1] "Gender"
[2] "Born.year"
[3] "EDU"
[4] "Curloc"
[5] "Residence"
[6] "Job"
[7] "你平常花在哪種交通工具上的時間最長呢."
[8] "我最常使用的交通工具是..你平常花在哪種交通工具上的時間最長呢."
[9] "就你平時在路上的經驗.路上的汽車和機車.哪種比較常讓你感到危險呢."
[10] "在你的印象當中.臺灣人外出時開車或騎車.哪一種比較容易發生車禍呢."
[11] "在你的印象中.臺灣各個道路的待轉區畫設.算是安全嗎."
[12] "網友們對於機車怎麼左轉才比較安全.提出了一些可能的政策建議.哪個大方向是你認為相較之下最好的做法呢."
[13] "X.車種分流.和.車速分流.兩種做法.你覺得哪個比較適合臺灣一般的.平面道路.呢."
[14] "平時的馬路上.內側車道只有汽車.外側車道則同時會有汽車.機車.腳踏車和行人.就你對你生活範圍周遭的觀察.這些外側車道算得上安全嗎."
[15] "那麼.就你的觀察.外側車道.靠右的車道.產生的危險.大多是誰造成的呢."
[16] "就我的觀察.造成危險的大多是..那麼.就你的觀察.外側車道.靠右的車道.產生的危險.大多是誰造成的呢."
[17] "圖片中的車輛幾乎都.靜止.了.這時.橘色的機車騎士打算慢慢從兩台汽車中間過去.到前面一點的地方等紅燈..你覺得橘色騎士這樣騎.是OK的嗎."
[18] "對於橘色騎士的騎法.我覺得..圖片中的車輛幾乎都.靜止.了.這時.橘色的機車騎士打算慢慢從兩台汽車中間過去.到前面一點的地方等紅燈..你覺得橘色騎士這樣騎.是OK的嗎."
[19] "這張圖中的車速.還算慢..而粉紅色機車騎士打算這樣繞過前面的慢車.你覺得粉紅色騎士這樣騎.是OK的嗎."
[20] "對於粉紅色騎士的騎法.我覺得..這張圖中的車速.還算慢..而粉紅色機車騎士打算這樣繞過前面的慢車.你覺得粉紅色騎士這樣騎.是OK的嗎."
[21] "這張圖中.大家的車速都.有點快..黃色機車騎士想要這樣通過.你覺得OK嗎."
[22] "對於黃色騎士的騎法.我覺得..這張圖中.大家的車速都.有點快..黃色機車騎士想要這樣通過.你覺得OK嗎."
[23] "對於黃色騎士的騎法.我覺得..這張圖中.大家的車速都.有點快..黃色機車騎士想要這樣通過.你覺得OK嗎..1"
[24] "路況使然.不鑽會被卡死.你覺得機車騎士為什麼會.鑽車縫.呢..可複選."
[25] "路況使然.有時候鑽了比較安全.你覺得機車騎士為什麼會.鑽車縫.呢..可複選."
[26] "其他駕駛造成的.他們不好好開.害機車得鑽車.你覺得機車騎士為什麼會.鑽車縫.呢..可複選."
[27] "機車駕駛素質問題.就是愛亂鑽.你覺得機車騎士為什麼會.鑽車縫.呢..可複選."
[28] "道路設計問題.害機車不能好好騎.你覺得機車騎士為什麼會.鑽車縫.呢..可複選."
[29] "對於機車為什麼會鑽車縫.我的看法是..你覺得機車騎士為什麼會.鑽車縫.呢..可複選."
[30] "我不太清楚鑽車縫這件事耶.你覺得機車騎士為什麼會.鑽車縫.呢..可複選."
[31] "對於機車為什麼會鑽車縫.我的看法是..你覺得機車騎士為什麼會.鑽車縫.呢..可複選..1"
[32] "加強汽車駕駛的道路安全教育.要讓臺灣的馬路更安全.有好幾個目標需要達成.小熊列出了其中幾個.請按照你心中這些目標的急切程度.在右邊框框裡由上至下排序"
[33] "加強機車騎士的道路安全教育.要讓臺灣的馬路更安全.有好幾個目標需要達成.小熊列出了其中幾個.請按照你心中這些目標的急切程度.在右邊框框裡由上至下排序"
[34] "修改交通法規.讓規則更完善.要讓臺灣的馬路更安全.有好幾個目標需要達成.小熊列出了其中幾個.請按照你心中這些目標的急切程度.在右邊框框裡由上至下排序"
[35] "加強執法.減少道路違規.要讓臺灣的馬路更安全.有好幾個目標需要達成.小熊列出了其中幾個.請按照你心中這些目標的急切程度.在右邊框框裡由上至下排序"
[36] "重新審視道路設計.減少不合理的狀況.要讓臺灣的馬路更安全.有好幾個目標需要達成.小熊列出了其中幾個.請按照你心中這些目標的急切程度.在右邊框框裡由上至下排序"
[37] "大家都希望道路能夠更安全.讓用路人能更安心.你覺得臺灣的交通.有什麼地方是令你驕傲的呢.又有什麼地方是你希望能改善的呢.歡迎在底下框框告訴小熊噢..如果沒有的話.請按下一頁.開始驗證流程囉.."str(trf)'data.frame': 1072 obs. of 37 variables:
$ Gender : int 1 1 1 0 1 0 0 1 0 1 ...
$ Born.year : int 1994 1988 1982 1986 1993 1999 1995 1983 1979 1989 ...
$ EDU : int 5 6 5 5 6 5 6 4 5 5 ...
$ Curloc : int 19 8 2 9 14 1 2 15 2 19 ...
$ Residence : int 18 8 2 9 14 20 2 15 5 2 ...
$ Job : chr "T" "O" "S" "C" ...
$ 你平常花在哪種交通工具上的時間最長呢. : int 2 2 4 2 2 6 5 2 7 4 ...
$ 我最常使用的交通工具是..你平常花在哪種交通工具上的時間最長呢. : chr "" "" "" "" ...
$ 就你平時在路上的經驗.路上的汽車和機車.哪種比較常讓你感到危險呢. : int 1 3 2 3 1 2 2 2 2 3 ...
$ 在你的印象當中.臺灣人外出時開車或騎車.哪一種比較容易發生車禍呢. : int 3 3 2 3 1 2 4 3 3 3 ...
$ 在你的印象中.臺灣各個道路的待轉區畫設.算是安全嗎. : int 5 3 1 3 5 3 3 2 2 1 ...
$ 網友們對於機車怎麼左轉才比較安全.提出了一些可能的政策建議.哪個大方向是你認為相較之下最好的做法呢. : int 3 4 2 1 4 1 2 1 1 1 ...
$ X.車種分流.和.車速分流.兩種做法.你覺得哪個比較適合臺灣一般的.平面道路.呢. : int 2 1 1 3 2 1 3 3 2 1 ...
$ 平時的馬路上.內側車道只有汽車.外側車道則同時會有汽車.機車.腳踏車和行人.就你對你生活範圍周遭的觀察.這些外側車道算得上安全嗎. : int 4 2 1 4 3 1 2 1 2 2 ...
$ 那麼.就你的觀察.外側車道.靠右的車道.產生的危險.大多是誰造成的呢. : int 2 1 1 6 1 2 6 3 3 90 ...
$ 就我的觀察.造成危險的大多是..那麼.就你的觀察.外側車道.靠右的車道.產生的危險.大多是誰造成的呢. : chr "" "" "" "" ...
$ 圖片中的車輛幾乎都.靜止.了.這時.橘色的機車騎士打算慢慢從兩台汽車中間過去.到前面一點的地方等紅燈..你覺得橘色騎士這樣騎.是OK的嗎. : int 1 4 4 3 3 2 3 2 2 3 ...
$ 對於橘色騎士的騎法.我覺得..圖片中的車輛幾乎都.靜止.了.這時.橘色的機車騎士打算慢慢從兩台汽車中間過去.到前面一點的地方等紅燈..你覺得橘色騎士這樣騎.是OK的嗎. : chr "" "" "" "" ...
$ 這張圖中的車速.還算慢..而粉紅色機車騎士打算這樣繞過前面的慢車.你覺得粉紅色騎士這樣騎.是OK的嗎. : int 1 4 2 3 3 2 3 2 3 2 ...
$ 對於粉紅色騎士的騎法.我覺得..這張圖中的車速.還算慢..而粉紅色機車騎士打算這樣繞過前面的慢車.你覺得粉紅色騎士這樣騎.是OK的嗎. : chr "" "" "" "" ...
$ 這張圖中.大家的車速都.有點快..黃色機車騎士想要這樣通過.你覺得OK嗎. : int 1 3 2 3 3 3 3 2 3 3 ...
$ 對於黃色騎士的騎法.我覺得..這張圖中.大家的車速都.有點快..黃色機車騎士想要這樣通過.你覺得OK嗎. : logi NA NA NA NA NA NA ...
$ 對於黃色騎士的騎法.我覺得..這張圖中.大家的車速都.有點快..黃色機車騎士想要這樣通過.你覺得OK嗎..1 : chr "" "" "" "" ...
$ 路況使然.不鑽會被卡死.你覺得機車騎士為什麼會.鑽車縫.呢..可複選. : int 1 NA 1 1 NA NA 1 1 NA NA ...
$ 路況使然.有時候鑽了比較安全.你覺得機車騎士為什麼會.鑽車縫.呢..可複選. : int 2 NA 2 NA NA NA NA NA NA NA ...
$ 其他駕駛造成的.他們不好好開.害機車得鑽車.你覺得機車騎士為什麼會.鑽車縫.呢..可複選. : int NA 3 NA NA NA NA NA 3 3 NA ...
$ 機車駕駛素質問題.就是愛亂鑽.你覺得機車騎士為什麼會.鑽車縫.呢..可複選. : int NA NA NA NA NA 4 NA NA 4 NA ...
$ 道路設計問題.害機車不能好好騎.你覺得機車騎士為什麼會.鑽車縫.呢..可複選. : int 5 NA 5 NA 5 NA 5 NA NA 5 ...
$ 對於機車為什麼會鑽車縫.我的看法是..你覺得機車騎士為什麼會.鑽車縫.呢..可複選. : int NA NA NA NA NA NA NA NA NA 90 ...
$ 我不太清楚鑽車縫這件事耶.你覺得機車騎士為什麼會.鑽車縫.呢..可複選. : int NA NA NA NA NA NA NA NA NA NA ...
$ 對於機車為什麼會鑽車縫.我的看法是..你覺得機車騎士為什麼會.鑽車縫.呢..可複選..1 : chr "" "" "" "" ...
$ 加強汽車駕駛的道路安全教育.要讓臺灣的馬路更安全.有好幾個目標需要達成.小熊列出了其中幾個.請按照你心中這些目標的急切程度.在右邊框框裡由上至下排序 : int 1 5 5 5 1 5 4 2 2 4 ...
$ 加強機車騎士的道路安全教育.要讓臺灣的馬路更安全.有好幾個目標需要達成.小熊列出了其中幾個.請按照你心中這些目標的急切程度.在右邊框框裡由上至下排序 : int 5 4 3 3 5 4 5 3 1 3 ...
$ 修改交通法規.讓規則更完善.要讓臺灣的馬路更安全.有好幾個目標需要達成.小熊列出了其中幾個.請按照你心中這些目標的急切程度.在右邊框框裡由上至下排序 : int 3 3 4 4 4 1 1 4 5 5 ...
$ 加強執法.減少道路違規.要讓臺灣的馬路更安全.有好幾個目標需要達成.小熊列出了其中幾個.請按照你心中這些目標的急切程度.在右邊框框裡由上至下排序 : int 4 2 1 2 3 3 3 5 4 2 ...
$ 重新審視道路設計.減少不合理的狀況.要讓臺灣的馬路更安全.有好幾個目標需要達成.小熊列出了其中幾個.請按照你心中這些目標的急切程度.在右邊框框裡由上至下排序 : int 2 1 2 1 2 2 2 1 3 1 ...
$ 大家都希望道路能夠更安全.讓用路人能更安心.你覺得臺灣的交通.有什麼地方是令你驕傲的呢.又有什麼地方是你希望能改善的呢.歡迎在底下框框告訴小熊噢..如果沒有的話.請按下一頁.開始驗證流程囉..: chr "" "" "" "" ...#列出變數
library(sjlabelled)
library(sjPlot)
library(sjmisc)May the fourth be with you!#清理無效值
trf <- set_na(trf, na = c(91:99, 999989:999999, "NA"))