民眾對政治人物道德觀感的分析報告
歐雅欣
2020/11/5
資料說明
## 本次分析資料使用"2020年高雄市長補選的電訪案"的問題7、8、9及受訪者年齡計4題。"2020年高雄市長補選的電訪案"是由政大選舉研究中心，以電話訪問設籍在高雄市且年滿二十歲以上的成年人，市話調查抽樣方法併採電話簿抽樣法及二比例抽樣法(母體來自政大選舉心中資料庫)，期間為109年8月19日至8月23日止，實際訪問完成1,160個有效樣本，以95%之信心水準估計，最大可能隨機抽樣誤差為：±2.88%之下。讀取sav檔案並轉成rda檔案
清理無效值
變數重新編碼
## 變數重新編碼
library(sjmisc)
load("voter1r.rda")
# 7.有人說：「政治人物當選後，很快就會跟民意脫節。」請問您同不同意這個說法？
# (01)非常同意 (02)同意 (03)不同意 (04)非常不同意
# table(voter1r$Q7)
# frq(voter1r$Q7)
voter1r$Q7r <- rec(voter1r$Q7, rec= "1:2=1[agree]; 3:4=0[disagree] ", as.num = F )
# frq(voter1r$Q7r)
# 8.有人說：「政治人物並不會關心像我這樣一般百姓的想法。」請問您同不同意這個說法？
# (01)非常同意 (02)同意 (03)不同意 (04)非常不同意
# table(voter1r$Q8)
# frq(voter1r$Q8)
voter1r$Q8r <- rec(voter1r$Q8, rec= "1:2=1[agree]; 3:4=0[disagree]", as.num = F )
# frq(voter1r$Q8r)
# 9.有人說：「政治人物會用心為一般百姓做事。」請問您同不同意這個說法？
# (01)非常同意 (02)同意 (03)不同意 (04)非常不同意
# table(voter1r$Q9)
# frq(voter1r$Q9)
voter1r$Q9r <- rec(voter1r$Q9, rec= "1:2=1[agree]; 3:4=0[disagree]", as.num = F )
# frq(voter1r$Q9r)
# 年齡
# (01)20至29歲 (02)30至39歲 (03)40至49歲 (04)50至59歲 (05)60歲及以上
# table(voter1r$AGE)
# frq(voter1r$AGE)
voter1r$AGE <- rec(voter1r$AGE, rec= "else=copy", as.num = F )
# frq(voter1r$AGE)為變數上標籤
## 為變數上標籤
library(sjlabelled)
voter1r$Q7r <- set_label(voter1r$Q7r, label ="politicians do not value public opiniom" )
voter1r$Q7r <- set_labels(voter1r$Q7r, labels = c("disagree (1)", "agree (0)") )
# frq(voter1r$Q7r)
voter1r$Q8r <- set_label(voter1r$Q8r, label ="politicians don't care about the people" )
voter1r$Q8r <- set_labels(voter1r$Q8r, labels = c("disagree (1)", "agree (0)") )
# frq(voter1r$Q8r)
voter1r$Q9r <- set_label(voter1r$Q9r, label ="politicians will do things hard" )
voter1r$Q9r <- set_labels(voter1r$Q9r, labels = c("disagree (1)", "agree (0)") )
# frq(voter1r$Q9r)
voter1r$AGE <- set_label(voter1r$AGE, label = "AGE")
voter1r$AGE <- set_labels(voter1r$AGE, labels = c("20~29", "30~39", "40~49", "50~50", "60up"))
## 看次數分配表
## 方法一
library(gmodels)
CrossTable(voter1r$Q7r)##
##
## Cell Contents
## |-------------------------|
## | N |
## | N / Table Total |
## |-------------------------|
##
##
## Total Observations in Table: 1020
##
##
## | 0 | 1 |
## |-----------|-----------|
## | 343 | 677 |
## | 0.336 | 0.664 |
## |-----------|-----------|
##
##
##
## CrossTable(voter1r$Q8r)##
##
## Cell Contents
## |-------------------------|
## | N |
## | N / Table Total |
## |-------------------------|
##
##
## Total Observations in Table: 1046
##
##
## | 0 | 1 |
## |-----------|-----------|
## | 461 | 585 |
## | 0.441 | 0.559 |
## |-----------|-----------|
##
##
##
## CrossTable(voter1r$Q9r)##
##
## Cell Contents
## |-------------------------|
## | N |
## | N / Table Total |
## |-------------------------|
##
##
## Total Observations in Table: 984
##
##
## | 0 | 1 |
## |-----------|-----------|
## | 489 | 495 |
## | 0.497 | 0.503 |
## |-----------|-----------|
##
##
##
## CrossTable(voter1r$AGE)##
##
## Cell Contents
## |-------------------------|
## | N |
## | N / Table Total |
## |-------------------------|
##
##
## Total Observations in Table: 1130
##
##
## | 1 | 2 | 3 | 4 | 5 |
## |-----------|-----------|-----------|-----------|-----------|
## | 117 | 133 | 240 | 227 | 413 |
## | 0.104 | 0.118 | 0.212 | 0.201 | 0.365 |
## |-----------|-----------|-----------|-----------|-----------|
##
##
##
## ## 方法二
library(sjPlot)
# sjmisc;;frq(voter1r$Q7r)
frq(voter1r$Q7r)##
## politicians do not value public opiniom (x) <categorical>
## # total N=1160 valid N=1020 mean=0.66 sd=0.47
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------------
## 0 | disagree (1) | 343 | 29.57 | 33.63 | 33.63
## 1 | agree (0) | 677 | 58.36 | 66.37 | 100.00
## <NA> | <NA> | 140 | 12.07 | <NA> | <NA>plot_frq(voter1r$Q7r)
# sjmisc;;frq(voter1r$Q8r)
frq(voter1r$Q8r)##
## politicians don't care about the people (x) <categorical>
## # total N=1160 valid N=1046 mean=0.56 sd=0.50
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------------
## 0 | disagree (1) | 461 | 39.74 | 44.07 | 44.07
## 1 | agree (0) | 585 | 50.43 | 55.93 | 100.00
## <NA> | <NA> | 114 | 9.83 | <NA> | <NA>plot_frq(voter1r$Q8r)
# sjmisc;;frq(voter1r$Q9r)
frq(voter1r$Q9r)##
## politicians will do things hard (x) <categorical>
## # total N=1160 valid N=984 mean=0.50 sd=0.50
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------------
## 0 | disagree (1) | 489 | 42.16 | 49.70 | 49.70
## 1 | agree (0) | 495 | 42.67 | 50.30 | 100.00
## <NA> | <NA> | 176 | 15.17 | <NA> | <NA>plot_frq(voter1r$Q9r)
# sjmisc;;frq(voter1r$AGE)
frq(voter1r$AGE)##
## AGE (x) <categorical>
## # total N=1160 valid N=1130 mean=3.61 sd=1.35
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ----------------------------------------------
## 1 | 20~29 | 117 | 10.09 | 10.35 | 10.35
## 2 | 30~39 | 133 | 11.47 | 11.77 | 22.12
## 3 | 40~49 | 240 | 20.69 | 21.24 | 43.36
## 4 | 50~50 | 227 | 19.57 | 20.09 | 63.45
## 5 | 60up | 413 | 35.60 | 36.55 | 100.00
## <NA> | <NA> | 30 | 2.59 | <NA> | <NA>plot_frq(voter1r$AGE)
單一變數分析
## 單一變數分析
## 本次分析的問題意識為政治人物當選後，就不重視選民的意見(Q7v)。電訪的問卷題目為「有人說：政治人物當選後，很快就會跟民意脫節。請問您同不同意這個說法？」將非常同意、同意的編碼為1，非常不同意、不同意的編碼為0。調查結果可知認同政治人物當選後很快就與民意脫節的民眾達66.4%(677人)，不認同的民眾僅33.6%(343人)，兩者間有蠻大的差距，
## 變數Q8v:政治人物不關心像我一般民眾的想法。電訪的問卷題目為「有人說：政治人物並不會關心像我這樣一般百姓的想法。請問您同不同意這個說法？」將非常同意、同意的編碼為1，非常不同意、不同意的編碼為0。從調查分布來看，同意政治人物並不關心像我一般民眾的有55.9%(585人)，表示不同意的有44.1%(461人)，兩者的差距縮小。
## 變數Q9v:政治人物會認真做事。電訪的問卷題目為「有人說:政治人物會用心為一般百姓做事。請問您同不同意這個說法？」將非常同意、同意的編碼為1，非常不同意、不同意的逼碼為0。資料顯示50.3%(495人)的民眾同意這個說法，不同意者有49.7%(489人)，同意與不同意者間差距更小。
## 變數AGE:本次調查結果，最年輕世代(20~29)人數最少只有117位，佔全體樣本的10.3%;30~39歲的有133位，佔11.8%;40~49歲的受訪者有240人，佔全體樣本的21.2%;50~59歲的227位，有20.1%;60歲以上的年長者稅多，有413位，約36.5%，可能是因位調查方式採電話訪問(電話簿抽樣與資料庫併用)所致。假設
## 理論:選民擔憂民主體制下代議士制度的缺失，認為政治人物在當選後就會與民意脫節，不會重視一般百姓的想法，也不會認真為一般百姓做事。
## H1:同意政治人物不重視一般百姓的想法的，與認同政治人物當選後就會與民意脫節相關。
## H2:同意政治人物會認真為一般百姓做事的，與認同政治人物當選後就會與民意脫節相關。
## H3:受訪者的年齡會影響對評價政治人物的道德觀感。卡方檢定
## 卡方檢定
## 將變數Q8v、Q9v、年齡(AGE)分別與政治人物當選後，就不重視選民的意見(Q7v)進行卡方檢定分析，藉由檢定檢測變數與問題意識的相關性。製表與繪圖
## 製表與繪圖
## 方法一
library(gmodels)
CrossTable(voter1r$Q7r, voter1r$Q8r, prop.r = TRUE, prop.c = TRUE, prop.chisq = FALSE, chisq = TRUE )##
##
## Cell Contents
## |-------------------------|
## | N |
## | N / Row Total |
## | N / Col Total |
## | N / Table Total |
## |-------------------------|
##
##
## Total Observations in Table: 966
##
##
## | voter1r$Q8r
## voter1r$Q7r | 0 | 1 | Row Total |
## -------------|-----------|-----------|-----------|
## 0 | 256 | 67 | 323 |
## | 0.793 | 0.207 | 0.334 |
## | 0.614 | 0.122 | |
## | 0.265 | 0.069 | |
## -------------|-----------|-----------|-----------|
## 1 | 161 | 482 | 643 |
## | 0.250 | 0.750 | 0.666 |
## | 0.386 | 0.878 | |
## | 0.167 | 0.499 | |
## -------------|-----------|-----------|-----------|
## Column Total | 417 | 549 | 966 |
## | 0.432 | 0.568 | |
## -------------|-----------|-----------|-----------|
##
##
## Statistics for All Table Factors
##
##
## Pearson's Chi-squared test
## ------------------------------------------------------------
## Chi^2 = 257.6147 d.f. = 1 p = 5.681609e-58
##
## Pearson's Chi-squared test with Yates' continuity correction
## ------------------------------------------------------------
## Chi^2 = 255.4094 d.f. = 1 p = 1.718651e-57
##
## CrossTable(voter1r$Q7r, voter1r$Q9r, prop.r = TRUE, prop.c = TRUE, prop.chisq = FALSE, chisq = TRUE )##
##
## Cell Contents
## |-------------------------|
## | N |
## | N / Row Total |
## | N / Col Total |
## | N / Table Total |
## |-------------------------|
##
##
## Total Observations in Table: 912
##
##
## | voter1r$Q9r
## voter1r$Q7r | 0 | 1 | Row Total |
## -------------|-----------|-----------|-----------|
## 0 | 100 | 201 | 301 |
## | 0.332 | 0.668 | 0.330 |
## | 0.212 | 0.456 | |
## | 0.110 | 0.220 | |
## -------------|-----------|-----------|-----------|
## 1 | 371 | 240 | 611 |
## | 0.607 | 0.393 | 0.670 |
## | 0.788 | 0.544 | |
## | 0.407 | 0.263 | |
## -------------|-----------|-----------|-----------|
## Column Total | 471 | 441 | 912 |
## | 0.516 | 0.484 | |
## -------------|-----------|-----------|-----------|
##
##
## Statistics for All Table Factors
##
##
## Pearson's Chi-squared test
## ------------------------------------------------------------
## Chi^2 = 61.05633 d.f. = 1 p = 5.546481e-15
##
## Pearson's Chi-squared test with Yates' continuity correction
## ------------------------------------------------------------
## Chi^2 = 59.9602 d.f. = 1 p = 9.679484e-15
##
## CrossTable(voter1r$Q7r, voter1r$AGE, prop.r = TRUE, prop.c = TRUE, prop.chisq = FALSE, chisq = TRUE )##
##
## Cell Contents
## |-------------------------|
## | N |
## | N / Row Total |
## | N / Col Total |
## | N / Table Total |
## |-------------------------|
##
##
## Total Observations in Table: 995
##
##
## | voter1r$AGE
## voter1r$Q7r | 1 | 2 | 3 | 4 | 5 | Row Total |
## -------------|-----------|-----------|-----------|-----------|-----------|-----------|
## 0 | 45 | 47 | 72 | 61 | 111 | 336 |
## | 0.134 | 0.140 | 0.214 | 0.182 | 0.330 | 0.338 |
## | 0.402 | 0.370 | 0.313 | 0.293 | 0.349 | |
## | 0.045 | 0.047 | 0.072 | 0.061 | 0.112 | |
## -------------|-----------|-----------|-----------|-----------|-----------|-----------|
## 1 | 67 | 80 | 158 | 147 | 207 | 659 |
## | 0.102 | 0.121 | 0.240 | 0.223 | 0.314 | 0.662 |
## | 0.598 | 0.630 | 0.687 | 0.707 | 0.651 | |
## | 0.067 | 0.080 | 0.159 | 0.148 | 0.208 | |
## -------------|-----------|-----------|-----------|-----------|-----------|-----------|
## Column Total | 112 | 127 | 230 | 208 | 318 | 995 |
## | 0.113 | 0.128 | 0.231 | 0.209 | 0.320 | |
## -------------|-----------|-----------|-----------|-----------|-----------|-----------|
##
##
## Statistics for All Table Factors
##
##
## Pearson's Chi-squared test
## ------------------------------------------------------------
## Chi^2 = 5.296453 d.f. = 4 p = 0.2582092
##
##
## ## 方法二
library(sjPlot)
sjt.xtab(voter1r$Q7r, voter1r$Q8r, show.row.prc="TRUE", show.col.prc= "TRUE", tdcol.col = "gray", tdcol.row = "brown")|
politicians do not value public opiniom |
politicians don’t care about the people |
Total | |
|---|---|---|---|
| disagree (1) | agree (0) | ||
| disagree (1) |
256 79.3 % 61.4 % |
67 20.7 % 12.2 % |
323 100 % 33.4 % |
| agree (0) |
161 25 % 38.6 % |
482 75 % 87.8 % |
643 100 % 66.6 % |
| Total |
417 43.2 % 100 % |
549 56.8 % 100 % |
966 100 % 100 % |
χ2=255.409 · df=1 · φ=0.516 · p=0.000 |
sjt.xtab (voter1r$Q7r, voter1r$Q9r, show.row.prc="TRUE", show.col.prc= "TRUE", tdcol.col = "gray", tdcol.row = "brown")|
politicians do not value public opiniom |
politicians will do things hard |
Total | |
|---|---|---|---|
| disagree (1) | agree (0) | ||
| disagree (1) |
100 33.2 % 21.2 % |
201 66.8 % 45.6 % |
301 100 % 33 % |
| agree (0) |
371 60.7 % 78.8 % |
240 39.3 % 54.4 % |
611 100 % 67 % |
| Total |
471 51.6 % 100 % |
441 48.4 % 100 % |
912 100 % 100 % |
χ2=59.960 · df=1 · φ=0.259 · p=0.000 |
sjt.xtab (voter1r$Q7r, voter1r$AGE, show.row.prc="TRUE", show.col.prc= "TRUE", tdcol.col = "gray", tdcol.row = "brown")|
politicians do not value public opiniom |
AGE | Total | ||||
|---|---|---|---|---|---|---|
| 20~29 | 30~39 | 40~49 | 50~50 | 60up | ||
| disagree (1) |
45 13.4 % 40.2 % |
47 14 % 37 % |
72 21.4 % 31.3 % |
61 18.2 % 29.3 % |
111 33 % 34.9 % |
336 100 % 33.8 % |
| agree (0) |
67 10.2 % 59.8 % |
80 12.1 % 63 % |
158 24 % 68.7 % |
147 22.3 % 70.7 % |
207 31.4 % 65.1 % |
659 100 % 66.2 % |
| Total |
112 11.3 % 100 % |
127 12.8 % 100 % |
230 23.1 % 100 % |
208 20.9 % 100 % |
318 32 % 100 % |
995 100 % 100 % |
χ2=5.296 · df=4 · Cramer’s V=0.073 · p=0.258 |
library(sjlabelled)
plot_grpfrq (voter1r$Q7r, voter1r$Q8r) 
plot_grpfrq (voter1r$Q7r, voter1r$Q9r) 
plot_grpfrq (voter1r$Q7r, voter1r$AGE) 
相關性分析
## 如上表所示，變數Q8v政治人物不關心像我一般民眾的想法與問題意識(Q7v)政治人物當選後，就不重視選民的意見之間的相關性很強(Cramer's V=0.516)。認同政治人物不關心像我一般民眾的想法的受訪者中，有87.8%是認同政治人物當選後，就不重視選民的意見;同意政治人物當選後，就不重視選民的意見者，有75%也同意政治人物不關心像我一般民眾的想法。p值檢定顯示兩者顯著相關。
## 變數Q9v政治人物會用心為一般百姓做事與問題意識(Q7v)之間的相關性不弱(Cramer's v=0.259)。不同意政治人物會用心為一般百姓做事者中，有78.8%認同政治人物當選後，就不重視選民的意見;認同政治人物當選後，就不重視選民的意見者，有60.7%不認同政治人物會用心為一般百姓做事。p值檢定顯示兩者顯著相關。
## 變數年齡(AGE)與問題意識(Q7v)之間相關性微弱(Cramer's c=0.073)，p值為0.258，顯示受訪者年齡與對於政治人物的道德觀感，並沒有顯著影響。