研究動機

2018舉行高雄市長選舉，最終由韓國瑜當選，執政不滿一年後韓市長宣布要競選總統，引發高雄人不滿，聯署罷免韓市長。當時韓市長陣營呼籲其支持者不要前往投票，希望使用蓋牌來冷卻罷免活動。此外，台灣媒體日漸有政黨色彩，報導的內容逐漸有了特定立場，形成了不同政黨的支持者有特定喜好的新聞頻道，平日喜愛收看偏藍新聞台的民眾，理應會響應韓國瑜的號召不前往投票。本研究想透過分析高雄市長罷免案電訪，來檢驗是否真的有發生蓋牌效應，以及前往投票與否和平常收看新聞台之間的關聯性。

研究假設

假設一:支持國民黨的受訪者，沒有去投票。
假設二:平常收看偏藍電視台的受訪者，沒有去投票。

變數說明

本次資料分析選擇以是否有去投票罷免韓國市長為依變數(Q17)，自變數則以受訪者的政黨支持( Q28)，以及受訪者平常喜愛看的新聞台(NQ2)。

資料說明

這次實作分析資料是使用政大選舉研究中心的研究資料，受訪對象為設籍在臺灣地區戶籍在高雄市且年滿二十歲以上的成年人。
抽樣方法有二，第一是以電話簿抽樣法，以「中華電信住宅部107-108年版電話號碼簿」為母體清冊，依據高雄各區電話簿刊登的電話數佔高雄市所刊電話總數比例，決定各區抽出之電話數比例，以等距抽樣法抽出各區電話樣本後，為求涵蓋的完整性，再以隨機亂數修正電話號碼的最後二碼或四碼，以求接觸到未登錄電話的住宅戶。其二為利用利用政治大學選舉研究中心歷年所累積的電話號碼資料庫，先按照各縣市比例以機率與大小成比例抽樣法（Probabilities Proportional to Size，簡稱PPS）抽出局碼，再以隨機亂數產生電話號碼的最後四碼來製作電話樣本。
訪問期間自109年6月10日（星期三）至6月14日（星期日），本次訪問預定完成市話1100個樣本，經實際訪問完成1,106個有效樣本，以95%之信心水準估計，最大可能隨機抽樣誤差為：±2.95%。

讀取sav資料檔、描述與移除個資欄位

library(sjlabelled)
ED206462 <- read_spss("ED206462.sav") 
str(ED206462, list.len=3) # 為節省版面只顯示其中的五筆
## 'data.frame':    1106 obs. of  124 variables:
##  $ ID         : num  10001 10014 10030 10051 10063 ...
##   ..- 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
##   [list output truncated]
ED206462$TEL<-NULL

存成R專用的rda檔

save(ED206462, file="ED206462_raw.rda", compress=TRUE)

讀入R資料檔、觀察值、資料結構

load("ED206462_raw.rda")
nrow(ED206462)
str(ED206462)

變數及名稱

names(ED206462)

清理無效值

library(sjmisc)
ED206462 <-set_na(ED206462,na=c(91:99,"NA"))


依變數Q17:請問6月6日高雄市長罷免案，您有沒有去投票？

table(ED206462$Q17)
## 
##   1   2 
## 494 588
ED206462$Q17 <-rec(ED206462$Q17, rec ="1=0[Yes];2=1[No]", as.num = F )

library(sjPlot)
## Install package "strengejacke" from GitHub (`devtools::install_github("strengejacke/strengejacke")`) to load all sj-packages at once!
plot_frq(ED206462$Q17)

如上圖所示，從電訪資料中我們可以得知，在罷免韓市長一案上，前往投票的民眾共有494人，未前往投票的民眾共有588人。


自變數Q28:在國內的政黨之中，請問您認為您比較支持哪一個政黨？

table(ED206462$Q28)
## 
##   1   2   3   4   6   7  16  18  19  20  21  35  38 
## 204 259   5   3  45 308   2   1  48   1  32  23  34
ED206462$Q28 <- rec(ED206462$Q28, rec="1,3,4,6=1[KMT]; else=0[other]", as.num=F)

frq(ED206462$Q28)
## 
## 在國內的政黨之中，請問您認為您比較支持哪一個政黨？ (x) <categorical>
## # total N=1106  valid N=965  mean=0.27  sd=0.44
## 
## Value | Label |   N | Raw % | Valid % | Cum. %
## ----------------------------------------------
##     0 | other | 708 | 64.01 |   73.37 |  73.37
##     1 |   KMT | 257 | 23.24 |   26.63 | 100.00
##  <NA> |  <NA> | 141 | 12.75 |    <NA> |   <NA>
library(sjPlot)
plot_frq(ED206462$Q28)

如上圖所示，根據電訪資料，受訪的民眾當中共有257位民眾是支持國民黨，其餘708位民眾則支持其他政黨。


自變數Q2:請問您平常最常看哪一臺的電視新聞？

本研究在判定哪些電視台為偏藍營政黨，是基於社會大眾共同的看法，將臺視、中視、華視、TVBS、東森、中天歸類為偏藍電視台，其餘的則歸類為其他電視台。

table(ED206462$Q2)
## 
##   1   2   3   4   5   6   7   8   9  10  11  12  13  14  16  18 
##  29  36  11 112 178 123  72 124  48   2   7   7  18   1  50   7
ED206462$Q2 <-rec(ED206462$Q2, rec ="1,2,3,5,7,8=1[Blue];
                                     4,6,9,10,11,12,13,14,15,16=0[Others];",
                                     as.num = F)
library(sjPlot)
plot_frq(ED206462$Q2)

如上圖所示，根據電訪資料，受訪者中有450位民眾平日收看偏藍新聞台，368位民眾收看其他新聞台。


將完成變數編碼的資料檔存為rda格式

save(ED206462, file="ED206462_raw.rda", compress=TRUE)

用製表的方式描述變數

load("ED206462_raw.rda")
library(sjmisc)
frq(ED206462$Q17)
## 
## 請問6月6日高雄市長罷免案，您有沒有去投票？ (x) <categorical>
## # total N=1106  valid N=1082  mean=0.54  sd=0.50
## 
## Value | Label |   N | Raw % | Valid % | Cum. %
## ----------------------------------------------
##     0 |   Yes | 494 | 44.67 |   45.66 |  45.66
##     1 |    No | 588 | 53.16 |   54.34 | 100.00
##  <NA> |  <NA> |  24 |  2.17 |    <NA> |   <NA>
frq(ED206462$Q28)
## 
## 在國內的政黨之中，請問您認為您比較支持哪一個政黨？ (x) <categorical>
## # total N=1106  valid N=965  mean=0.27  sd=0.44
## 
## Value | Label |   N | Raw % | Valid % | Cum. %
## ----------------------------------------------
##     0 | other | 708 | 64.01 |   73.37 |  73.37
##     1 |   KMT | 257 | 23.24 |   26.63 | 100.00
##  <NA> |  <NA> | 141 | 12.75 |    <NA> |   <NA>
frq(ED206462$Q2)
## 
## 請問您平常最常看哪一臺的電視新聞？ (x) <categorical>
## # total N=1106  valid N=818  mean=0.55  sd=0.50
## 
## Value |  Label |   N | Raw % | Valid % | Cum. %
## -----------------------------------------------
##     0 | Others | 368 | 33.27 |   44.99 |  44.99
##     1 |   Blue | 450 | 40.69 |   55.01 | 100.00
##  <NA> |   <NA> | 288 | 26.04 |    <NA> |   <NA>

將變數上標籤及製表

## 
## Go vote (x) <categorical>
## # total N=1106  valid N=1082  mean=0.54  sd=0.50
## 
## Value | Label |   N | Raw % | Valid % | Cum. %
## ----------------------------------------------
##     0 |   Yes | 494 | 44.67 |   45.66 |  45.66
##     1 |    No | 588 | 53.16 |   54.34 | 100.00
##  <NA> |  <NA> |  24 |  2.17 |    <NA> |   <NA>
## 
## Party (x) <categorical>
## # total N=1106  valid N=965  mean=0.27  sd=0.44
## 
## Value | Label |   N | Raw % | Valid % | Cum. %
## ----------------------------------------------
##     0 |   KMT | 708 | 64.01 |   73.37 |  73.37
##     1 | Other | 257 | 23.24 |   26.63 | 100.00
##  <NA> |  <NA> | 141 | 12.75 |    <NA> |   <NA>
## 
## TV station (x) <categorical>
## # total N=1106  valid N=818  mean=0.55  sd=0.50
## 
## Value | Label |   N | Raw % | Valid % | Cum. %
## ----------------------------------------------
##     0 | Blues | 368 | 33.27 |   44.99 |  44.99
##     1 | other | 450 | 40.69 |   55.01 | 100.00
##  <NA> |  <NA> | 288 | 26.04 |    <NA> |   <NA>

製圖

plot_grpfrq(ED206462$Q17, ED206462$Q28,vjust = "center")

依上圖所示，在受訪民眾當中，有前往投票的民眾裡有399位民眾支持國民黨，31位支持其他政黨。沒有前往投票的民眾裡，有300位民眾支持國民黨，224位民眾支持其他政黨。

plot_grpfrq(ED206462$Q17, ED206462$Q2,vjust = "center")

依上圖所示，在受訪民眾當中，有前往投票的民眾裡有276位民眾平日會收看偏藍新聞台，110位平日會收看其他新聞台。沒有前往投票的民眾裡，有84位民眾平日會收看偏藍新聞台，332位平日會收看其他新聞台。

卡方檢定

Party Go vote Total
Yes No
KMT 399
57.1 %
92.8 % 		300
42.9 %
57.3 % 		699
100 %
73.3 %
Other 31
12.2 %
7.2 % 		224
87.8 %
42.7 % 		255
100 %
26.7 %
Total 430
45.1 %
100 % 		524
54.9 %
100 % 		954
100 %
100 %
χ2=150.503 · df=1 · φ=0.400 · p=0.000


依據卡方檢定顯示，受訪者當中有42.9%支持國民黨的民眾並未前往投票，有57.1%支持國民黨的人有去投票。此外，受訪者中支持其他政黨的有12.2%的民眾有去投票，有87.8%的民眾未去投票。 P value=0.000也就是P value<0.001，代表一千人當中有999人支持我的假設，也就是說是否有前往投票的確和民眾的政黨支持有關。


TV station Go vote Total
Yes No
Blues 276
76.7 %
71.5 % 		84
23.3 %
20.2 % 		360
100 %
44.9 %
other 110
24.9 %
28.5 % 		332
75.1 %
79.8 % 		442
100 %
55.1 %
Total 386
48.1 %
100 % 		416
51.9 %
100 % 		802
100 %
100 %
χ2=211.009 · df=1 · φ=0.515 · p=0.000


依據卡方檢定顯示，受訪者中平日收看偏藍新聞台的民眾有23.3%沒有前往投票，有去投票的有76.7%。平日收看其他電視台的民眾則有24.9%有去投票，有75.1%民眾平日收看其他電視台而沒去投票。 P value=0.000也就是P value<0.001，代表一千人當中有999人支持我的假設，也就是說是否有前往投票的確和平日收看哪類的新聞台有關。

模型一

library(carData)
model.1 <- glm(Q17 ~ Q28+Q2,
               data=ED206462,
               family=binomial)

summary(model.1) 
## 
## Call:
## glm(formula = Q17 ~ Q28 + Q2, family = binomial, data = ED206462)
## 
## Deviance Residuals: 
##     Min       1Q   Median       3Q      Max  
## -2.2913  -0.6433   0.3878   0.9572   1.8314  
## 
## Coefficients:
##             Estimate Std. Error z value Pr(>|z|)    
## (Intercept)  -1.4700     0.1436 -10.239  < 2e-16 ***
## Q281          2.0070     0.2555   7.855 4.01e-15 ***
## Q21           2.0128     0.1885  10.676  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 1001.9  on 723  degrees of freedom
## Residual deviance:  705.7  on 721  degrees of freedom
##   (382 observations deleted due to missingness)
## AIC: 711.7
## 
## Number of Fisher Scoring iterations: 5


從模型一可以得知，自變數Q28的第一個類別對於依變數有顯著的影響力，換句話說，比起其他政黨的民眾，支持國民黨的民眾比較不會去投票。 此外，自變數Q2的第一個類別對於依變數也有顯著的影響力，也就是說平日收看偏藍新聞台的民眾，比起收看其他新聞台的民眾較不會去投票。

結論

從本研究可以發現在罷免韓國瑜市長一案上，民眾的政黨支持與平時收看的新聞台，確實會影響其投票意願。透過回歸模型來驗證，支持國民黨的民眾與平日收看偏藍新聞台的民眾兩者傾向不去投票，並具有顯著性，本研究假設獲得資料上的支持。在罷免韓市長一案上，蓋牌策略確實有發揮作用，且一個人平常喜歡收看何種類型新聞台，的確會影響他的投票意願。