總統大選

總統大選MCA分析

library(readr)
library(sjmisc)
Learn more about sjmisc with 'browseVignettes("sjmisc")'.
ele <- read_csv("../a1479.csv", 
                locale = locale(encoding = "UTF8"))
New names:
• `我最先想到的是：:說到「獨立」，你最先想到什麼？（可複選，最多選三個）` ->
  `我最先想到的是：:說到「獨立」，你最先想到什麼？（可複選，最多選三個）...25`
• `我最先想到的是：:說到「獨立」，你最先想到什麼？（可複選，最多選三個）` ->
  `我最先想到的是：:說到「獨立」，你最先想到什麼？（可複選，最多選三個）...26`
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.
library(sjlabelled)
library(sjmisc)
# 取出變數名稱當作變數標籤
varlabels <- colnames(ele)
# 為變數名稱裝上標籤
sjlabelled::set_label(ele) <- varlabels 
# 批次清理無效值
ele <- sjmisc::set_na(ele, na="NA")



ele$a6 <- rec(ele$"關於臺灣和中國（大陸）關係的走向，社會上有幾種不同的看法。你現在比較偏向哪一種？", rec="1,3=1[走向統一]; 2,4=2[走向獨立]; 5,6=3[維持現狀]", 
                    as.num = F, var.label="關於臺灣和中國（大陸）關係的走向，社會上有幾種不同的看法。你現在
                    比較偏向哪一種？" )

ele$a6<- as.factor(ele$a6)

ele$a18<- rec(ele$"有人說臺灣已經是個獨立的國家，你是否同意？", rec="1=1[不同意，還沒建國]; 2=2[同意，已經是個國家（國號是中華民國）]; 3=3[同意，已經是個國家（國號是中華民國臺灣）];
            4=4[同意，已經是個國家（國號是臺灣）]; else=5[其他]", 
            as.num = F, var.label="有人說臺灣已經是個獨立的國家，你是否同意？？" )

ele$a18<- as.factor(ele$a18)

ele$a21<- rec(ele$"這次2024年1月13日的大選，你的總統票投給了哪一組候選人？",
              rec="1=1[賴清德、蕭美琴]; 2=2[候友宜、趙少康]; 3=3[柯文哲、吳欣盈]; else=4[無效]", 
             as.num = F, var.label="這次2024年1月13日的大選，你的總統票投給了哪一
組候選人？" )
ele$a21<- as.factor(ele$a21)

ele$a25<-rec(ele$"那區域立法委員，你投給了哪一個政黨的候選人？", rec="1=1[國民黨]; 2=2[民進黨]; 3=3[民眾黨]; 4=4[時代力量]; else=5[其他]", 
            as.num = F, var.label="那區域立法委員，你投給了哪一個政黨的候選人？" )
ele$a25<- as.factor(ele$a25)

ele$a28<-rec(ele$"這次大選的政黨票，你投給了哪一個政黨？", rec="1=1[國民黨]; 2=2[民進黨]; 6=3[民眾黨]; 4=4[時代力量]; else=5[其他]", 
            as.num = F, var.label="這次大選的政黨票，你投給了哪一個政黨？" )
ele$a28<- as.factor(ele$a28)

ele$gender<- rec(ele$Gender, rec="1=1[男]; 0=2[女]", 
                 as.num = F, var.label="性別" )
ele$gender<- as.factor(ele$gender)

save(ele, file="ele.rda")
library(dplyr)

Attaching package: 'dplyr'
The following object is masked from 'package:sjlabelled':

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

    filter, lag
The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union
load("ele.rda")
eleforMCA<- select(ele, c(# 核心變數 (core vars)
  a6,a18,a21,a25,a28,gender
)) 
eleforMCA <- na.omit(eleforMCA)
library(sjPlot)
sjPlot::set_theme(theme.font="PingFang TC")


library(FactoMineR)
library(factoextra)
Loading required package: ggplot2

Attaching package: 'ggplot2'
The following object is masked from 'package:sjlabelled':

    as_label
Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa
res<- MCA(eleforMCA, ncp=6, graph= F) 
#ncp 為主觀定的維次個數
#quanti 輔助連續變數
#quali 輔助類別變數
fviz_screeplot(res, ncp=14) 

library(corrplot) 
corrplot 0.92 loaded
corrplot(res$var$cos2, is.corr=FALSE, tl.cex=.6)

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 30",  #共52個變數
     invisible=c("ind", "quali.sup"), 
     xlim=c(-1.5,2), ylim=c(-1,2), 
     autoLab = "yes",
     # title="Top 30 Critical Elements on the MCA Factor Map") 
     title="") 

library(sjPlot)
tab_xtab(ele$a21,　ele$a6, encoding="utf8", 
         show.row.prc = TRUE, # 顯示列百分比
         show.col.prc = TRUE, # 顯示欄百分比
         show.na = FALSE, # 不顯示無效值（預設）
         show.legend = FALSE, # 不顯示圖示（預設）
         show.exp = FALSE,  # 不顯示期望值 （預設）
         show.cell.prc = FALSE,   # 不顯示細格的百分比 （預設）
         tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
         tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)
這次2024年1月13日的大選，你的總統票投給了哪一
組候選人？		 關於臺灣和中國（大陸）關係的走向，社會上有幾種不同的看法。你現在

比較偏向哪一種？		 Total
走向統一 走向獨立 維持現狀
賴清德、蕭美琴 13
4.2 %
14.3 %		 225
72.6 %
52.1 %		 72
23.2 %
17.9 %		 310
100 %
33.5 %
候友宜、趙少康 45
24.9 %
49.5 %		 25
13.8 %
5.8 %		 111
61.3 %
27.5 %		 181
100 %
19.5 %
柯文哲、吳欣盈 18
7.3 %
19.8 %		 107
43.5 %
24.8 %		 121
49.2 %
30 %		 246
100 %
26.6 %
無效 15
7.9 %
16.5 %		 75
39.7 %
17.4 %		 99
52.4 %
24.6 %		 189
100 %
20.4 %
Total 91
9.8 %
100 %		 432
46.7 %
100 %		 403
43.5 %
100 %		 926
100 %
100 %
χ2=190.665 · df=6 · Cramer's V=0.321 · p=0.000 
library(sjPlot)
tab_xtab(ele$a21,　ele$a18, encoding="utf8", 
         show.row.prc = TRUE, # 顯示列百分比
         show.col.prc = T
         , # 顯示欄百分比
         show.na = FALSE, # 不顯示無效值（預設）
         show.legend = FALSE, # 不顯示圖示（預設）
         show.exp = FALSE,  # 不顯示期望值 （預設）
         show.cell.prc = FALSE,   # 不顯示細格的百分比 （預設）
         tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
         tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)
這次2024年1月13日的大選，你的總統票投給了哪一
組候選人？		 有人說臺灣已經是個獨立的國家，你是否同意？？ Total
不同意，還沒建國 同意，已經是個國家（國號是中華民國） 同意，已經是個國家（國號是中華民國臺灣） 同意，已經是個國家（國號是臺灣） 其他
賴清德、蕭美琴 38
12.3 %
32.2 %		 109
35.2 %
25.6 %		 63
20.3 %
37.7 %		 8
2.6 %
50 %		 92
29.7 %
46 %		 310
100 %
33.5 %
候友宜、趙少康 31
17.1 %
26.3 %		 116
64.1 %
27.3 %		 18
9.9 %
10.8 %		 1
0.6 %
6.2 %		 15
8.3 %
7.5 %		 181
100 %
19.5 %
柯文哲、吳欣盈 28
11.4 %
23.7 %		 109
44.3 %
25.6 %		 58
23.6 %
34.7 %		 3
1.2 %
18.8 %		 48
19.5 %
24 %		 246
100 %
26.6 %
無效 21
11.1 %
17.8 %		 91
48.1 %
21.4 %		 28
14.8 %
16.8 %		 4
2.1 %
25 %		 45
23.8 %
22.5 %		 189
100 %
20.4 %
Total 118
12.7 %
100 %		 425
45.9 %
100 %		 167
18 %
100 %		 16
1.7 %
100 %		 200
21.6 %
100 %		 926
100 %
100 %
χ2=65.890 · df=12 · Cramer's V=0.154 · Fisher's p=0.000 
library(sjPlot)
tab_xtab(ele$a21,　ele$a25, encoding="utf8", 
         show.row.prc = TRUE, # 顯示列百分比
         show.col.prc = TRUE, # 顯示欄百分比
         show.na = FALSE, # 不顯示無效值（預設）
         show.legend = FALSE, # 不顯示圖示（預設）
         show.exp = FALSE,  # 不顯示期望值 （預設）
         show.cell.prc = FALSE,   # 不顯示細格的百分比 （預設）
         tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
         tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)
這次2024年1月13日的大選，你的總統票投給了哪一
組候選人？		 那區域立法委員，你投給了哪一個政黨的候選人？ Total
國民黨 民進黨 民眾黨 其他
賴清德、蕭美琴 14
4.5 %
5.8 %		 252
81.3 %
80.3 %		 12
3.9 %
12.5 %		 32
10.3 %
12.6 %		 310
100 %
34.3 %
候友宜、趙少康 148
81.8 %
61.7 %		 9
5 %
2.9 %		 10
5.5 %
10.4 %		 14
7.7 %
5.5 %		 181
100 %
20 %
柯文哲、吳欣盈 71
28.9 %
29.6 %		 43
17.5 %
13.7 %		 68
27.6 %
70.8 %		 64
26 %
25.3 %		 246
100 %
27.2 %
無效 7
4.2 %
2.9 %		 10
6 %
3.2 %		 6
3.6 %
6.2 %		 143
86.1 %
56.5 %		 166
100 %
18.4 %
Total 240
26.6 %
100 %		 314
34.8 %
100 %		 96
10.6 %
100 %		 253
28 %
100 %		 903
100 %
100 %
χ2=949.831 · df=9 · Cramer's V=0.592 · p=0.000 
library(sjPlot)
tab_xtab(ele$a21,　ele$a28, encoding="utf8", 
         show.row.prc = TRUE, # 顯示列百分比
         show.col.prc = TRUE, # 顯示欄百分比
         show.na = FALSE, # 不顯示無效值（預設）
         show.legend = FALSE, # 不顯示圖示（預設）
         show.exp = FALSE,  # 不顯示期望值 （預設）
         show.cell.prc = FALSE,   # 不顯示細格的百分比 （預設）
         tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
         tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)
這次2024年1月13日的大選，你的總統票投給了哪一
組候選人？		 這次大選的政黨票，你投給了哪一個政黨？ Total
國民黨 民進黨 民眾黨 時代力量 其他
賴清德、蕭美琴 8
2.6 %
4.4 %		 217
70 %
90.8 %		 24
7.7 %
11.3 %		 29
9.4 %
50 %		 32
10.3 %
13.6 %		 310
100 %
33.5 %
候友宜、趙少康 145
80.1 %
79.7 %		 5
2.8 %
2.1 %		 14
7.7 %
6.6 %		 1
0.6 %
1.7 %		 16
8.8 %
6.8 %		 181
100 %
19.5 %
柯文哲、吳欣盈 25
10.2 %
13.7 %		 13
5.3 %
5.4 %		 163
66.3 %
76.9 %		 21
8.5 %
36.2 %		 24
9.8 %
10.2 %		 246
100 %
26.6 %
無效 4
2.1 %
2.2 %		 4
2.1 %
1.7 %		 11
5.8 %
5.2 %		 7
3.7 %
12.1 %		 163
86.2 %
69.4 %		 189
100 %
20.4 %
Total 182
19.7 %
100 %		 239
25.8 %
100 %		 212
22.9 %
100 %		 58
6.3 %
100 %		 235
25.4 %
100 %		 926
100 %
100 %
χ2=1416.784 · df=12 · Cramer's V=0.714 · p=0.000 
library(sjPlot)
tab_xtab(ele$a21,　ele$gender, encoding="utf8", 
         show.row.prc = TRUE, # 顯示列百分比
         show.col.prc = TRUE, # 顯示欄百分比
         show.na = FALSE, # 不顯示無效值（預設）
         show.legend = FALSE, # 不顯示圖示（預設）
         show.exp = FALSE,  # 不顯示期望值 （預設）
         show.cell.prc = FALSE,   # 不顯示細格的百分比 （預設）
         tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
         tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)
這次2024年1月13日的大選，你的總統票投給了哪一
組候選人？		 性別 Total
男 女
賴清德、蕭美琴 151
48.7 %
32.5 %		 159
51.3 %
34.4 %		 310
100 %
33.5 %
候友宜、趙少康 98
54.1 %
21.1 %		 83
45.9 %
18 %		 181
100 %
19.5 %
柯文哲、吳欣盈 139
56.5 %
30 %		 107
43.5 %
23.2 %		 246
100 %
26.6 %
無效 76
40.2 %
16.4 %		 113
59.8 %
24.5 %		 189
100 %
20.4 %
Total 464
50.1 %
100 %		 462
49.9 %
100 %		 926
100 %
100 %
χ2=12.851 · df=3 · Cramer's V=0.118 · p=0.005