政大選研2020高雄市長電訪案
ya shin
2020/10/27
讀取sav檔案並轉成rda檔案
## 讀取sav
library(sjlabelled)
voter1 <- read_spss("voter1.sav")
View(voter1)
names(voter1)## [1] "ID" "NAME" "TEL_A" "TEL" "TEL_NAME"
## [6] "DATE" "BTIME" "ETIME" "RESULT" "CALLER"
## [11] "GENDER" "LEVEL" "HOURS" "VERSION" "HOME_A"
## [16] "HOME_M" "HOME_O" "SAMPLE" "DATE_1" "BTIME_1"
## [21] "ETIME_1" "RESULT_1" "DATE_2" "BTIME_2" "ETIME_2"
## [26] "RESULT_2" "DATE_3" "BTIME_3" "ETIME_3" "RESULT_3"
## [31] "DATE_4" "BTIME_4" "ETIME_4" "RESULT_4" "DATE_5"
## [36] "BTIME_5" "ETIME_5" "RESULT_5" "DATE_6" "BTIME_6"
## [41] "ETIME_6" "RESULT_6" "DATE_7" "BTIME_7" "ETIME_7"
## [46] "RESULT_7" "Q1" "Q2" "Q3" "Q4"
## [51] "Q5" "Q6" "Q7" "Q8" "Q9"
## [56] "Q10" "Q11" "Q12" "Q13" "Q14"
## [61] "Q15" "Q16" "Q17" "Q18" "Q19"
## [66] "Q20" "Q21" "Q22" "Q23" "Q24"
## [71] "Q25" "Q26" "Q27" "Q28" "Q29"
## [76] "Q30" "Q31" "Q32" "Q33" "Q34"
## [81] "Q35" "Q36" "Q37" "Q38" "Q39"
## [86] "Q40" "Q41" "NQ1" "NQ2" "NQ3"
## [91] "NQ4" "NQ5" "NQ6" "NQ7" "NQ8"
## [96] "NQ9" "NQ10" "NQ11" "NQ12" "NQ13"
## [101] "NQ14" "NQ15" "NQ16" "NQ17" "NQ18"
## [106] "NQ19" "NQ20" "NQ21" "NQ22" "NQ23"
## [111] "NQ24" "NQ25" "NQ26" "NQ27" "SEX"
## [116] "AGE" "EDU" "SENGI" "MASENGI" "T_Cidentity"
## [121] "partyid" "PARTY" "CAREER" "CAREER8" "TONDU"
## [126] "W"str(voter1)## 'data.frame': 1160 obs. of 126 variables:
## $ ID : num 48027 48051 48070 48071 48090 ...
## ..- attr(*, "label")= chr "樣本編號"
## ..- attr(*, "format.spss")= chr "F6.0"
## $ NAME : chr "最年輕的女" "最年長的女" "唯一合格女" "唯一合格女" ...
## ..- attr(*, "label")= chr "受訪者姓名"
## ..- attr(*, "format.spss")= chr "A10"
## ..- attr(*, "display_width")= int 12
## $ TEL_A : num 7 7 7 7 7 7 7 7 7 7 ...
## ..- attr(*, "label")= chr "電話區碼"
## ..- attr(*, "format.spss")= chr "F5.0"
## ..- attr(*, "display_width")= int 7
## $ TEL : num 1e+07 1e+07 1e+07 1e+07 1e+07 ...
## ..- attr(*, "label")= chr "電話號碼"
## ..- attr(*, "format.spss")= chr "F8.0"
## ..- attr(*, "display_width")= int 10
## $ TEL_NAME : chr "10" "10" "10" "10" ...
## ..- attr(*, "label")= chr "電話套數"
## ..- attr(*, "format.spss")= chr "A6"
## ..- attr(*, "display_width")= int 10
## $ DATE : num 200823 200822 200821 200821 200821 ...
## ..- attr(*, "label")= chr "訪問日期"
## ..- attr(*, "format.spss")= chr "F6.0"
## $ BTIME : num 201017 142601 192401 192404 192443 ...
## ..- attr(*, "label")= chr "開始時間"
## ..- attr(*, "format.spss")= chr "F6.0"
## $ ETIME : num 202334 144216 194420 193350 193544 ...
## ..- attr(*, "label")= chr "結束時間"
## ..- attr(*, "format.spss")= chr "F6.0"
## $ RESULT : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "訪問結果"
## ..- attr(*, "format.spss")= chr "F3.0"
## ..- attr(*, "labels")= Named num [1:38] 0 10 20 30 40 50 60 70 80 81 ...
## .. ..- attr(*, "names")= chr [1:38] "訪問成功" "受訪者暫時不在 或 不便接聽 (非當日約訪者)" "受訪者因臨時有事而中途拒訪 (非當日約訪者)" "受訪者暫時不在 或 不便接聽 (可當日約訪者)" ...
## $ CALLER : num 1e+05 1e+05 1e+05 1e+05 1e+05 ...
## ..- attr(*, "label")= chr "訪員編號"
## ..- attr(*, "format.spss")= chr "F10.0"
## ..- attr(*, "display_width")= int 12
## $ GENDER : num 2 2 2 1 2 1 2 2 2 2 ...
## ..- attr(*, "label")= chr "訪員性別"
## ..- attr(*, "format.spss")= chr "F1.0"
## ..- attr(*, "labels")= Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "男" "女"
## $ LEVEL : num 1 1 1 1 1 3 1 1 1 1 ...
## ..- attr(*, "label")= chr "訪員級數"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:3] 1 2 3
## .. ..- attr(*, "names")= chr [1:3] "第一級" "第二級" "第三級"
## $ HOURS : num 154 422 422 660 1036 ...
## ..- attr(*, "label")= chr "累計時數"
## ..- attr(*, "format.spss")= chr "F7.0"
## ..- attr(*, "display_width")= int 9
## $ VERSION : num 1 1 1 1 1 1 1 1 1 1 ...
## ..- attr(*, "label")= chr "版本"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 9
## $ HOME_A : num 5 5 2 2 4 4 3 4 3 1 ...
## ..- attr(*, "label")= chr "戶中全部合格人數"
## ..- attr(*, "format.spss")= chr "F2.0"
## $ HOME_M : num 3 2 1 1 2 2 2 2 1 1 ...
## ..- attr(*, "label")= chr "戶中合格男性人數"
## ..- attr(*, "format.spss")= chr "F2.0"
## $ HOME_O : num 5 1 1 1 4 4 1 1 3 1 ...
## ..- attr(*, "label")= chr "戶中排行"
## ..- attr(*, "format.spss")= chr "F2.0"
## $ SAMPLE : num 1 2 1 1 1 1 1 2 1 1 ...
## ..- attr(*, "label")= chr "受訪樣本"
## ..- attr(*, "format.spss")= chr "F1.0"
## ..- attr(*, "labels")= Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "正取樣本" "替代樣本"
## $ DATE_1 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "訪問日期_1"
## ..- attr(*, "format.spss")= chr "F6.0"
## $ BTIME_1 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "開始時間_1"
## ..- attr(*, "format.spss")= chr "F6.0"
## ..- attr(*, "display_width")= int 9
## $ ETIME_1 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "結束時間_1"
## ..- attr(*, "format.spss")= chr "F6.0"
## ..- attr(*, "display_width")= int 9
## $ RESULT_1 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "訪問結果_1"
## ..- attr(*, "format.spss")= chr "F3.0"
## ..- attr(*, "display_width")= int 10
## $ DATE_2 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "訪問日期_2"
## ..- attr(*, "format.spss")= chr "F6.0"
## $ BTIME_2 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "開始時間_2"
## ..- attr(*, "format.spss")= chr "F6.0"
## ..- attr(*, "display_width")= int 9
## $ ETIME_2 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "結束時間_2"
## ..- attr(*, "format.spss")= chr "F6.0"
## ..- attr(*, "display_width")= int 9
## $ RESULT_2 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "訪問結果_2"
## ..- attr(*, "format.spss")= chr "F3.0"
## ..- attr(*, "display_width")= int 10
## $ DATE_3 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "訪問日期_3"
## ..- attr(*, "format.spss")= chr "F6.0"
## $ BTIME_3 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "開始時間_3"
## ..- attr(*, "format.spss")= chr "F6.0"
## ..- attr(*, "display_width")= int 9
## $ ETIME_3 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "結束時間_3"
## ..- attr(*, "format.spss")= chr "F6.0"
## ..- attr(*, "display_width")= int 9
## $ RESULT_3 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "訪問結果_3"
## ..- attr(*, "format.spss")= chr "F3.0"
## ..- attr(*, "display_width")= int 10
## $ DATE_4 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "訪問日期_4"
## ..- attr(*, "format.spss")= chr "F6.0"
## $ BTIME_4 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "開始時間_4"
## ..- attr(*, "format.spss")= chr "F6.0"
## ..- attr(*, "display_width")= int 9
## $ ETIME_4 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "結束時間_4"
## ..- attr(*, "format.spss")= chr "F6.0"
## ..- attr(*, "display_width")= int 9
## $ RESULT_4 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "訪問結果_4"
## ..- attr(*, "format.spss")= chr "F3.0"
## ..- attr(*, "display_width")= int 10
## $ DATE_5 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "訪問日期_5"
## ..- attr(*, "format.spss")= chr "F6.0"
## $ BTIME_5 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "開始時間_5"
## ..- attr(*, "format.spss")= chr "F6.0"
## ..- attr(*, "display_width")= int 9
## $ ETIME_5 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "結束時間_5"
## ..- attr(*, "format.spss")= chr "F6.0"
## ..- attr(*, "display_width")= int 9
## $ RESULT_5 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "訪問結果_5"
## ..- attr(*, "format.spss")= chr "F3.0"
## ..- attr(*, "display_width")= int 10
## $ DATE_6 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "訪問日期_6"
## ..- attr(*, "format.spss")= chr "F6.0"
## $ BTIME_6 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "開始時間_6"
## ..- attr(*, "format.spss")= chr "F6.0"
## ..- attr(*, "display_width")= int 9
## $ ETIME_6 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "結束時間_6"
## ..- attr(*, "format.spss")= chr "F6.0"
## ..- attr(*, "display_width")= int 9
## $ RESULT_6 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "訪問結果_6"
## ..- attr(*, "format.spss")= chr "F3.0"
## ..- attr(*, "display_width")= int 10
## $ DATE_7 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "訪問日期_7"
## ..- attr(*, "format.spss")= chr "F6.0"
## $ BTIME_7 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "開始時間_7"
## ..- attr(*, "format.spss")= chr "F6.0"
## ..- attr(*, "display_width")= int 9
## $ ETIME_7 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "結束時間_7"
## ..- attr(*, "format.spss")= chr "F6.0"
## ..- attr(*, "display_width")= int 9
## $ RESULT_7 : num NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "訪問結果_7"
## ..- attr(*, "format.spss")= chr "F3.0"
## ..- attr(*, "display_width")= int 10
## $ Q1 : num 5 4 24 28 23 3 5 12 11 5 ...
## ..- attr(*, "label")= chr "首先，想請問您的戶籍是在高雄市_________區"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:40] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:40] "鹽埕區" "鼓山區" "左營區" "楠梓區" ...
## $ Q2 : num 7 5 13 4 7 5 96 92 4 4 ...
## ..- attr(*, "label")= chr "請問您平常最常看哪一臺的電視新聞?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:24] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:24] "臺視" "中視" "華視" "民視" ...
## $ Q3 : num 2 4 3 3 2 2 3 4 1 1 ...
## ..- attr(*, "label")= chr "請問您對蔡英文總統今年以來的整體施政表現滿不滿意?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 95 96 97 98
## .. ..- attr(*, "names")= chr [1:8] "非常滿意" "滿意" "不滿意" "非常不滿意" ...
## $ Q4 : num 2 1 2 2 3 2 2 1 4 4 ...
## ..- attr(*, "label")= chr "請問您對韓國瑜擔任高雄市長的整體施政表現滿不滿意?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 95 96 97 98
## .. ..- attr(*, "names")= chr [1:8] "非常滿意" "滿意" "不滿意" "非常不滿意" ...
## $ Q5 : num 1 4 4 4 2 2 3 4 1 2 ...
## ..- attr(*, "label")= chr "請問您對陳菊擔任高雄市長的整體施政表現滿不滿意?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 95 96 97 98
## .. ..- attr(*, "names")= chr [1:8] "非常滿意" "滿意" "不滿意" "非常不滿意" ...
## $ Q6 : num 4 4 4 4 2 4 3 4 1 2 ...
## ..- attr(*, "label")= chr "請問您贊不贊成陳菊擔任監察院院長?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 95 96 97 98
## .. ..- attr(*, "names")= chr [1:8] "非常贊成" "贊成" "不贊成" "非常不贊成" ...
## $ Q7 : num 2 1 2 2 2 1 2 97 3 3 ...
## ..- attr(*, "label")= chr "有人說: 「政治人物當選後，很快就會跟民意脫節。」請問您同不同意這個說法?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 95 96 97 98
## .. ..- attr(*, "names")= chr [1:8] "非常同意" "同意" "不同意" "非常不同意" ...
## $ Q8 : num 2 1 1 3 2 1 2 2 3 4 ...
## ..- attr(*, "label")= chr "有人說: 「政治人物並不會關心像我這樣一般百姓的想法。」請問您同不同意這個說法?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 95 96 97 98
## .. ..- attr(*, "names")= chr [1:8] "非常同意" "同意" "不同意" "非常不同意" ...
## $ Q9 : num 2 1 3 2 2 4 3 97 3 2 ...
## ..- attr(*, "label")= chr "有人說: 「政治人物會用心為一般百姓做事。」請問您同不同意這個說法?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 95 96 97 98
## .. ..- attr(*, "names")= chr [1:8] "非常同意" "同意" "不同意" "非常不同意" ...
## $ Q10 : num 1 1 4 1 4 4 1 97 1 6 ...
## ..- attr(*, "label")= chr "請問在以下幾個問題中，除了防疫之外，您覺得我們高雄市應該優先處理哪一個?是經濟發展?社會福利?公共建設?治安?環境保護?還是交通?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:17] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:17] "經濟發展" "社會福利" "公共建設" "治安" ...
## $ Q11 : num 1 3 98 92 91 1 98 99 1 1 ...
## ..- attr(*, "label")= chr "那您認為陳其邁、吳益政、李眉蓁哪一位市長候選人比較有能力解決這個問題呢?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:10] 1 2 3 91 92 95 96 97 98 99
## .. ..- attr(*, "names")= chr [1:10] "陳其邁" "吳益政" "李眉蓁" "都能" ...
## $ Q12 : num 6 0 0 4 98 5 3 0 10 10 ...
## ..- attr(*, "label")= chr "陳其邁多少呢?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:6] 0 10 95 96 97 98
## .. ..- attr(*, "names")= chr [1:6] "非常不喜歡這個人" "非常喜歡這個人" "拒答" "很難說" ...
## $ Q13 : num 6 10 5 5 98 5 3 98 5 10 ...
## ..- attr(*, "label")= chr "吳益政多少呢?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:6] 0 10 95 96 97 98
## .. ..- attr(*, "names")= chr [1:6] "非常不喜歡這個人" "非常喜歡這個人" "拒答" "很難說" ...
## $ Q14 : num 7 10 8 5 98 3 3 7 0 0 ...
## ..- attr(*, "label")= chr "李眉蓁多少呢?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:6] 0 10 95 96 97 98
## .. ..- attr(*, "names")= chr [1:6] "非常不喜歡這個人" "非常喜歡這個人" "拒答" "很難說" ...
## $ Q15 : num 7 0 0 5 5 7 4 98 10 10 ...
## ..- attr(*, "label")= chr "那蔡英文呢?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:6] 0 10 95 96 97 98
## .. ..- attr(*, "names")= chr [1:6] "非常不喜歡這個人" "非常喜歡這個人" "拒答" "很難說" ...
## $ Q16 : num 7 7 6 4 3 5 4 8 98 98 ...
## ..- attr(*, "label")= chr "那江啟臣呢?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:6] 0 10 95 96 97 98
## .. ..- attr(*, "names")= chr [1:6] "非常不喜歡這個人" "非常喜歡這個人" "拒答" "很難說" ...
## $ Q17 : num 7 10 5 5 3 7 3 98 5 0 ...
## ..- attr(*, "label")= chr "那柯文哲呢?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:6] 0 10 95 96 97 98
## .. ..- attr(*, "names")= chr [1:6] "非常不喜歡這個人" "非常喜歡這個人" "拒答" "很難說" ...
## $ Q18 : num 6 10 9 5 3 3 4 9 0 0 ...
## ..- attr(*, "label")= chr "那韓國瑜呢?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:6] 0 10 95 96 97 98
## .. ..- attr(*, "names")= chr [1:6] "非常不喜歡這個人" "非常喜歡這個人" "拒答" "很難說" ...
## $ Q19 : num 93 93 3 93 95 93 93 3 1 1 ...
## ..- attr(*, "label")= chr "請問在這次市長補選中，您把票投給誰?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:8] 1 2 3 91 92 93 94 95
## .. ..- attr(*, "names")= chr [1:8] "陳其邁" "吳益政" "李眉蓁" "忘記了" ...
## $ Q20 : num 1 1 1 1 1 1 1 1 1 1 ...
## ..- attr(*, "label")= chr "請問您的家人中，有沒有人平時不住在高雄市，但這次市長補選特別從外縣市回來投票?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:6] 1 2 3 4 95 98
## .. ..- attr(*, "names")= chr [1:6] "都沒有" "1人" "2人" "3人以上" ...
## $ Q21 : num 3 3 3 3 95 3 3 3 1 1 ...
## ..- attr(*, "label")= chr "請問今年6月6日高雄市長罷免案，請問您是投同意票、不同意票、還是沒去投票?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:7] 1 2 3 91 92 94 95
## .. ..- attr(*, "names")= chr [1:7] "投同意票" "投不同意票" "沒去投票" "忘記了" ...
## $ Q22 : num 1 1 1 1 1 1 1 1 1 1 ...
## ..- attr(*, "label")= chr "請問您的家人中，有沒有人平時不住在高雄市，但這次市長罷免案特別從外縣市回來投票?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:6] 1 2 3 4 95 98
## .. ..- attr(*, "names")= chr [1:6] "都沒有" "1人" "2人" "3人以上" ...
## $ Q23 : num 97 1 1 1 95 97 1 1 1 2 ...
## ..- attr(*, "label")= chr "對於罷免韓國瑜市長這件事，有人覺得生氣但也有人覺得高興，請問您的心情比較接近哪一種?是覺得生氣還是覺得高興?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:6] 1 2 95 96 97 98
## .. ..- attr(*, "names")= chr [1:6] "生氣" "高興" "拒答" "看情形" ...
## $ Q24 : num 89 2 2 94 95 93 2 2 3 3 ...
## ..- attr(*, "label")= chr "請問今年1月的總統選舉中，您把票投給哪一組候選人?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:9] 1 2 3 89 91 92 93 94 95
## .. ..- attr(*, "names")= chr [1:9] "宋楚瑜與余湘" "韓國瑜與張善政" "蔡英文與賴清德" "沒領票" ...
## $ Q25 : num 93 1 1 1 95 93 1 1 2 2 ...
## ..- attr(*, "label")= chr "請問2018年11月高雄市長選舉時，您把票投給哪一位候選人?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:10] 1 2 3 4 89 91 92 93 94 95
## .. ..- attr(*, "names")= chr [1:10] "韓國瑜" "陳其邁" "璩美鳳" "蘇盈貴" ...
## $ Q26 : num 1 1 1 1 1 3 1 2 1 1 ...
## ..- attr(*, "label")= chr "請問您的家人中，有沒有人平時不住在高雄市，但2018年市長選舉特別從外縣市回來投票?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:6] 1 2 3 4 95 98
## .. ..- attr(*, "names")= chr [1:6] "都沒有" "1人" "2人" "3人以上" ...
## $ Q27 : num 2 93 3 3 91 91 93 91 2 2 ...
## ..- attr(*, "label")= chr "請問2014年11月高雄市長選舉時，您把票投給哪一位候選人?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:9] 1 2 3 89 91 92 93 94 95
## .. ..- attr(*, "names")= chr [1:9] "周可盛" "陳菊" "楊秋興" "沒領票" ...
## $ Q28 : num 6 5 6 2 6 6 6 97 2 4 ...
## ..- attr(*, "label")= chr "關於臺灣和大陸的關係，有下面幾種不同的看法: 1: 儘快統一；2: 儘快宣布獨立；3: 維持現狀，以後走向統一；4: 維持現"| __truncated__
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:12] 1 2 3 4 5 6 7 8 95 96 ...
## .. ..- attr(*, "names")= chr [1:12] "儘快統一" "儘快宣布獨立" "維持現狀，以後走向統一" "維持現狀，以後走向獨立" ...
## $ Q29 : num 38 7 1 7 7 1 7 98 2 2 ...
## ..- attr(*, "label")= chr "在國內的政黨之中，請問您認為您比較支持哪一個政黨?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:22] 1 2 3 4 5 6 7 16 18 19 ...
## .. ..- attr(*, "names")= chr [1:22] "國民黨" "民進黨" "新黨" "親民黨" ...
## $ Q30 : num 1 99 1 99 99 1 99 99 1 2 ...
## ..- attr(*, "label")= chr "請問您支持(029)的程度是非常支持、還是普普通通?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:3] 1 2 99
## .. ..- attr(*, "names")= chr [1:3] "非常支持" "普普通通" "跳題"
## $ Q31 : num 99 3 99 8 8 99 8 8 99 99 ...
## ..- attr(*, "label")= chr "那請問您有沒有比較偏向哪一個政黨?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:22] 3 4 5 6 7 8 18 19 20 21 ...
## .. ..- attr(*, "names")= chr [1:22] "偏國民黨" "偏民進黨" "偏新黨" "偏親民黨" ...
## $ Q32 : num 1 2 1 2 1 1 3 2 1 1 ...
## ..- attr(*, "label")= chr "我們社會上，有人說自己是「臺灣人」，也有人說自己是「中國人」，也有人說都是。請問您認為自己是「臺灣人」、「中國人」，或者都是?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:7] 1 2 3 95 96 97 98
## .. ..- attr(*, "names")= chr [1:7] "臺灣人" "都是" "中國人" "拒答" ...
## $ Q33 : num 79 48 37 36 71 62 38 44 79 26 ...
## ..- attr(*, "label")= chr "請問您是民國那一年出生的?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num 95
## .. ..- attr(*, "names")= chr "拒答"
## $ Q34 : num 6 5 3 6 4 6 4 4 4 3 ...
## ..- attr(*, "label")= chr "請問您的最高學歷是什麼?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 5 6 7 95
## .. ..- attr(*, "names")= chr [1:8] "不識字及未入學" "小學" "國、初中" "高中、職" ...
## $ Q35 : num 1 3 2 2 2 2 3 2 2 2 ...
## ..- attr(*, "label")= chr "請問您的父親是本省客家人、本省閩南人、大陸各省市人、原住民，還是新住民?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 6 7 95 98
## .. ..- attr(*, "names")= chr [1:9] "本省客家人" "本省閩南人" "大陸各省市人" "原住民" ...
## $ Q36 : num 1 3 2 2 2 2 3 2 2 2 ...
## ..- attr(*, "label")= chr "請問您的母親是本省客家人、本省閩南人、大陸各省市人、原住民，還是新住民?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 6 7 95 98
## .. ..- attr(*, "names")= chr [1:9] "本省客家人" "本省閩南人" "大陸各省市人" "原住民" ...
## $ Q37 : num 104 901 901 906 602 602 901 901 602 906 ...
## ..- attr(*, "label")= chr "請問您的職業是什麼?"
## ..- attr(*, "format.spss")= chr "F3.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:39] 101 102 103 104 105 106 201 202 203 204 ...
## .. ..- attr(*, "names")= chr [1:39] "民意代表" "政府行政主管" "公營事業主管" "民營事業主管" ...
## $ Q38 : num 999 801 301 999 999 999 207 103 999 999 ...
## ..- attr(*, "label")= chr "請問您配偶的職業是什麼?"
## ..- attr(*, "format.spss")= chr "F3.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:36] 101 102 103 104 105 106 201 202 203 204 ...
## .. ..- attr(*, "names")= chr [1:36] "民代" "政府行政主管" "公營事業主管" "民營事業主管" ...
## $ Q39 : num 999 999 999 301 999 999 999 999 999 105 ...
## ..- attr(*, "label")= chr "請問您失業或退休前的職業是什麼?"
## ..- attr(*, "format.spss")= chr "F3.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:33] 101 102 103 104 105 106 201 202 203 204 ...
## .. ..- attr(*, "names")= chr [1:33] "民代" "政府行政主管" "公營事業主管" "民營事業主管" ...
## $ Q40 : num 2 2 2 2 2 2 2 2 2 1 ...
## ..- attr(*, "label")= chr "性別:"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "男性" "女性"
## $ Q41 : num 1 4 4 1 1 1 1 1 1 4 ...
## ..- attr(*, "label")= chr "訪問時使用語言:"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:5] 1 2 3 4 5
## .. ..- attr(*, "names")= chr [1:5] "國語" "臺語" "客語" "國、臺語" ...
## $ NQ1 : num 5 4 24 28 23 3 5 12 11 5 ...
## ..- attr(*, "label")= chr "首先，想請問您的戶籍是在高雄市_________區"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 10
## ..- attr(*, "labels")= Named num [1:39] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:39] "鹽埕區" "鼓山區" "左營區" "楠梓區" ...
## $ NQ2 : num 7 5 13 4 7 5 99 92 4 4 ...
## ..- attr(*, "label")= chr "請問您平常最常看哪一臺的電視新聞?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 10
## ..- attr(*, "labels")= Named num [1:23] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:23] "臺視" "中視" "華視" "民視" ...
## $ NQ3 : num 2 4 3 3 2 2 3 4 1 1 ...
## ..- attr(*, "label")= chr "請問您對蔡英文總統今年以來的整體施政表現滿不滿意?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 10
## ..- attr(*, "labels")= Named num [1:5] 1 2 3 4 9
## .. ..- attr(*, "names")= chr [1:5] "非常滿意" "滿意" "不滿意" "非常不滿意" ...
## $ NQ4 : num 2 1 2 2 3 2 2 1 4 4 ...
## ..- attr(*, "label")= chr "請問您對韓國瑜擔任高雄市長的整體施政表現滿不滿意?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 10
## ..- attr(*, "labels")= Named num [1:5] 1 2 3 4 9
## .. ..- attr(*, "names")= chr [1:5] "非常滿意" "滿意" "不滿意" "非常不滿意" ...
## $ NQ5 : num 1 4 4 4 2 2 3 4 1 2 ...
## ..- attr(*, "label")= chr "請問您對陳菊擔任高雄市長的整體施政表現滿不滿意?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 10
## ..- attr(*, "labels")= Named num [1:5] 1 2 3 4 9
## .. ..- attr(*, "names")= chr [1:5] "非常滿意" "滿意" "不滿意" "非常不滿意" ...
## $ NQ6 : num 4 4 4 4 2 4 3 4 1 2 ...
## ..- attr(*, "label")= chr "請問您贊不贊成陳菊擔任監察院院長?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 10
## ..- attr(*, "labels")= Named num [1:5] 1 2 3 4 9
## .. ..- attr(*, "names")= chr [1:5] "非常贊成" "贊成" "不贊成" "非常不贊成" ...
## $ NQ7 : num 2 1 2 2 2 1 2 9 3 3 ...
## ..- attr(*, "label")= chr "有人說: 「政治人物當選後，很快就會跟民意脫節。」請問您同不同意這個說法?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 10
## ..- attr(*, "labels")= Named num [1:5] 1 2 3 4 9
## .. ..- attr(*, "names")= chr [1:5] "非常同意" "同意" "不同意" "非常不同意" ...
## $ NQ8 : num 2 1 1 3 2 1 2 2 3 4 ...
## ..- attr(*, "label")= chr "有人說: 「政治人物並不會關心像我這樣一般百姓的想法。」請問您同不同意這個說法?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 10
## ..- attr(*, "labels")= Named num [1:5] 1 2 3 4 9
## .. ..- attr(*, "names")= chr [1:5] "非常同意" "同意" "不同意" "非常不同意" ...
## $ NQ9 : num 2 1 3 2 2 4 3 9 3 2 ...
## ..- attr(*, "label")= chr "有人說: 「政治人物會用心為一般百姓做事。」請問您同不同意這個說法?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 10
## ..- attr(*, "labels")= Named num [1:5] 1 2 3 4 9
## .. ..- attr(*, "names")= chr [1:5] "非常同意" "同意" "不同意" "非常不同意" ...
## $ NQ10 : num 1 1 4 1 4 4 1 99 1 6 ...
## ..- attr(*, "label")= chr "請問在以下幾個問題中，除了防疫之外，您覺得我們高雄市應該優先處理哪一個?是經濟發展?社會福利?公共建設?治安?環境保護?還是交通?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 10
## ..- attr(*, "labels")= Named num [1:14] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:14] "經濟發展" "社會福利" "公共建設" "治安" ...
## $ NQ11 : num 1 3 98 92 91 1 98 99 1 1 ...
## ..- attr(*, "label")= chr "那您認為陳其邁、吳益政、李眉蓁哪一位市長候選人比較有能力解決這個問題呢?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 10
## ..- attr(*, "labels")= Named num [1:7] 1 2 3 91 92 98 99
## .. ..- attr(*, "names")= chr [1:7] "陳其邁" "吳益政" "李眉蓁" "都能" ...
## $ NQ12 : num 6 0 0 4 NA 5 3 0 10 10 ...
## ..- attr(*, "label")= chr "陳其邁多少呢?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 10
## ..- attr(*, "labels")= Named num [1:3] 0 10 90
## .. ..- attr(*, "names")= chr [1:3] "非常不喜歡這個人" "非常喜歡這個人" "無反應"
## [list output truncated]## 移除不必要的欄位
library(sjmisc)##
## Attaching package: 'sjmisc'## The following objects are masked from 'package:sjlabelled':
##
## to_character, to_factor, to_label, to_numericnames(voter1)## [1] "ID" "NAME" "TEL_A" "TEL" "TEL_NAME"
## [6] "DATE" "BTIME" "ETIME" "RESULT" "CALLER"
## [11] "GENDER" "LEVEL" "HOURS" "VERSION" "HOME_A"
## [16] "HOME_M" "HOME_O" "SAMPLE" "DATE_1" "BTIME_1"
## [21] "ETIME_1" "RESULT_1" "DATE_2" "BTIME_2" "ETIME_2"
## [26] "RESULT_2" "DATE_3" "BTIME_3" "ETIME_3" "RESULT_3"
## [31] "DATE_4" "BTIME_4" "ETIME_4" "RESULT_4" "DATE_5"
## [36] "BTIME_5" "ETIME_5" "RESULT_5" "DATE_6" "BTIME_6"
## [41] "ETIME_6" "RESULT_6" "DATE_7" "BTIME_7" "ETIME_7"
## [46] "RESULT_7" "Q1" "Q2" "Q3" "Q4"
## [51] "Q5" "Q6" "Q7" "Q8" "Q9"
## [56] "Q10" "Q11" "Q12" "Q13" "Q14"
## [61] "Q15" "Q16" "Q17" "Q18" "Q19"
## [66] "Q20" "Q21" "Q22" "Q23" "Q24"
## [71] "Q25" "Q26" "Q27" "Q28" "Q29"
## [76] "Q30" "Q31" "Q32" "Q33" "Q34"
## [81] "Q35" "Q36" "Q37" "Q38" "Q39"
## [86] "Q40" "Q41" "NQ1" "NQ2" "NQ3"
## [91] "NQ4" "NQ5" "NQ6" "NQ7" "NQ8"
## [96] "NQ9" "NQ10" "NQ11" "NQ12" "NQ13"
## [101] "NQ14" "NQ15" "NQ16" "NQ17" "NQ18"
## [106] "NQ19" "NQ20" "NQ21" "NQ22" "NQ23"
## [111] "NQ24" "NQ25" "NQ26" "NQ27" "SEX"
## [116] "AGE" "EDU" "SENGI" "MASENGI" "T_Cidentity"
## [121] "partyid" "PARTY" "CAREER" "CAREER8" "TONDU"
## [126] "W"voter1 <- remove_var(voter1, 3:46)## Warning: `select_vars()` is deprecated as of dplyr 0.8.4.
## Please use `tidyselect::vars_select()` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.## 另存rda
save(voter1, file = "voter1.rda")清理無效值
## 重新讀入
load("voter1.rda")
## 清理無效值
library(sjmisc)
voter1r <- set_na(voter1, na=c(89:99, "NA"))
save(voter1r, file ="voter1r.rda" )
rm(list = ls())變數編碼
## 變數編碼
load("voter1r.rda")
library(sjmisc)
# 1.首先，想請問您的戶籍在高雄市________區?
# (01)鹽埕區 (02)鼓山區 (03)左營區 (04)楠梓區 (05)三民區 (06)新興區 (07)前金區 (08)苓雅區 (09)前鎮區 (10)旗津區 (11)小港區 (12)鳳山區 (13)林園區 (14)大寮區 (15)大樹區 (16)大社區 (17)仁武區 (18)鳥松區 (19)岡山區 (20)橋頭區 (21)燕巢區 # (22)田寮區 (23)阿蓮區 (24)路竹區 (25)湖內區 (26)茄萣區 (27)永安區 (28)彌陀區 (29)梓官區 (30)旗山區 (31)美濃區 (32)甲仙區 (33)杉林區 (34)內門區 (35)桃源區
table(voter1r$Q1)##
## 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
## 11 52 75 93 126 11 4 67 84 8 76 133 31 28 27 11 42 17 48 35
## 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
## 10 2 23 24 11 12 5 6 15 19 32 2 2 2 5# 2.請問您平常最常看哪一臺的電視新聞？
# (01)臺視 (02)中視 (03)華視 (04)民視 (05)TVBS (06)三立 (07)東森 (08)中天 (09)年代 (10)八大 (11)非凡 (12)大愛 (13)公視 (14)壹電視 (15)Goodnews (16)寰宇新聞 (17)CNN (18)東森財經新聞臺 (19)人間衛視
table(voter1r$Q2)##
## 1 2 3 4 5 6 7 8 9 10 11 12 13 16 17 18 19 26 28
## 29 32 11 133 180 120 75 84 46 2 14 7 23 55 1 12 2 1 1# 3.請問您對蔡英文總統今年以來的整體施政表現滿不滿意？
# (01)非常滿意 (02)滿意 (03)不滿意 (04)非常不滿意
table(voter1r$Q3)##
## 1 2 3 4
## 217 470 198 137voter1r$Q3r <- rec(voter1r$Q3, rec= "1=4; 2=3; 3=2; 4=1", as.num = F )
# 4.請問您對韓國瑜擔任高雄市長的整體施政表現滿不滿意？
# (01)非常滿意 (02)滿意 (03)不滿意 (04)非常不滿意
table(voter1r$Q4)##
## 1 2 3 4
## 138 242 277 388voter1r$Q4r <- rec(voter1r$Q4, rec= "1=4; 2=3; 3=2; 4=1", as.num = F )
# 5.請問您對陳菊擔任高雄市長的整體施政表現滿不滿意？
# (01)非常滿意 (02)滿意 (03)不滿意 (04)非常不滿意
table(voter1r$Q5)##
## 1 2 3 4
## 154 457 226 199voter1r$Q5r <- rec(voter1r$Q5, rec= "1=4; 2=3; 3=2; 4=1", as.num = F )
# 6.請問您贊不贊成陳菊擔任監察院院長？
# (01)非常贊成 (02)贊成 (03)不贊成 (04)非常不贊成
table(voter1r$Q6)##
## 1 2 3 4
## 125 280 183 327voter1r$Q6r <- rec(voter1r$Q6, rec= "1=4; 2=3; 3=2; 4=1", as.num = F )
# 7.有人說：「政治人物當選後，很快就會跟民意脫節。」請問您同不同意這個說法？
# (01)非常同意 (02)同意 (03)不同意 (04)非常不同意
table(voter1r$Q7)##
## 1 2 3 4
## 272 405 271 72voter1r$Q7r <- rec(voter1r$Q7, rec= "1=4; 2=3; 3=2; 4=1", as.num = F )
# 8.有人說：「政治人物並不會關心像我這樣一般百姓的想法。」請問您同不同意這個說法？
#(01)非常同意 (02)同意 (03)不同意 (04)非常不同意
table(voter1r$Q8)##
## 1 2 3 4
## 252 333 387 74voter1r$Q8r <- rec(voter1r$Q8, rec= "1=4; 2=3; 3=2; 4=1", as.num = F )
# 9.有人說：「政治人物會用心為一般百姓做事。」請問您同不同意這個說法？
# (01)非常同意 (02)同意 (03)不同意 (04)非常不同意
table(voter1r$Q9)##
## 1 2 3 4
## 69 426 357 132voter1r$Q9r <- rec(voter1r$Q9, rec= "1=4; 2=3; 3=2; 4=1", as.num = F )
table(voter1r$Q9r)##
## 1 2 3 4
## 132 357 426 69# 10.請問在以下幾個問題中，除了防疫之外，您覺得我們高雄市應該優先處理哪一個？
# (01)經濟發展 (02)社會福利 (03)公共建設 (04)治安 (05)環境保護 (06)交通 (07)就業 (08)偏鄉建設 (09)教育 (10)貪汙問題 (11)解決債務問題 (12)觀光 (13)登革熱
table(voter1r$Q10)##
## 1 2 3 4 5 6 7 8 9 10 11 12 13
## 463 107 89 131 140 132 2 1 2 2 1 1 1# 11.那您認為陳其邁、吳益政、李眉蓁哪一位市長候選人比較有能力解決這個問題呢?
# (01)陳其邁 (02)吳益政 (03)李眉蓁 (04)都能 (05)都不能
table(voter1r$Q11)##
## 1 2 3
## 643 69 42# 12.請您用0至10分來表示您對以下政治人物的好感程度，10分表示[非常喜歡這個人]，0分表示[非常不喜歡這個人]。陳其邁喜好程度
table(voter1r$Q12)##
## 0 1 2 3 4 5 6 7 8 9 10
## 99 29 31 58 33 187 117 161 189 75 97voter1r$Q12r <- as.numeric(rec(voter1r$Q12, rec="89:99=NA; else=copy", as.num=T))
table(voter1r$Q12r)##
## 0 1 2 3 4 5 6 7 8 9 10
## 99 29 31 58 33 187 117 161 189 75 97# 13.吳益政多少呢?
table(voter1r$Q13)##
## 0 1 2 3 4 5 6 7 8 9 10
## 115 37 101 173 70 253 75 48 39 6 11voter1r$Q13r <- as.numeric(rec(voter1r$Q13, rec="89:99=NA; else=copy", as.num=T))
table(voter1r$Q13r)##
## 0 1 2 3 4 5 6 7 8 9 10
## 115 37 101 173 70 253 75 48 39 6 11# 14.李眉蓁多少呢?
table(voter1r$Q14)##
## 0 1 2 3 4 5 6 7 8 9 10
## 190 57 115 177 84 230 79 30 40 3 13voter1r$Q14r <- as.numeric(rec(voter1r$Q14, rec="89:99=NA; else=copy", as.num=T))
table(voter1r$Q14r)##
## 0 1 2 3 4 5 6 7 8 9 10
## 190 57 115 177 84 230 79 30 40 3 13# 15.那蔡英文呢?
table(voter1r$Q15)##
## 0 1 2 3 4 5 6 7 8 9 10
## 103 20 22 66 48 153 130 142 205 92 115voter1r$Q15r <- as.numeric(rec(voter1r$Q15, rec="89:99=NA; else=copy", as.num=T))
table(voter1r$Q15r)##
## 0 1 2 3 4 5 6 7 8 9 10
## 103 20 22 66 48 153 130 142 205 92 115# 16.那江啟臣呢?
table(voter1r$Q16)##
## 0 1 2 3 4 5 6 7 8 9 10
## 79 35 59 129 96 277 129 81 34 8 7voter1r$Q16r <- as.numeric(rec(voter1r$Q16, rec="89:99=NA; else=copy", as.num=T))
table(voter1r$Q16r)##
## 0 1 2 3 4 5 6 7 8 9 10
## 79 35 59 129 96 277 129 81 34 8 7# 17.那柯文哲呢?
table(voter1r$Q17)##
## 0 1 2 3 4 5 6 7 8 9 10
## 97 40 74 142 94 241 152 117 74 23 15voter1r$Q17r <- as.numeric(rec(voter1r$Q17, rec="89:99=NA; else=copy", as.num=T))
table(voter1r$Q17r)##
## 0 1 2 3 4 5 6 7 8 9 10
## 97 40 74 142 94 241 152 117 74 23 15# 18.那韓國瑜呢?
table(voter1r$Q18)##
## 0 1 2 3 4 5 6 7 8 9 10
## 266 84 99 123 61 144 94 65 80 31 41voter1r$Q18r <- as.numeric(rec(voter1r$Q18, rec="89:99=NA; else=copy", as.num=T))
table(voter1r$Q18r)##
## 0 1 2 3 4 5 6 7 8 9 10
## 266 84 99 123 61 144 94 65 80 31 41# 19.請問在這次市長補選中，您把票投給誰？
# (01) 陳其邁 (02)吳益政 (03)李眉蓁 (04)無投票權 (05)沒去投 (06)投廢票
table(voter1r$Q19)##
## 1 2 3
## 445 32 135# 20.請問您的家人中，有沒有人平時不住在高雄市，但這次市長補選特別從外縣市回來投票？
# (01)都沒有 (02)1人 (03)2人 (04)3人以上
table(voter1r$Q20)##
## 1 2 3 4
## 979 101 47 19# 21.請問今年6月6日高雄市長罷免案，請問您是投同意票、不同意票、還是沒去投票？
# (01)投同意票 (02)投不同意票 (03)沒去投票 (04)無投票權
table(voter1r$Q21)##
## 1 2 3
## 472 58 585# 23.對於罷免韓國瑜市長這件事，有人覺得生氣但也有人覺得高興，請問您的心情比較接近哪一種？是覺得生氣還是覺得高興？
#(01)生氣 (02)高興
table(voter1r$Q23)##
## 1 2
## 340 513table(voter1r$Q23)##
## 1 2
## 340 513voter1r$Q3 <- rec(voter1r$Q23, rec= "1=1; 2=0", as.num = F )製表與繪圖
## 製表與繪圖
load("voter1r.rda")
library(sjPlot)## Install package "strengejacke" from GitHub (`devtools::install_github("strengejacke/strengejacke")`) to load all sj-packages at once!frq(voter1r$Q40)##
## 性別: (x) <numeric>
## # total N=1160 valid N=1160 mean=1.55 sd=0.50
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ----------------------------------------------
## 1 | 男性 | 527 | 45.43 | 45.43 | 45.43
## 2 | 女性 | 633 | 54.57 | 54.57 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>voter1r$Q40 <- set_label(voter1r$Q40, label="sex")
voter1r$Q40 <- set_labels(voter1r$Q40, labels= c("female", "male"))
voter1r$Q7r <- rec(voter1r$Q7, rec="rev",
var.label="how serious the issue is",
val.labels = c("not at all (1)",
"not very serious (2)",
"serious (3)",
"very serious (4)"))
sjt.xtab(voter1r$Q7r, voter1r$Q40)|
how serious the issue is |
sex | Total | |
|---|---|---|---|
| female | male | ||
| not at all (1) | 39 | 33 | 72 |
| not very serious (2) | 109 | 162 | 271 |
| serious (3) | 188 | 217 | 405 |
| very serious (4) | 137 | 135 | 272 |
| Total | 473 | 547 | 1020 | χ2=7.628 · df=3 · Cramer’s V=0.086 · p=0.054 |
frq(voter1r$Q40)##
## sex (x) <numeric>
## # total N=1160 valid N=1160 mean=1.55 sd=0.50
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------
## 1 | female | 527 | 45.43 | 45.43 | 45.43
## 2 | male | 633 | 54.57 | 54.57 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>voter1r$Q40 <- set_label(voter1r$Q40, label="sex")
voter1r$Q40 <- set_labels(voter1r$Q40, labels= c("female", "male"))
voter1r$Q8r <- rec(voter1r$Q8, rec="rev",
var.label="how serious the issue is",
val.labels = c("not at all (1)",
"not very serious (2)",
"serious (3)",
"very serious (4)"))
sjt.xtab(voter1r$Q8r, voter1r$Q40)|
how serious the issue is |
sex | Total | |
|---|---|---|---|
| female | male | ||
| not at all (1) | 41 | 33 | 74 |
| not very serious (2) | 164 | 223 | 387 |
| serious (3) | 167 | 166 | 333 |
| very serious (4) | 114 | 138 | 252 |
| Total | 486 | 560 | 1046 | χ2=6.948 · df=3 · Cramer’s V=0.082 · p=0.074 |
frq(voter1r$Q40)##
## sex (x) <numeric>
## # total N=1160 valid N=1160 mean=1.55 sd=0.50
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------
## 1 | female | 527 | 45.43 | 45.43 | 45.43
## 2 | male | 633 | 54.57 | 54.57 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>voter1r$Q40 <- set_label(voter1r$Q40, label="sex")
voter1r$Q40 <- set_labels(voter1r$Q40, labels= c("female", "male"))
voter1r$Q9r <- rec(voter1r$Q9, rec="rev",
var.label="how serious the issue is",
val.labels = c("not at all (1)",
"not very serious (2)",
"serious (3)",
"very serious (4)"))
sjt.xtab(voter1r$Q9r, voter1r$Q40)|
how serious the issue is |
sex | Total | |
|---|---|---|---|
| female | male | ||
| not at all (1) | 59 | 73 | 132 |
| not very serious (2) | 157 | 200 | 357 |
| serious (3) | 208 | 218 | 426 |
| very serious (4) | 42 | 27 | 69 |
| Total | 466 | 518 | 984 | χ2=7.433 · df=3 · Cramer’s V=0.087 · p=0.059 |
library(sjlabelled)
plot_grpfrq (voter1r$Q7r, voter1r$Q40) 
plot_grpfrq (voter1r$Q7r, voter1r$Q40, bar.pos = "stack") 
plot_grpfrq (voter1r$Q8r, voter1r$Q40) 
plot_grpfrq (voter1r$Q8r, voter1r$Q40, bar.pos = "stack")
plot_grpfrq (voter1r$Q9r, voter1r$Q40) 
plot_grpfrq (voter1r$Q9r, voter1r$Q40, bar.pos = "stack")
分析說明
從問題7、8、9的調查結果顯示，超過半數(57.0%)的民眾認為政治人物在當選後，會立即與民意脫節，有30.9%不同意，反映出民眾認為存在民主代議士制度下缺失的問題，也就是到底民意代表當選後，是會代表誰的利益?選區民眾?全國人民?利益團體?亦或是政黨呢?
有趣的是，雖然有48.7%的民眾同意政治人物並不會關心像我這樣一般百姓的想法，但也有41.5%民眾並不這樣認為，同意與不同意間差距變小了。最後，在民眾是同意政治人物會用心為一般百姓做事的問題，有45.6%民眾是表示同意的，而40.4%表示不同意。整體來說，大部分民眾對於「民意代表當選後，很快就會跟民意脫節。」的認知，存在較高的同意共識，至於政治人物是否關心一般百姓想法或為他們做事的問題，民眾表示同意與否兩者間差距較小。
本次調查是委託政大選舉研究中心，以電話訪問設籍在高雄市且年滿二十歲以上的成年人，市話調查抽樣方法併採以下兩種方式；一、電話簿抽樣法及二比例抽樣法(母體來自政大選舉心中資料庫)，期間為109年8月19日至8月23日止，實際訪問完成1,160個有效樣本，以95%之信心水準估計，最大可能隨機抽樣誤差為：±2.88%之下。而樣本代表性檢定顯示：性別、年齡、教育程度樣本結構與母體並不一致。為了使樣本與母體結構更符合，本研究對樣本的分布特性使用多變數「反覆加權法」（raking）進行加權。上述問題7、8、9，經以性別變數來檢測，p值均大於0.05，未達顯著，也就是前述這3個問題，就男、女性別來說，並不具差異性。
