tw dem

政治碩一 M146020007 陳弘意

壹、Why doing this case?

一、研究動機與背景

在 2025 年的現今，面對兩岸的衝突升高、政黨對立引發對政府的不信任感，以及面對關稅等經濟議題帶來的不確定性，我觀察到輿論逐漸出現對於民主制度的批評，甚至有人對中國的制度慢慢懷抱憧憬。

這樣的情況不僅出現在台灣，放眼國際，也出現了如極右派當選等現象，可視為自二戰後民主所面臨的最大挑戰之一。這促使我想更深入了解：民主制度與政府治理在台灣是否仍為多數民眾所接受。

---

二、研究目的與資料來源

因此，我希望能以「2025 台灣民主價值與治理」這份資料作為本學期的研究素材。該問卷調查訪問了被抽樣的台灣民眾，內容包含對民主體制的信任度、兩岸關係對國家安全的看法，以及對現今政府治理的滿意度等。

我計畫透過 R 語言與課堂中學到的資料分析技巧，進行統計分析與視覺化，相信能對理解上述議題提供實質的助益。

---

三、研究變數與分析方向

在本研究中，我將聚焦於受訪民眾的三項主要變數：

• 政黨傾向
• 對中態度
• 對民主政治的滿意度

選擇這三個變數的原因是，當前台灣的政黨差異主要集中於對中態度。受訪者的對中立場，往往會影響其政黨傾向；而對民主政治的認知與滿意度，也可能形塑其對中態度的差異。

因此，本研究將透過這三個變數，分析台灣民眾對民主與政府治理的態度是否受到這些因素的影響。

# 貳、讀取資料
1 | 幾乎不會 | 40 | 3.28 | 3.28 | 3.28 2 | 有一點會 | 228 | 18.72 | 18.72 | 22.00 3 | 危害很大 | 877 | 72.00 | 72.00 | 94.01 95 | 拒答 | 3 | 0.25 | 0.25 | 94.25 96 | 看情形 | 8 | 0.66 | 0.66 | 94.91 97 | 無意見 | 6 | 0.49 | 0.49 | 95.40 98 | 不知道 | 56 | 4.60 | 4.60 | 100.00 | | 0 | 0.00 | | ```
:::
{.r .cell-code} demo25$Q2r <- rec(demo25$Q2, rec="1=1[幾乎不會];2=2[有一點會];3=3[危害很大]; else=NA") frq(demo25$Q2r)
::: {.cell-output .cell-output-stdout}
``` 請問您認為假消息與資訊操弄會不會危害臺灣民主政治的發展？是幾乎不會、有一點會、還是危害很大？ (x) # total N=1218 valid N=1145 mean=2.73 sd=0.52
Value | Label | N | Raw % | Valid % | Cum. %

1 | 幾乎不會 |  40 |  3.28 |    3.49 |   3.49
2 | 有一點會 | 228 | 18.72 |   19.91 |  23.41
3 | 危害很大 | 877 | 72.00 |   76.59 | 100.00

| | 73 | 5.99 | |

:::

```{.r .cell-code}
#Q4 有人說：「大多數的假消息與資訊操弄是從中國來的」，請問您同不同意這種說法？
#(01)非常不同意(02)不同意(03)同意((04)非常同意(96)看情形(97)無意見(98)不知道(95)拒答
frq(demo25$Q4)

有人說：「大多數的假消息與資訊操弄是從中國來的」，請問您同不同意這種說法？ (x) <categorical> 
# total N=1218 valid N=1218 mean=12.91 sd=29.98

Value |      Label |   N | Raw % | Valid % | Cum. %
---------------------------------------------------
    1 | 非常不同意 | 257 | 21.10 |   21.10 |  21.10
    2 |     不同意 | 427 | 35.06 |   35.06 |  56.16
    3 |       同意 | 225 | 18.47 |   18.47 |  74.63
    4 |   非常同意 | 173 | 14.20 |   14.20 |  88.83
   95 |       拒答 |   6 |  0.49 |    0.49 |  89.33
   96 |     看情形 |  23 |  1.89 |    1.89 |  91.22
   97 |     無意見 |  17 |  1.40 |    1.40 |  92.61
   98 |     不知道 |  90 |  7.39 |    7.39 | 100.00
 <NA> |       <NA> |   0 |  0.00 |    <NA> |   <NA>

demo25$Q4r <- rec(demo25$Q4, 
                     rec="1=1[非常不同意];2=2[不同意];3=3[同意]; 4=4[非常同意];else=NA")

frq(demo25$Q4r)

有人說：「大多數的假消息與資訊操弄是從中國來的」，請問您同不同意這種說法？ (x) <numeric> 
# total N=1218 valid N=1082 mean=2.29 sd=1.00

Value |      Label |   N | Raw % | Valid % | Cum. %
---------------------------------------------------
    1 | 非常不同意 | 257 | 21.10 |   23.75 |  23.75
    2 |     不同意 | 427 | 35.06 |   39.46 |  63.22
    3 |       同意 | 225 | 18.47 |   20.79 |  84.01
    4 |   非常同意 | 173 | 14.20 |   15.99 | 100.00
 <NA> |       <NA> | 136 | 11.17 |    <NA> |   <NA>

sjt.xtab(demo25$Q2r, demo25$Q4r) #製表

請問您認為假消息與資訊操弄會不會危害臺灣民主政治的發展？是幾乎不會、有一點會、還是危害很大？	有人說：「大多數的假消息與資訊操弄是從中國來的」，請問您同不同意這種說法？				Total
	非常不同意	不同意	同意	非常同意
幾乎不會	10	17	8	3	38
有一點會	29	122	45	11	207
危害很大	211	269	169	159	808
Total	250	408	222	173	1053
χ2=61.110 · df=6 · Cramer's V=0.170 · p=0.000

options(viewer = NULL)


##這樣的結果顯示，大多數人認為，假消息對於臺灣民主是具有「重大危害的」，但其中，近6成並不認為多數假消息是「來自中國」。

:::

#B.Q5、Q6、Q7、Q8、Q12 民主政治的看法與政府信任度

#Q5 有人說：「民主也許會有問題，但還是一個最好的制度」，請問您同不同意這種說法？
#(01)非常不同意(02)不同意(03)同意(04)非常同意
#(96)看情形(97)無意見(98)不知道(95)拒答
frq(demo25$Q5)

有人說：「民主也許會有問題，但還是一個最好的制度」，請問您同不同意這種說法？ (x) <categorical> 
# total N=1218 valid N=1218 mean=10.17 sd=24.68

Value |      Label |   N | Raw % | Valid % | Cum. %
---------------------------------------------------
    1 | 非常不同意 |  39 |  3.20 |    3.20 |   3.20
    2 |     不同意 | 117 |  9.61 |    9.61 |  12.81
    3 |       同意 | 551 | 45.24 |   45.24 |  58.05
    4 |   非常同意 | 421 | 34.56 |   34.56 |  92.61
   95 |       拒答 |   2 |  0.16 |    0.16 |  92.78
   96 |     看情形 |  14 |  1.15 |    1.15 |  93.92
   97 |     無意見 |  14 |  1.15 |    1.15 |  95.07
   98 |     不知道 |  60 |  4.93 |    4.93 | 100.00
 <NA> |       <NA> |   0 |  0.00 |    <NA> |   <NA>

demo25$Q5r <- rec(demo25$Q5, 
                     rec="1=1[非常不同意];2=2[不同意];3=3[同意]; 4=4[非常同意];else=NA")

frq(demo25$Q5r)

有人說：「民主也許會有問題，但還是一個最好的制度」，請問您同不同意這種說法？ (x) <numeric> 
# total N=1218 valid N=1128 mean=3.20 sd=0.76

Value |      Label |   N | Raw % | Valid % | Cum. %
---------------------------------------------------
    1 | 非常不同意 |  39 |  3.20 |    3.46 |   3.46
    2 |     不同意 | 117 |  9.61 |   10.37 |  13.83
    3 |       同意 | 551 | 45.24 |   48.85 |  62.68
    4 |   非常同意 | 421 | 34.56 |   37.32 | 100.00
 <NA> |       <NA> |  90 |  7.39 |    <NA> |   <NA>

#Q6 整體而言，請問您對於目前臺灣民主政治實行的情形滿不滿意？
#(01)非常不滿意(02)不滿意(03)滿意(04)非常滿意
#(96)看情形(97)無意見(98)不知道(95)拒答
frq(demo25$Q6)

整體而言，請問您對於目前臺灣民主政治實行的情形滿不滿意？ (x) <categorical> 
# total N=1218 valid N=1218 mean=8.78 sd=23.94

Value |      Label |   N | Raw % | Valid % | Cum. %
---------------------------------------------------
    1 | 非常不滿意 | 278 | 22.82 |   22.82 |  22.82
    2 |     不滿意 | 329 | 27.01 |   27.01 |  49.84
    3 |       滿意 | 427 | 35.06 |   35.06 |  84.89
    4 |   非常滿意 | 101 |  8.29 |    8.29 |  93.19
   95 |       拒答 |   6 |  0.49 |    0.49 |  93.68
   96 |     看情形 |  15 |  1.23 |    1.23 |  94.91
   97 |     無意見 |  19 |  1.56 |    1.56 |  96.47
   98 |     不知道 |  43 |  3.53 |    3.53 | 100.00
 <NA> |       <NA> |   0 |  0.00 |    <NA> |   <NA>

demo25$Q6r <- rec(demo25$Q6, 
                     rec="1=1[非常不滿意];2=2[不滿意];3=3[滿意];4=4[非常滿意];else=NA")

frq(demo25$Q6r)

整體而言，請問您對於目前臺灣民主政治實行的情形滿不滿意？ (x) <numeric> 
# total N=1218 valid N=1135 mean=2.31 sd=0.94

Value |      Label |   N | Raw % | Valid % | Cum. %
---------------------------------------------------
    1 | 非常不滿意 | 278 | 22.82 |   24.49 |  24.49
    2 |     不滿意 | 329 | 27.01 |   28.99 |  53.48
    3 |       滿意 | 427 | 35.06 |   37.62 |  91.10
    4 |   非常滿意 | 101 |  8.29 |    8.90 | 100.00
 <NA> |       <NA> |  83 |  6.81 |    <NA> |   <NA>

sjt.xtab(demo25$Q5r, demo25$Q6r) #製表

有人說：「民主也許會有問題，但還是一個最好的制度」，請問您同不同意這種說法？	整體而言，請問您對於目前臺灣民主政治實行的情形滿不滿意？				Total
	非常不滿意	不滿意	滿意	非常滿意
非常不同意	28	6	1	4	39
不同意	39	42	28	5	114
同意	103	176	221	13	513
非常同意	89	80	164	76	409
Total	259	304	414	98	1075
χ2=158.197 · df=9 · Cramer's V=0.221 · Fisher's p=0.000

options(viewer = NULL)


#Q7請問您對臺灣民主政治未來的發展是悲觀還是樂觀？
#(01)非常悲觀(02)悲觀(03)樂觀(04)非常樂觀
#(96)看情形(97)無意見(98)不知道(95)拒答
frq(demo25$Q7)

請問您對臺灣民主政治未來的發展是悲觀還是樂觀？ (x) <categorical> 
# total N=1218 valid N=1218 mean=10.87 sd=27.11

Value |    Label |   N | Raw % | Valid % | Cum. %
-------------------------------------------------
    1 | 非常悲觀 | 227 | 18.64 |   18.64 |  18.64
    2 |     悲觀 | 348 | 28.57 |   28.57 |  47.21
    3 |     樂觀 | 415 | 34.07 |   34.07 |  81.28
    4 | 非常樂觀 | 119 |  9.77 |    9.77 |  91.05
   95 |     拒答 |   4 |  0.33 |    0.33 |  91.38
   96 |   看情形 |  22 |  1.81 |    1.81 |  93.19
   97 |   無意見 |  26 |  2.13 |    2.13 |  95.32
   98 |   不知道 |  57 |  4.68 |    4.68 | 100.00
 <NA> |     <NA> |   0 |  0.00 |    <NA> |   <NA>

demo25$Q7r <- rec(demo25$Q7, 
                     rec="1=1[非常悲觀];2=2[悲觀];3=3[樂觀];4=4[非常樂觀]; else=NA")
frq(demo25$Q7r)

請問您對臺灣民主政治未來的發展是悲觀還是樂觀？ (x) <numeric> 
# total N=1218 valid N=1109 mean=2.38 sd=0.93

Value |    Label |   N | Raw % | Valid % | Cum. %
-------------------------------------------------
    1 | 非常悲觀 | 227 | 18.64 |   20.47 |  20.47
    2 |     悲觀 | 348 | 28.57 |   31.38 |  51.85
    3 |     樂觀 | 415 | 34.07 |   37.42 |  89.27
    4 | 非常樂觀 | 119 |  9.77 |   10.73 | 100.00
 <NA> |     <NA> | 109 |  8.95 |    <NA> |   <NA>

#Q8 有人說：「政府所做的事大多數是正確的」，請問您同不同意這種說法？
#(01)非常不同意(02)不同意(03)同意(04)非常同意
#(96)看情形(97)無意見(98)不知道(95)拒答
frq(demo25$Q8)

有人說：「政府所做的事大多數是正確的」，請問您同不同意這種說法？ (x) <categorical> 
# total N=1218 valid N=1218 mean=9.20 sd=24.85

Value |      Label |   N | Raw % | Valid % | Cum. %
---------------------------------------------------
    1 | 非常不同意 | 300 | 24.63 |   24.63 |  24.63
    2 |     不同意 | 410 | 33.66 |   33.66 |  58.29
    3 |       同意 | 326 | 26.77 |   26.77 |  85.06
    4 |   非常同意 |  92 |  7.55 |    7.55 |  92.61
   95 |       拒答 |   6 |  0.49 |    0.49 |  93.10
   96 |     看情形 |  25 |  2.05 |    2.05 |  95.16
   97 |     無意見 |  16 |  1.31 |    1.31 |  96.47
   98 |     不知道 |  43 |  3.53 |    3.53 | 100.00
 <NA> |       <NA> |   0 |  0.00 |    <NA> |   <NA>

demo25$Q8r <- rec(demo25$Q8,              
                  rec="1=1[非常不同意];2=2[不同意];3=3[同意];4=4[非常同意]; else=NA")

frq(demo25$Q8r)

有人說：「政府所做的事大多數是正確的」，請問您同不同意這種說法？ (x) <numeric> 
# total N=1218 valid N=1128 mean=2.19 sd=0.92

Value |      Label |   N | Raw % | Valid % | Cum. %
---------------------------------------------------
    1 | 非常不同意 | 300 | 24.63 |   26.60 |  26.60
    2 |     不同意 | 410 | 33.66 |   36.35 |  62.94
    3 |       同意 | 326 | 26.77 |   28.90 |  91.84
    4 |   非常同意 |  92 |  7.55 |    8.16 | 100.00
 <NA> |       <NA> |  90 |  7.39 |    <NA> |   <NA>

#Q12  有人說：「總統與立法院的多數立委最好是不同政黨，才能互相制衡」，但也有人說 「總統與立法院的多數立委最好是同一政黨，才可以貫徹政策」，請問您比較同意哪一種說法?
#(01)總統與立法院的多數立委最好是不同政黨，才能互相制衡
#(02)總統與立法院的多數立委最好是同一政黨，才能互相牽制
#(96)很難說(97)無意見(98)不知道(95)拒答
frq(demo25$Q12)

有人說：「總統與立法院的多數立委最好是不同政黨，才能互相制衡，但也有人說：「總統與立法院的多數立委最好是同一政黨，才可以貫徹政策」。請問您比較同意哪一種說法？ (x) <categorical> 
# total N=1218 valid N=1218 mean=14.33 sd=32.80

Value |                                                Label |   N | Raw %
--------------------------------------------------------------------------
    1 |   總統與立法院的多數立委最好是不同政黨，才能互相制衡 | 725 | 59.52
    2 | 總統與立法院的多數立委最好是同一政黨，才可以貫徹政策 | 327 | 26.85
   95 |                                                 拒答 |  15 |  1.23
   96 |                                               很難說 |  55 |  4.52
   97 |                                               無意見 |  33 |  2.71
   98 |                                               不知道 |  63 |  5.17
 <NA> |                                                 <NA> |   0 |  0.00

Value | Valid % | Cum. %
------------------------
    1 |   59.52 |  59.52
    2 |   26.85 |  86.37
   95 |    1.23 |  87.60
   96 |    4.52 |  92.12
   97 |    2.71 |  94.83
   98 |    5.17 | 100.00
 <NA> |    <NA> |   <NA>

demo25$Q12r <- rec(demo25$Q12, 
                     rec="1=1[不同黨];2=2[同一黨]; else=NA")
frq(demo25$Q12r)

有人說：「總統與立法院的多數立委最好是不同政黨，才能互相制衡，但也有人說：「總統與立法院的多數立委最好是同一政黨，才可以貫徹政策」。請問您比較同意哪一種說法？ (x) <numeric> 
# total N=1218 valid N=1052 mean=1.31 sd=0.46

Value |  Label |   N | Raw % | Valid % | Cum. %
-----------------------------------------------
    1 | 不同黨 | 725 | 59.52 |   68.92 |  68.92
    2 | 同一黨 | 327 | 26.85 |   31.08 | 100.00
 <NA> |   <NA> | 166 | 13.63 |    <NA> |   <NA>

library(sjPlot)
sjmisc::frq(demo25$Q12r)

有人說：「總統與立法院的多數立委最好是不同政黨，才能互相制衡，但也有人說：「總統與立法院的多數立委最好是同一政黨，才可以貫徹政策」。請問您比較同意哪一種說法？ (x) <numeric> 
# total N=1218 valid N=1052 mean=1.31 sd=0.46

Value |  Label |   N | Raw % | Valid % | Cum. %
-----------------------------------------------
    1 | 不同黨 | 725 | 59.52 |   68.92 |  68.92
    2 | 同一黨 | 327 | 26.85 |   31.08 | 100.00
 <NA> |   <NA> | 166 | 13.63 |    <NA> |   <NA>

plot_frq(demo25$Q12r, 
        , wrap.title=30)

##這樣的結果顯示，多數民眾同意並認為總統和立法院多數黨最好是「不同政黨」才能有效制衡。

#C.Q17、Q19、Q21臺灣與中國政府的互動與關係

#Q17 我們社會上常常有人討論臺灣要如何跟中國大陸互動，如果用0來表示臺灣跟跟中國大陸的互動應該愈疏遠愈好，用10表示應該越密切越好，請問0~10您會給多少?
#__________
#(95)拒答 (98)不知道
frq(demo25$Q17)

我們社會上常常有人討論臺灣要如何跟中國大陸互動，如果用0來表示臺灣跟跟中國大陸的互動應該愈疏遠愈好，用10表示應該愈密切愈好，請問0?10您會給多少？ (x) <numeric> 
# total N=1218 valid N=1218 mean=13.11 sd=26.20

Value |                              Label |   N | Raw % | Valid % | Cum. %
---------------------------------------------------------------------------
    0 | 臺灣跟中國大陸的互動應該愈疏遠愈好 |  82 |  6.73 |    6.73 |   6.73
    1 |                                  1 |  29 |  2.38 |    2.38 |   9.11
    2 |                                  2 |  40 |  3.28 |    3.28 |  12.40
    3 |                                  3 |  93 |  7.64 |    7.64 |  20.03
    4 |                                  4 |  62 |  5.09 |    5.09 |  25.12
    5 |                                  5 | 402 | 33.00 |   33.00 |  58.13
    6 |                                  6 | 141 | 11.58 |   11.58 |  69.70
    7 |                                  7 | 105 |  8.62 |    8.62 |  78.33
    8 |                                  8 |  85 |  6.98 |    6.98 |  85.30
    9 |                                  9 |  14 |  1.15 |    1.15 |  86.45
   10 | 臺灣跟中國大陸的互動應該愈密切愈好 |  59 |  4.84 |    4.84 |  91.30
   95 |                               拒答 |  14 |  1.15 |    1.15 |  92.45
   98 |                             不知道 |  92 |  7.55 |    7.55 | 100.00
 <NA> |                               <NA> |   0 |  0.00 |    <NA> |   <NA>

demo25$Q17r <- rec(demo25$Q17, 
                     rec="0=0;1=1;2=2;3=3;4=4;5=5;6=6;7=7;8=8;9=9;10=10; else=NA")
frq(demo25$Q17r)

我們社會上常常有人討論臺灣要如何跟中國大陸互動，如果用0來表示臺灣跟跟中國大陸的互動應該愈疏遠愈好，用10表示應該愈密切愈好，請問0?10您會給多少？ (x) <numeric> 
# total N=1218 valid N=1112 mean=5.06 sd=2.39

Value |   N | Raw % | Valid % | Cum. %
--------------------------------------
    0 |  82 |  6.73 |    7.37 |   7.37
    1 |  29 |  2.38 |    2.61 |   9.98
    2 |  40 |  3.28 |    3.60 |  13.58
    3 |  93 |  7.64 |    8.36 |  21.94
    4 |  62 |  5.09 |    5.58 |  27.52
    5 | 402 | 33.00 |   36.15 |  63.67
    6 | 141 | 11.58 |   12.68 |  76.35
    7 | 105 |  8.62 |    9.44 |  85.79
    8 |  85 |  6.98 |    7.64 |  93.44
    9 |  14 |  1.15 |    1.26 |  94.69
   10 |  59 |  4.84 |    5.31 | 100.00
 <NA> | 106 |  8.70 |    <NA> |   <NA>

#Q19 如果因為臺灣宣布獨立導致中國大陸武力攻打臺灣，請問您願不願意為保衛臺灣而戰？
#(01)非常不願意(02)不願意(03)願意(04)非常願意(96)看情形(97)無意見(98)不知道(95)拒答
frq(demo25$Q19)

如果因為臺灣宣布獨立導致中國大陸武力攻打臺灣，請問您願不願意為保衛臺灣而戰？ (x) <categorical> 
# total N=1218 valid N=1218 mean=12.72 sd=29.10

Value |      Label |   N | Raw % | Valid % | Cum. %
---------------------------------------------------
    1 | 非常不願意 | 266 | 21.84 |   21.84 |  21.84
    2 |     不願意 | 155 | 12.73 |   12.73 |  34.56
    3 |       願意 | 337 | 27.67 |   27.67 |  62.23
    4 |   非常願意 | 330 | 27.09 |   27.09 |  89.33
   95 |       拒答 |  32 |  2.63 |    2.63 |  91.95
   96 |     看情形 |  19 |  1.56 |    1.56 |  93.51
   97 |     無意見 |  21 |  1.72 |    1.72 |  95.24
   98 |     不知道 |  58 |  4.76 |    4.76 | 100.00
 <NA> |       <NA> |   0 |  0.00 |    <NA> |   <NA>

demo25$Q19r <- rec(demo25$Q19, 
                     rec="1=1[非常不願意];2=2[不願意];3=3[願意];4=4[非常願意]; else=NA")
frq(demo25$Q19r)

如果因為臺灣宣布獨立導致中國大陸武力攻打臺灣，請問您願不願意為保衛臺灣而戰？ (x) <numeric> 
# total N=1218 valid N=1088 mean=2.67 sd=1.15

Value |      Label |   N | Raw % | Valid % | Cum. %
---------------------------------------------------
    1 | 非常不願意 | 266 | 21.84 |   24.45 |  24.45
    2 |     不願意 | 155 | 12.73 |   14.25 |  38.69
    3 |       願意 | 337 | 27.67 |   30.97 |  69.67
    4 |   非常願意 | 330 | 27.09 |   30.33 | 100.00
 <NA> |       <NA> | 130 | 10.67 |    <NA> |   <NA>

#Q21 關於臺灣和中國大陸的關係，有下面幾種不同的看法：
#(01)儘快統一(02)儘快宣佈獨立(03維持現狀，以後走向統一(04)維持現狀，以後走向獨立(05)維持現狀，看情形再決定獨立或統一(06)永遠維持現狀(90)其他___(96)很難說(97)無意見(98)不知道(95)拒答
frq(demo25$Q21)

關於臺灣和中國大陸的關係，有下面幾種不同的看法： (x) <categorical> 
# total N=1218 valid N=1218 mean=9.08 sd=19.38

Value |                            Label |   N | Raw % | Valid % | Cum. %
-------------------------------------------------------------------------
    1 |                         儘快統一 |   9 |  0.74 |    0.74 |   0.74
    2 |                     儘快宣佈獨立 |  47 |  3.86 |    3.86 |   4.60
    3 |           維持現狀，以後走向統一 |  97 |  7.96 |    7.96 |  12.56
    4 |           維持現狀，以後走向獨立 | 245 | 20.11 |   20.11 |  32.68
    5 | 維持現狀，看情形再決定獨立或統一 | 349 | 28.65 |   28.65 |  61.33
    6 |                     永遠維持現狀 | 406 | 33.33 |   33.33 |  94.66
    7 |               已經是個獨立的國家 |   9 |  0.74 |    0.74 |  95.40
    8 |               已經是個統一的國家 |   0 |  0.00 |    0.00 |  95.40
   95 |                             拒答 |   8 |  0.66 |    0.66 |  96.06
   96 |                           很難說 |   4 |  0.33 |    0.33 |  96.39
   97 |                           無意見 |  16 |  1.31 |    1.31 |  97.70
   98 |                           不知道 |  28 |  2.30 |    2.30 | 100.00
 <NA> |                             <NA> |   0 |  0.00 |    <NA> |   <NA>

demo25$Q21r <- rec(demo25$Q21, 
                     rec="1=1[統一];2=2[獨立];3=3[維持偏統一];4=4[維持偏獨立];5=5[維持現狀看情形];6=6[永遠維持現狀]; else=NA")
frq(demo25$Q21r)

關於臺灣和中國大陸的關係，有下面幾種不同的看法： (x) <numeric> 
# total N=1218 valid N=1153 mean=4.82 sd=1.17

Value |          Label |   N | Raw % | Valid % | Cum. %
-------------------------------------------------------
    1 |           統一 |   9 |  0.74 |    0.78 |   0.78
    2 |           獨立 |  47 |  3.86 |    4.08 |   4.86
    3 |     維持偏統一 |  97 |  7.96 |    8.41 |  13.27
    4 |     維持偏獨立 | 245 | 20.11 |   21.25 |  34.52
    5 | 維持現狀看情形 | 349 | 28.65 |   30.27 |  64.79
    6 |   永遠維持現狀 | 406 | 33.33 |   35.21 | 100.00
 <NA> |           <NA> |  65 |  5.34 |    <NA> |   <NA>

library(sjPlot)
sjmisc::frq(demo25$Q21r)

關於臺灣和中國大陸的關係，有下面幾種不同的看法： (x) <numeric> 
# total N=1218 valid N=1153 mean=4.82 sd=1.17

Value |          Label |   N | Raw % | Valid % | Cum. %
-------------------------------------------------------
    1 |           統一 |   9 |  0.74 |    0.78 |   0.78
    2 |           獨立 |  47 |  3.86 |    4.08 |   4.86
    3 |     維持偏統一 |  97 |  7.96 |    8.41 |  13.27
    4 |     維持偏獨立 | 245 | 20.11 |   21.25 |  34.52
    5 | 維持現狀看情形 | 349 | 28.65 |   30.27 |  64.79
    6 |   永遠維持現狀 | 406 | 33.33 |   35.21 | 100.00
 <NA> |           <NA> |  65 |  5.34 |    <NA> |   <NA>

plot_frq(demo25$Q21r, 
        , wrap.title=30)

#從這邊我們可以看到，多數民眾依然希望「維持現狀」，甚至是永遠維持現狀，但趨勢中「獨立」的傾向是大於「統一」的。

#D Q22、Q25受訪者之政黨傾向

#Q22 在目前國內的政黨中，請問您認為您比較支持哪一個政黨？
#(01)國民黨 (02)民進黨(03)新黨(04)親民黨(05)臺聯(20)綠黨(21)時代力量(23)社民黨(35)臺灣基進(38)台灣民眾黨 <- 僅討論本屆立法委員政黨票選舉前四大黨，因而22A,B沒有呈現
#(06)都支持(07)都不支持(96)看情形(97)無意見(98)不知道(95)拒答
frq(demo25$Q22)

在目前國內的政黨中，請問您認為您比較支持哪一個政黨？ (x) <categorical> 
# total N=1218 valid N=1218 mean=18.45 sd=30.87

Value |              Label |   N | Raw % | Valid % | Cum. %
-----------------------------------------------------------
    1 |             國民黨 | 222 | 18.23 |   18.23 |  18.23
    2 |             民進黨 | 359 | 29.47 |   29.47 |  51.23
    3 |               新黨 |   0 |  0.00 |    0.00 |  51.81
    4 |             親民黨 |   0 |  0.00 |    0.00 |  59.93
    5 |               臺聯 |   0 |  0.00 |    0.00 |  60.10
    6 |             都支持 |  68 |  5.58 |    5.58 |  65.76
    7 |           都不支持 | 268 | 22.00 |   22.00 |  87.77
    8 |     國民黨加民進黨 |   0 |  0.00 |    0.00 |  87.77
   16 |               泛藍 |   2 |  0.16 |    0.16 |  18.39
   17 |               泛綠 |   1 |  0.08 |    0.08 |  18.47
   18 |             在野黨 |   0 |  0.00 |    0.00 |  18.47
   19 |         選人不選黨 |  40 |  3.28 |    3.28 |  21.76
   20 |               綠黨 |   1 |  0.08 |    0.08 |  51.31
   21 |           時代力量 |   4 |  0.33 |    0.33 |  51.64
   23 |             社民黨 |   2 |  0.16 |    0.16 |  51.81
   29 |     中華統一促進黨 |   0 |  0.00 |    0.00 |  51.81
   35 |           台灣基進 |   0 |  0.00 |    0.00 |  51.81
   38 |         台灣民眾黨 |  99 |  8.13 |    8.13 |  59.93
   42 |             台澎黨 |   1 |  0.08 |    0.08 |  60.02
   45 |     臺灣動物保護黨 |   1 |  0.08 |    0.08 |  60.10
   46 | 小民參政歐巴桑聯盟 |   0 |  0.00 |    0.00 |  60.10
   49 |         麻將最大黨 |   0 |  0.00 |    0.00 |  60.10
   51 |             勞動黨 |   0 |  0.00 |    0.00 |  60.10
   52 |         人民最大黨 |   1 |  0.08 |    0.08 |  60.18
   95 |               拒答 |  25 |  2.05 |    2.05 |  89.82
   96 |             看情形 |  47 |  3.86 |    3.86 |  93.68
   97 |             無意見 |  46 |  3.78 |    3.78 |  97.45
   98 |             不知道 |  31 |  2.55 |    2.55 | 100.00
 <NA> |               <NA> |   0 |  0.00 |    <NA> |   <NA>

demo25$Q22r <- rec(demo25$Q22, 
                     rec="1=1[KMT];2=2[DPP];38=3[TPP]
                   ;21=4[NPP]; else=NA")
frq(demo25$Q22r)

在目前國內的政黨中，請問您認為您比較支持哪一個政黨？ (x) <numeric> 
# total N=1218 valid N=684 mean=1.83 sd=0.68

Value | Label |   N | Raw % | Valid % | Cum. %
----------------------------------------------
    1 |   KMT | 222 | 18.23 |   32.46 |  32.46
    2 |   DPP | 359 | 29.47 |   52.49 |  84.94
    3 |   TPP |  99 |  8.13 |   14.47 |  99.42
    4 |   NPP |   4 |  0.33 |    0.58 | 100.00
 <NA> |  <NA> | 534 | 43.84 |    <NA> |   <NA>

library(sjPlot)
sjmisc::frq(demo25$Q22r)

在目前國內的政黨中，請問您認為您比較支持哪一個政黨？ (x) <numeric> 
# total N=1218 valid N=684 mean=1.83 sd=0.68

Value | Label |   N | Raw % | Valid % | Cum. %
----------------------------------------------
    1 |   KMT | 222 | 18.23 |   32.46 |  32.46
    2 |   DPP | 359 | 29.47 |   52.49 |  84.94
    3 |   TPP |  99 |  8.13 |   14.47 |  99.42
    4 |   NPP |   4 |  0.33 |    0.58 | 100.00
 <NA> |  <NA> | 534 | 43.84 |    <NA> |   <NA>

plot_frq(demo25$Q22r, 
        , wrap.title=30)

#Q25 在我們社會上，有人說自己是「臺灣人」，也有人說自己是「中國人」，也有人說都是。請問您認為您自己是「臺灣人」、「中國人」，或者都是?
#(01)臺灣人(02)都是(03)中國人(96)很難說(97)無意見(98)不知道(95)拒答
frq(demo25$Q25)

在我們社會上，有人說自己是「臺灣人」，也有人說自己是「中國人」，也有人說都是。請問您認為您自己是「臺灣人」、「中國人」，或者都是？ (x) <categorical> 
# total N=1218 valid N=1218 mean=5.35 sd=18.99

Value |  Label |   N | Raw % | Valid % | Cum. %
-----------------------------------------------
    1 | 臺灣人 | 704 | 57.80 |   57.80 |  57.80
    2 |   都是 | 430 | 35.30 |   35.30 |  93.10
    3 | 中國人 |  34 |  2.79 |    2.79 |  95.89
   95 |   拒答 |  11 |  0.90 |    0.90 |  96.80
   96 | 看情形 |   5 |  0.41 |    0.41 |  97.21
   97 | 無意見 |   4 |  0.33 |    0.33 |  97.54
   98 | 不知道 |  30 |  2.46 |    2.46 | 100.00
 <NA> |   <NA> |   0 |  0.00 |    <NA> |   <NA>

demo25$Q25r <- rec(demo25$Q25, 
                     rec="1=1[臺灣人];2=2[都是];3=3[中國人]
                   ; else=NA")
frq(demo25$Q25r)

在我們社會上，有人說自己是「臺灣人」，也有人說自己是「中國人」，也有人說都是。請問您認為您自己是「臺灣人」、「中國人」，或者都是？ (x) <numeric> 
# total N=1218 valid N=1168 mean=1.43 sd=0.55

Value |  Label |   N | Raw % | Valid % | Cum. %
-----------------------------------------------
    1 | 臺灣人 | 704 | 57.80 |   60.27 |  60.27
    2 |   都是 | 430 | 35.30 |   36.82 |  97.09
    3 | 中國人 |  34 |  2.79 |    2.91 | 100.00
 <NA> |   <NA> |  50 |  4.11 |    <NA> |   <NA>

library(sjPlot)
sjmisc::frq(demo25$Q25r)

在我們社會上，有人說自己是「臺灣人」，也有人說自己是「中國人」，也有人說都是。請問您認為您自己是「臺灣人」、「中國人」，或者都是？ (x) <numeric> 
# total N=1218 valid N=1168 mean=1.43 sd=0.55

Value |  Label |   N | Raw % | Valid % | Cum. %
-----------------------------------------------
    1 | 臺灣人 | 704 | 57.80 |   60.27 |  60.27
    2 |   都是 | 430 | 35.30 |   36.82 |  97.09
    3 | 中國人 |  34 |  2.79 |    2.91 | 100.00
 <NA> |   <NA> |  50 |  4.11 |    <NA> |   <NA>

plot_frq(demo25$Q25r, 
        , wrap.title=30)

#民眾認同自己是臺灣人的比例有六成，是臺灣人也是中國人的比例也有將近四成，顯示臺灣民眾複雜的國族情感依然存在。