繪測政治新地貌–2024總統大選後中間選民與第三勢力的距離

Author

楊家宜

library(readr)
mdl<- read_csv("1479.csv")

New names:
Rows: 926 Columns: 56
── Column specification
──────────────────────────────────────────────────────── Delimiter: "," chr
(10): Job,
我最先想到的是：:說到「獨立」，你最先想到什麼？（可複選，最多選三個）...26,
近期臺美關係有階段性的躍進，同時也意味... dbl (46): Gender, Born year, EDU,
Curloc, Residence, 你覺得自己算不算是個不受黨派立場影響的選民？,...
ℹ Use `spec()` to retrieve the full column specification for this data. ℹ
Specify the column types or set `show_col_types = FALSE` to quiet this message.
• `我最先想到的是：:說到「獨立」，你最先想到什麼？（可複選，最多選三個）` ->
  `我最先想到的是：:說到「獨立」，你最先想到什麼？（可複選，最多選三個）...25`
• `我最先想到的是：:說到「獨立」，你最先想到什麼？（可複選，最多選三個）` ->
  `我最先想到的是：:說到「獨立」，你最先想到什麼？（可複選，最多選三個）...26`

varlabels <- colnames(mdl)

colnames(mdl)[1:56] <- paste("V", 1:56, sep="") 
sjlabelled::set_label(mdl) <- varlabels 
mdl <- sjmisc::set_na(mdl, na="NA")

varlabels

 [1] "Gender"                                                                                                                                                                               
 [2] "Born year"                                                                                                                                                                            
 [3] "EDU"                                                                                                                                                                                  
 [4] "Curloc"                                                                                                                                                                               
 [5] "Residence"                                                                                                                                                                            
 [6] "Job"                                                                                                                                                                                  
 [7] "你覺得自己算不算是個不受黨派立場影響的選民？"                                                                                                                                         
 [8] "你收到選舉公報後，有沒有好好看過？"                                                                                                                                                   
 [9] "你的交友圈內（含網路上），對這次總統大選的討論算不算熱絡呢？"                                                                                                                         
[10] "那你們對這次立委選舉的討論算不算熱絡呢？"                                                                                                                                             
[11] "姑且不論勝敗，你覺得這次的總統大選算不算是場好戲呢？"                                                                                                                                 
[12] "關於臺灣和中國（大陸）關係的走向，社會上有幾種不同的看法。你現在比較偏向哪一種？"                                                                                                     
[13] "「中華民國臺灣」是個國家:說到「獨立」，你最先想到什麼？（可複選，最多選三個）"                                                                                                        
[14] "「中華民國」是個主權國家:說到「獨立」，你最先想到什麼？（可複選，最多選三個）"                                                                                                        
[15] "領土上與中國（大陸）不相隸屬:說到「獨立」，你最先想到什麼？（可複選，最多選三個）"                                                                                                    
[16] "有自己的軍隊、司法、行政系統和國家符號（如：國旗、國歌）:說到「獨立」，你最先想到什麼？（可複選，最多選三個）"                                                                        
[17] "臺灣人自己的國家:說到「獨立」，你最先想到什麼？（可複選，最多選三個）"                                                                                                                
[18] "兩岸必然有戰爭:說到「獨立」，你最先想到什麼？（可複選，最多選三個）"                                                                                                                  
[19] "臺灣要切斷和中華民國的關係:說到「獨立」，你最先想到什麼？（可複選，最多選三個）"                                                                                                      
[20] "臺灣要切斷和中華人民共和國的關係:說到「獨立」，你最先想到什麼？（可複選，最多選三個）"                                                                                                
[21] "完全切斷與中國（大陸）有關的東西:說到「獨立」，你最先想到什麼？（可複選，最多選三個）"                                                                                                
[22] "中華人民共和國尊重與理解下，臺灣如國家般運作:說到「獨立」，你最先想到什麼？（可複選，最多選三個）"                                                                                    
[23] "自主和尊嚴:說到「獨立」，你最先想到什麼？（可複選，最多選三個）"                                                                                                                      
[24] "得到世界各國官方承認:說到「獨立」，你最先想到什麼？（可複選，最多選三個）"                                                                                                            
[25] "我最先想到的是：:說到「獨立」，你最先想到什麼？（可複選，最多選三個）...25"                                                                                                           
[26] "我最先想到的是：:說到「獨立」，你最先想到什麼？（可複選，最多選三個）...26"                                                                                                           
[27] "你覺得1949年中華人民共和國建國後的中國（大陸），算是下列哪一種情況？"                                                                                                                 
[28] "有人說：兩岸追求和平的最佳方式，是「在一中框架談判」，你覺得有沒有道理？"                                                                                                             
[29] "有網友認為：「中共軍機過了臺海中線，我國空軍就應該將之擊落」你認不認可這做法？"                                                                                                       
[30] "近期臺美關係有階段性的躍進，同時也意味著兩岸關係緊張，請問你對於北京的自我克制有多大信心？（如果有其它想法，歡迎填寫再下方框框裡噢！）"                                               
[31] "近期臺美關係有階段性的躍進，同時也意味著兩岸關係緊張，請問你對於北京的自我克制有多大信心？（如果有其它想法，歡迎填寫再下方框框裡噢！）: Comments"                                     
[32] "說到「中國人」你想到什麼？ 請選一個能反映你想法的選項。"                                                                                                                              
[33] "我想到的是：:說到「中國人」你想到什麼？ 請選一個能反映你想法的選項。"                                                                                                                 
[34] "「兩岸民眾都是中國人」這句話你覺得合不合理？"                                                                                                                                         
[35] "你覺得我國中央政府不再強調「一個中國」，這是不是個值得讚許的方向？"                                                                                                                   
[36] "與中國（大陸）談統一，對你來說是不是個可以放入公民投票的議題？"                                                                                                                       
[37] "與中國（大陸）談統一這件事，對你來說算不算個熱切盼望，希望政府推進的事？"                                                                                                             
[38] "臺灣的宣布建國獨立（與中華民國切清關係），對你來說是不是個可以放入公民投票的議題？"                                                                                                   
[39] "有人說臺灣已經是個獨立的國家，你是否同意？"                                                                                                                                           
[40] "我覺得是這狀況：:有人說臺灣已經是個獨立的國家，你是否同意？"                                                                                                                          
[41] "臺灣的宣布建國，對你來說算不算個熱切盼望、希望政府推進的事？"                                                                                                                         
[42] "我國新版護照封面在2021年啟用。跟過去一版相比（左邊），你喜不喜歡新的這版（右邊）？（圖片來源：https://reurl.cc/A0v6p8）"                                                              
[43] "這次2024年1月13日的大選，你的總統票投給了哪一組候選人？"                                                                                                                              
[44] "就你所知，跟你同住的家人呢？他們投的對象跟你一樣不一樣？"                                                                                                                             
[45] "這次的總統大選結果，跟你在投票日前夕的預期，算是一致？還是覺得意外？"                                                                                                                 
[46] "整體來說，你會給蔡英文總統團隊2020年來的執政表現打幾分？ （從0到100分，預設值為及格。愈肯定請向右拉；愈不肯定請向左邊拉。）"                                                          
[47] "那區域立法委員，你投給了哪一個政黨的候選人？"                                                                                                                                         
[48] "我投的是這個政黨的立委候選人：:那區域立法委員，你投給了哪一個政黨的候選人？"                                                                                                          
[49] "這位區域立委候選人，後來當選了嗎？"                                                                                                                                                   
[50] "這個區域立委選舉的結果，跟您在投票日前夕的預期，算是一致還是覺得意外？"                                                                                                               
[51] "這次大選的政黨票，你投給了哪一個政黨？"                                                                                                                                               
[52] "我投的是這個政黨：:這次大選的政黨票，你投給了哪一個政黨？"                                                                                                                            
[53] "那麼，整體立法院席次誰佔多數，跟您在投票日前夕的預期，算是一致還是覺得意外？"                                                                                                         
[54] "選舉結束後到現在，以下那一個最能形容你對國家現狀的心情呢？"                                                                                                                           
[55] "我的心情是:選舉結束後到現在，以下那一個最能形容你對國家現狀的心情呢？"                                                                                                                
[56] "最後，你對於520即將就任，要來為國家掌舵的新任總統與國會議員們有什麼期待想告訴他們？什麼是你很希望他們趕快挽袖起來做的事呢？請留言跟小熊社群一起分享！（非必填，若沒有請直接按下一頁）"

library(sjmisc)
library(sjPlot)
names(mdl)

 [1] "V1"  "V2"  "V3"  "V4"  "V5"  "V6"  "V7"  "V8"  "V9"  "V10" "V11" "V12"
[13] "V13" "V14" "V15" "V16" "V17" "V18" "V19" "V20" "V21" "V22" "V23" "V24"
[25] "V25" "V26" "V27" "V28" "V29" "V30" "V31" "V32" "V33" "V34" "V35" "V36"
[37] "V37" "V38" "V39" "V40" "V41" "V42" "V43" "V44" "V45" "V46" "V47" "V48"
[49] "V49" "V50" "V51" "V52" "V53" "V54" "V55" "V56"

###學歷專科以下編碼為低學歷，大學以上編碼為高學歷。

mdl$V3r <- rec(mdl$V3, rec="1:4=0[低]; 5:6=1[高]", as.num=F) 
frq(mdl$V3)

EDU (x) <numeric> 
# total N=926 valid N=926 mean=4.79 sd=1.00

Value |   N | Raw % | Valid % | Cum. %
--------------------------------------
    1 |   5 |  0.54 |    0.54 |   0.54
    2 |  20 |  2.16 |    2.16 |   2.70
    3 | 106 | 11.45 |   11.45 |  14.15
    4 |  91 |  9.83 |    9.83 |  23.97
    5 | 513 | 55.40 |   55.40 |  79.37
    6 | 191 | 20.63 |   20.63 | 100.00
 <NA> |   0 |  0.00 |    <NA> |   <NA>

frq(mdl$V3r)

EDU (x) <categorical> 
# total N=926 valid N=926 mean=0.76 sd=0.43

Value | Label |   N | Raw % | Valid % | Cum. %
----------------------------------------------
    0 |    低 | 222 | 23.97 |   23.97 |  23.97
    1 |    高 | 704 | 76.03 |   76.03 | 100.00
 <NA> |  <NA> |   0 |  0.00 |    <NA> |   <NA>

plot_frq(mdl$V3r)

###身份認同

你覺得自己算不算是個不受黨派立場影響的選民？

mdl$V7r <- rec(mdl$V7, rec="1=1[是]; 2:4=0[不是]", as.num=F) 
frq(mdl$V7)

你覺得自己算不算是個不受黨派立場影響的選民？ (x) <numeric> 
# total N=926 valid N=926 mean=2.00 sd=1.01

Value |   N | Raw % | Valid % | Cum. %
--------------------------------------
    1 | 384 | 41.47 |   41.47 |  41.47
    2 | 251 | 27.11 |   27.11 |  68.57
    3 | 200 | 21.60 |   21.60 |  90.17
    4 |  91 |  9.83 |    9.83 | 100.00
 <NA> |   0 |  0.00 |    <NA> |   <NA>

frq(mdl$V7r)

你覺得自己算不算是個不受黨派立場影響的選民？ (x) <categorical> 
# total N=926 valid N=926 mean=0.41 sd=0.49

Value | Label |   N | Raw % | Valid % | Cum. %
----------------------------------------------
    0 |  不是 | 542 | 58.53 |   58.53 |  58.53
    1 |    是 | 384 | 41.47 |   41.47 | 100.00
 <NA> |  <NA> |   0 |  0.00 |    <NA> |   <NA>

plot_frq(mdl$V7r)

###政見關注

你收到選舉公報後，有沒有好好看過？

mdl$V8r <- rec(mdl$V8, rec="1:2=1[關注]; 3:4=0[不關注]", as.num=F) 
frq(mdl$V8)

你收到選舉公報後，有沒有好好看過？ (x) <numeric> 
# total N=926 valid N=926 mean=2.25 sd=1.00

Value |   N | Raw % | Valid % | Cum. %
--------------------------------------
    1 | 199 | 21.49 |   21.49 |  21.49
    2 | 478 | 51.62 |   51.62 |  73.11
    3 |  70 |  7.56 |    7.56 |  80.67
    4 | 179 | 19.33 |   19.33 | 100.00
 <NA> |   0 |  0.00 |    <NA> |   <NA>

frq(mdl$V8r)

你收到選舉公報後，有沒有好好看過？ (x) <categorical> 
# total N=926 valid N=926 mean=0.73 sd=0.44

Value |  Label |   N | Raw % | Valid % | Cum. %
-----------------------------------------------
    0 | 不關注 | 249 | 26.89 |   26.89 |  26.89
    1 |   關注 | 677 | 73.11 |   73.11 | 100.00
 <NA> |   <NA> |   0 |  0.00 |    <NA> |   <NA>

plot_frq(mdl$V8r)

###統獨意識

關於臺灣和中國（大陸）關係的走向，社會上有幾種不同的看法。你現在比較偏向哪一種？

mdl$V12r <- rec(mdl$V12, rec="1,3=1[統一]; 2,4=2[獨立]; 5,6=0[維持現狀]", as.num=F) 
frq(mdl$V12)

關於臺灣和中國（大陸）關係的走向，社會上有幾種不同的看法。你現在比較偏向哪一種？ (x) <numeric> 
# total N=926 valid N=926 mean=4.32 sd=1.25

Value |   N | Raw % | Valid % | Cum. %
--------------------------------------
    1 |  14 |  1.51 |    1.51 |   1.51
    2 |  91 |  9.83 |    9.83 |  11.34
    3 |  77 |  8.32 |    8.32 |  19.65
    4 | 341 | 36.83 |   36.83 |  56.48
    5 | 211 | 22.79 |   22.79 |  79.27
    6 | 192 | 20.73 |   20.73 | 100.00
 <NA> |   0 |  0.00 |    <NA> |   <NA>

frq(mdl$V12r)

關於臺灣和中國（大陸）關係的走向，社會上有幾種不同的看法。你現在比較偏向哪一種？ (x) <categorical> 
# total N=926 valid N=926 mean=1.03 sd=0.95

Value |    Label |   N | Raw % | Valid % | Cum. %
-------------------------------------------------
    0 | 維持現狀 | 403 | 43.52 |   43.52 |  43.52
    1 |     統一 |  91 |  9.83 |    9.83 |  53.35
    2 |     獨立 | 432 | 46.65 |   46.65 | 100.00
 <NA> |     <NA> |   0 |  0.00 |    <NA> |   <NA>

plot_frq(mdl$V12r)

###政黨屬性

這次大選的政黨票，你投給了哪一個政黨？

mdl$V51r <- rec(mdl$V51, rec="1,5,7=1[藍]; 2,3=2[綠]; 4,6=0[第三勢力]", as.num=F) 
frq(mdl$V51)

這次大選的政黨票，你投給了哪一個政黨？ (x) <numeric> 
# total N=926 valid N=926 mean=6.71 sd=14.46

Value |   N | Raw % | Valid % | Cum. %
--------------------------------------
    1 | 182 | 19.65 |   19.65 |  19.65
    2 | 239 | 25.81 |   25.81 |  45.46
    3 |  19 |  2.05 |    2.05 |  47.52
    4 |  58 |  6.26 |    6.26 |  53.78
    5 |   8 |  0.86 |    0.86 |  54.64
    6 | 212 | 22.89 |   22.89 |  77.54
    7 |   2 |  0.22 |    0.22 |  77.75
    8 |  25 |  2.70 |    2.70 |  80.45
    9 | 155 | 16.74 |   16.74 |  97.19
   90 |  26 |  2.81 |    2.81 | 100.00
 <NA> |   0 |  0.00 |    <NA> |   <NA>

frq(mdl$V51r)

這次大選的政黨票，你投給了哪一個政黨？ (x) <categorical> 
# total N=926 valid N=720 mean=0.98 sd=0.86

Value |    Label |   N | Raw % | Valid % | Cum. %
-------------------------------------------------
    0 | 第三勢力 | 270 | 29.16 |   37.50 |  37.50
    1 |       藍 | 192 | 20.73 |   26.67 |  64.17
    2 |       綠 | 258 | 27.86 |   35.83 | 100.00
 <NA> |     <NA> | 206 | 22.25 |    <NA> |   <NA>

plot_frq(mdl$V51r)

library(dplyr)


Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

library(FactoMineR)

Warning: package 'FactoMineR' was built under R version 4.5.3

library(factoextra)

Warning: package 'factoextra' was built under R version 4.5.3

Loading required package: ggplot2


Attaching package: 'ggplot2'

The following object is masked from 'package:sjPlot':

    set_theme

Welcome to factoextra!

Want to learn more? See two factoextra-related books at https://www.datanovia.com/en/product/practical-guide-to-principal-component-methods-in-r/

mdlMCA <- select (mdl,V3r,V7r,V8r,V12r,V51r)
mdlMCA.nona <- na.omit(mdlMCA)
nrow(mdlMCA.nona) # 629

[1] 720

names(mdlMCA.nona)

[1] "V3r"  "V7r"  "V8r"  "V12r" "V51r"

res<-MCA(mdlMCA.nona, ncp=5, graph= F) 
fviz_screeplot(res, ncp=10)

plot(res, axes=c(1, 2), new.plot=TRUE, 
     col.var="red", col.ind="black", col.ind.sup="black",
     col.quali.sup="darkgreen", col.quanti.sup="blue",
     label=c("var"), cex=0.8, 
     selectMod = "cos2",
     invisible=c("ind", "quali.sup"), 
     autoLab = "yes",
     title="")