中山政研所 一年級 楊雅筑 M116020002
台灣與中國間的認同關係一直以來皆是兩岸共識的重要議題。其中，「經濟」層面更是改變台灣民眾對中國觀感的關鍵之一，因此，若當選民本身或是其周圍相關人士與中國有著「經濟交流」的關係，其政黨傾向和意識形態又會呈現何種關聯呢？本計畫將進一步選用TNSS2015的資料以R語言來解析之間的關聯。
研究動機：
筆者觀察身邊的親友，發現「與中國有著經濟交流」的人士，其對中國的態度和「與中國無任何經濟交流」的人有著些微的差異。特別的是，此處所提及的經濟交流並非是指獲利的結果，而是所有面向的可能。（簡單來說，就是成功和失敗的結果都包含在內）也因此，這項觀察也激起筆者想進一步探究彼此關聯的動機，究竟這些選民們在政治的選擇上是否會有些共同的特性或是傾向呢？
理論與假設：
理論一：選民會依照自身利益的關聯選擇政黨傾向
假設：
H0：“個人或身邊有人與中國有經濟利益相關”與”政黨傾向”無關（不見得有利益相關者就會越支持國民黨）
H1：“個人或身邊有人與中國有經濟利益相關”與”政黨傾向”有關（有利益相關者越支持國民黨）
首先，先抓出與中國經濟利益的有無的那一群人：
getwd()[1] "/Users/azhu/Library/CloudStorage/OneDrive-東海大學/研究所/民意專案"load("/Users/azhu/Library/CloudStorage/OneDrive-東海大學/研究所/民意專案/TNSS2015/TNSS2015.rda")
library(sjmisc)May the fourth be with you!library(sjPlot)
{TNSS2015$Q2 <-rec(TNSS2015$Q2, rec="1=1; else=0", as.num = F)} #區分"有"與"無+其他" table(TNSS2015$Q2)#1=159;0=912接者，挑出較傾向支持國民黨的選民：
{TNSS2015$Q33 <-rec(TNSS2015$Q33, rec = "1=1; else=0", as.num = F)} #區分支持國民黨的人 table(TNSS2015$Q33) #217人支持國民黨，854人支持其餘最後，使用卡方檢定來檢驗之間的關聯性：
{chisq.test(TNSS2015$Q2, TNSS2015$Q33)} #用卡方檢定檢驗相關性=>“與中國有無經濟利益關係”和“支持國民黨與否” 之間是否有顯著？ #得出結果0.04713
Pearson's Chi-squared test with Yates' continuity correction
data: TNSS2015$Q2 and TNSS2015$Q33
X-squared = 3.9406, df = 1, p-value = 0.04713frq(TNSS2015$Q2)請問您個人或是家人有沒有去或打算去大陸做生意或就業？ (x) <categorical>
# total N=1071 valid N=1071 mean=0.15 sd=0.36
Value | N | Raw % | Valid % | Cum. %
--------------------------------------
0 | 912 | 85.15 | 85.15 | 85.15
1 | 159 | 14.85 | 14.85 | 100.00
<NA> | 0 | 0.00 | <NA> | <NA>理論與假設：
理論二：選民會依照自身利益的關聯選擇意識形態
假設：
H0：“個人或身邊有人與中國有經濟利益相關”與”認為未來會走向統一”無關（不見得有利益相關者會認為未來會走向統一）
H1：“個人或身邊有人與中國有經濟利益相關”與”認為未來會走向統一”有關（有利益相關者會認為未來會走向統一）
首先，先區分認為會走向統一的那一群人：
{TNSS2015$Q17 <-rec(TNSS2015$Q17, rec ="1=1;else=0", as.num = F)}
{table(TNSS2015$Q17)}#共450人認為會，621人認為不會
0 1
621 450 以卡方檢定檢驗之間的關聯：
chisq.test(TNSS2015$Q2, TNSS2015$Q17)#與中國有經濟利益相關者與認為未來會走向統一有關#得出結果0.04175
Pearson's Chi-squared test with Yates' continuity correction
data: TNSS2015$Q2 and TNSS2015$Q17
X-squared = 4.1452, df = 1, p-value = 0.04175接者，我們再進一步探索這一群人認為會走向統一的機率有多高：
TNSS2015$Q18 <-rec(TNSS2015$Q18, rec = "10,9,8,7,6=1;else=0", as.num = F)
table(TNSS2015$Q18)#共354人認為統一機率高於一半
0 1
717 354 並用卡方檢定之間的關聯：
chisq.test(TNSS2015$Q2, TNSS2015$Q18)#與中國有經濟利益相關者與認為未來走向統一的機率高於一半有關#得出結論0.00332
Pearson's Chi-squared test with Yates' continuity correction
data: TNSS2015$Q2 and TNSS2015$Q18
X-squared = 9.5842, df = 1, p-value = 0.001963我們再回過頭與第一段的政黨傾向做檢定：
chisq.test(TNSS2015$Q33, TNSS2015$Q18)#支持國民黨的人與認為未來高於一半機率會走向統一有關
Pearson's Chi-squared test with Yates' continuity correction
data: TNSS2015$Q33 and TNSS2015$Q18
X-squared = 11.272, df = 1, p-value = 0.000787#得出結論0.06399library(sjmisc)
frq(TNSS2015$Q33)在國內的政黨之中，請問您認為您比較支持哪一個政黨？ (x) <categorical>
# total N=1071 valid N=1071 mean=0.20 sd=0.40
Value | N | Raw % | Valid % | Cum. %
--------------------------------------
0 | 854 | 79.74 | 79.74 | 79.74
1 | 217 | 20.26 | 20.26 | 100.00
<NA> | 0 | 0.00 | <NA> | <NA>frq(TNSS2015$Q18)我們想請您用０到１０來表示將來兩岸統一的可能性。０表示非常不可能，１０表示非常有可能，請問您覺得應該是多少？ (x) <categorical>
# total N=1071 valid N=1071 mean=0.33 sd=0.47
Value | N | Raw % | Valid % | Cum. %
--------------------------------------
0 | 717 | 66.95 | 66.95 | 66.95
1 | 354 | 33.05 | 33.05 | 100.00
<NA> | 0 | 0.00 | <NA> | <NA>