台灣人身份認同對外來移民看法的影響

作者:黃詣升，中山大學政治學研究所。

email:d22495314@gmail.com

台灣人身份認同對外來移民看法的影響

一.引言

我的研究問題為台灣人身份認同是否能夠對外來移民看法造成影響，身分認同一直是每個台灣人避不開的一個議題，我對其也抱持著興趣，而隨著台灣與各地的交流日漸增加，從外國(地區)來到台灣的移民也隨之增加，我很好奇台灣人的身分認同所造就的台灣民族意識以及台灣民族主義強度和對外來移民的看法之間的關係，同時想更進一步分析台灣民族意識當中對於哪些地區的移民抱有較大的好感和接受度，又或是對於某些地區的移民抱有排外的傾向及敵意，希望這份研究所得到的分析結果可以幫助對所謂台灣人究竟是一個擁有什麼特質的族群有更多的認識，同時能為台灣的移民政策提供一些參考。

我所採用的資料是中央研究院社會學研究所的台灣社會變遷基本調查2023第八期第四次的國家認同與公民權組，調查時間為2023年6月5日~2024年1月31日，研究母體是台灣地區(不含金馬)的18歲以上常住的一般民眾，調查方式是面訪，總共有1563個受訪者。 選擇這份台灣社會變遷基本調查2023資料的原因是其問卷的問題符合我想分析的議題，像是台灣人的身分認同，對移民的各項看法以及針對每個不同地區的移民看法再作分類的問題， 所以我預計使用台灣社會變遷調查的問卷當中C4,C7-C8,D1,F1-F4的數據來分析台灣人身分認同的強度對外來移民的看法及不同地區移民的態度之影響。

library(sjlabelled)
library(haven)

Attaching package: 'haven'

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

    as_factor, read_sas, read_spss, read_stata, write_sas, zap_labels

tscs231 <- read_sav("tscs231_w37_20240409_weight_committee.sav")
View(tscs231)

save(tscs231, file = "tscs231.rda", compress = T)

library(sjmisc)

Learn more about sjmisc with 'browseVignettes("sjmisc")'.

library(sjPlot)

假設

1.台灣人認同(x)對外來移民的態度(y1)有影響

2.台灣人認同(x)對不同地區的外來移民態度(y2)有影響

二.文獻回顧

首先是張翰璧、張晉芬的〈全球化效果的侷限:臺灣民眾對接納跨國移民的態度〉本文中分析了許多x對移民移工態度的影響，當中就有提到「外省第一代」、「外省第二代」、或其下一代，可能由於家人的移民經驗較近的關係，對於外配和國際勞工的同理心也較高，較願意開放更多外國人移入。此外台灣人超過一半反對開放更多中國和東南亞籍移民和移工進入國境，而對於其他國籍的外配，如來自日本、歐洲、或北美等已開發國家抱持反對的比例較低，但也有46%將近一半了。

再來是陳志柔、吳家裕的〈臺灣民衆對外籍配偶移民的態度：十年間的變化趨勢（2004－2014）〉，在本文中分析了許多不同x對外籍配偶的態度影響在10年間的變化，挑選其中與本研究相關的部分陳述，在2014年時外省人對於大陸女性配偶取得公民權一事比起本省人抱持著更為接受的態度，而兩者對於東南亞女性配偶取得公民權的態度則沒有顯著差異，作者認為這是因為族群意識和認同的差異導致本省人和外省人出現態度差異的結果。

最後是楊婉瑩、張雅雯的〈她們不是我們？分析台灣的民族主義者反大陸移民之態度〉當中的研究就有提到，向台灣意識傾斜的人比起較向中國意識傾斜的人更排斥大陸移民，接著更進一步發現公民式民族主義(後天的塑造)較族群式民族主義(先天特質相同)更為接納大陸移民，最後再以上述的兩組混合研究，發現了台灣民族主義是最可能排斥大陸移民者，但是其要是以共同歷史文化或原生族群為國家成員基礎認同的。而中國民族主義者是最可能包容大陸移民者，但也僅限於對於國家成員是以政治制度的認同為基礎者。也就是說中國民族主義不一定總是接納大陸移民，台灣民族主義也並非注定排斥大陸移民，除了身分認同之外還需考量到對民族組成的看法。

三.變數處理

自變數:台灣身分認同

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全 不是臺灣人」。請問您會選幾分？

完全不是臺灣人， 完全是臺灣人

□(0) □(1) □(2) □(3) □(4) □(5) □(6) □(7) □(8) □(9) □(10)

table(tscs231$d1)

  -4    0    1    3    4    5    6    7    8    9   10 
   2    4    1    2    5   71   30   68  135   95 1150 

tscs231$Tai <- rec(tscs231$d1, rec="0:8=1[非或輕度台灣人認同]; 9:10=0[高度台灣人認同]", as.num = F)
plot_frq(tscs231$Tai, type="bar")

此處的台灣身分認同樣本採用9-10的高度認同的數據，並以這些樣本來做後續移民議題看法之分析

依變數:對移民的各項細節看法

第一部分:對移民議題的看法

C7.社會上許多人對移民來臺灣的外國人有不同的看法。請問您同不同意下面的說法？ (1)非常同意 (2)同意 (3)既不同意也不反對 (4)不同意 (5)非常不同意 (-4) 無法選擇 a.移民會使治安變差

table(tscs231$c7a)

 -4   1   2   3   4   5 
 17  48 435   8 956  99 

tscs231$imza <- rec(tscs231$c7a, rec="1=0[非常同意]; 2=1[同意];3=2[不同意也不反對];4=3[不同意];5=4[非常不同意]", as.num = F)
frq(tscs231$imza, out="v")

C7a.社會上許多人對移民來臺灣的外國人有不同的看法。請問您同不同意下面的說法？移民會使治安變差 (x) <categorical>

val	label	frq	raw.prc	valid.prc	cum.prc
0	非常同意	48	3.07	3.10	3.10
1	同意	435	27.83	28.14	31.24
2	不同意也不反對	8	0.51	0.52	31.76
3	不同意	956	61.16	61.84	93.60
4	非常不同意	99	6.33	6.40	100.00
NA	NA	17	1.09	NA	NA
total N=1563 · valid N=1546 · x̄=2.40 · σ=1.06

b.移民對臺灣的經濟有幫助

table(tscs231$c7b)

  -4    1    2    3    4    5 
  28  124 1036   17  346   12 

tscs231$imec <- rec(tscs231$c7b, rec="1=0[非常同意]; 2=1[同意];3=2[不同意也不反對];4=3[不同意];5=4[非常不同意]", as.num = F)
frq(tscs231$imec, out="v")

C7b.社會上許多人對移民來臺灣的外國人有不同的看法。請問您同不同意下面的說法？移民對臺灣的經濟有幫助 (x) <categorical>

val	label	frq	raw.prc	valid.prc	cum.prc
0	非常同意	124	7.93	8.08	8.08
1	同意	1036	66.28	67.49	75.57
2	不同意也不反對	17	1.09	1.11	76.68
3	不同意	346	22.14	22.54	99.22
4	非常不同意	12	0.77	0.78	100.00
NA	NA	28	1.79	NA	NA
total N=1563 · valid N=1535 · x̄=1.40 · σ=0.95

c.移民會搶走在臺灣出生的人的工作

table(tscs231$c7c)

 -4   1   2   3   4   5 
  7  77 549   8 849  73 

tscs231$imwo <- rec(tscs231$c7c, rec="1=0[非常同意]; 2=1[同意];3=2[不同意也不反對];4=3[不同意];5=4[非常不同意]", as.num = F)
frq(tscs231$imwo, out="v")

C7c.社會上許多人對移民來臺灣的外國人有不同的看法。請問您同不同意下面的說法？移民會搶走在臺灣出生的人的工作 (x) <categorical>

val	label	frq	raw.prc	valid.prc	cum.prc
0	非常同意	77	4.93	4.95	4.95
1	同意	549	35.12	35.28	40.23
2	不同意也不反對	8	0.51	0.51	40.75
3	不同意	849	54.32	54.56	95.31
4	非常不同意	73	4.67	4.69	100.00
NA	NA	7	0.45	NA	NA
total N=1563 · valid N=1556 · x̄=2.19 · σ=1.12

d.移民會帶來新的想法和文化，讓我國社會更好

table(tscs231$c7d)

 -4   1   2   3   4   5 
 23 203 959  28 337  13 

tscs231$imcu <- rec(tscs231$c7d, rec="1=0[非常同意]; 2=1[同意];3=2[不同意也不反對];4=3[不同意];5=4[非常不同意]", as.num = F)
frq(tscs231$imcu, out="v")

C7d.社會上許多人對移民來臺灣的外國人有不同的看法。請問您同不同意下面的說法？移民會帶來新的想法和文化，讓我國社會更好 (x) <categorical>

val	label	frq	raw.prc	valid.prc	cum.prc
0	非常同意	203	12.99	13.18	13.18
1	同意	959	61.36	62.27	75.45
2	不同意也不反對	28	1.79	1.82	77.27
3	不同意	337	21.56	21.88	99.16
4	非常不同意	13	0.83	0.84	100.00
NA	NA	23	1.47	NA	NA
total N=1563 · valid N=1540 · x̄=1.35 · σ=0.99

e.臺灣出生的人，他的工作、居住與健康照護需求，應該優先於外來移民

table(tscs231$c7e)

 -4   1   2   3   4   5 
  7 329 738   5 435  49 

tscs231$lobe <- rec(tscs231$c7e, rec="1=0[非常同意]; 2=1[同意];3=2[不同意也不反對];4=3[不同意];5=4[非常不同意]", as.num = F)
frq(tscs231$lobe, out="v")

C7e.社會上許多人對移民來臺灣的外國人有不同的看法。請問您同不同意下面的說法？臺灣出生的人，他的工作、居住與健康照護需求，應該優先於外來移民 (x) <categorical>

val	label	frq	raw.prc	valid.prc	cum.prc
0	非常同意	329	21.05	21.14	21.14
1	同意	738	47.22	47.43	68.57
2	不同意也不反對	5	0.32	0.32	68.89
3	不同意	435	27.83	27.96	96.85
4	非常不同意	49	3.13	3.15	100.00
NA	NA	7	0.45	NA	NA
total N=1563 · valid N=1556 · x̄=1.45 · σ=1.19

C8.請問您認為來臺灣居住的移民人數，未來應該要增加、減少還是維持現狀？ISSPQ8

□(01)大幅增加 □(02)增加一些 □(03)維持現狀

□(04)減少一些 □(05)大幅減少 □(-4)無法選擇

table(tscs231$c8)

 -4   1   2   3   4   5 
 33  60 316 878 218  58 

tscs231$imsu <- rec(tscs231$c8, rec="1=0[大幅增加]; 2=1[增加一些];3=2[維持現狀];4=3[減少一些];5=4[大幅減少]", as.num = F)
frq(tscs231$imsu, out="v")

C8.請問您認為來臺灣居住的移民人數，未來應該要增加、減少還是維持現狀？ (x) <categorical>

val	label	frq	raw.prc	valid.prc	cum.prc
0	大幅增加	60	3.84	3.92	3.92
1	增加一些	316	20.22	20.65	24.58
2	維持現狀	878	56.17	57.39	81.96
3	減少一些	218	13.95	14.25	96.21
4	大幅減少	58	3.71	3.79	100.00
NA	NA	33	2.11	NA	NA
total N=1563 · valid N=1530 · x̄=1.93 · σ=0.81

我認為台灣人認同和對移民友好的態度會呈現正相關，因為台灣在歷史上就經歷融合過各種外來文化，對於接納不同文化的人會抱持較開放的態度，但由於台灣是個地狹人稠的島嶼，這份開放的態度應該是會是一個中等偏上的程度。

第二部分:對不同來源地的移民看法差異

最近幾年來，有許多國家的人以不同方式的來臺灣居住，請問您認為政府應不應該限制他們取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？ F1.歐美或日本人

a.以結婚身份來的

table(tscs231$f1a)

 -4   1   2   3   4   5 
 18 482 263 475 147 178 

tscs231$jpjf <- rec(tscs231$f1a, rec="1=0[盡量不要限制]; 2=1[2];3=2[3];4=3[4];5=4[盡量嚴格限制]", as.num = F)
frq(tscs231$jpjf, out="v")

F1a.最近幾年來，有許多國家的人以不同方式的來臺灣居住，請問您認為政府應不應該限制【以結婚身份來的歐美或日本人】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一 (x) <categorical>

val	label	frq	raw.prc	valid.prc	cum.prc
0	盡量不要限制	482	30.84	31.20	31.20
1	2	263	16.83	17.02	48.22
2	3	475	30.39	30.74	78.96
3	4	147	9.40	9.51	88.48
4	盡量嚴格限制	178	11.39	11.52	100.00
NA	NA	18	1.15	NA	NA
total N=1563 · valid N=1545 · x̄=1.53 · σ=1.33

b.以投資移民或工作簽證來的

table(tscs231$f1b)

 -4   1   2   3   4   5 
 20 372 255 487 217 212 

tscs231$jptz <- rec(tscs231$f1b, rec="1=0[盡量不要限制]; 2=1[2];3=2[3];4=3[4];5=4[盡量嚴格限制]", as.num = F)
frq(tscs231$jptz, out="v")

F1b.請問您認為政府應不應該限制【以投資移民或工作簽證來的歐美或日本人】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？ (x) <categorical>

val	label	frq	raw.prc	valid.prc	cum.prc
0	盡量不要限制	372	23.80	24.11	24.11
1	2	255	16.31	16.53	40.64
2	3	487	31.16	31.56	72.20
3	4	217	13.88	14.06	86.26
4	盡量嚴格限制	212	13.56	13.74	100.00
NA	NA	20	1.28	NA	NA
total N=1563 · valid N=1543 · x̄=1.77 · σ=1.33

c.以學生身份且在本地大學完成學位

table(tscs231$f1c)

 -4   1   2   3   4   5 
 21 471 264 436 189 182 

tscs231$jpss <- rec(tscs231$f1c, rec="1=0[盡量不要限制]; 2=1[2];3=2[3];4=3[4];5=4[盡量嚴格限制]", as.num = F)
frq(tscs231$jpss, out="v")

F1c.請問您認為政府應不應該限制【以學生身份且在本地大學完成學位的歐美或日本人】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？ (x) <categorical>

val	label	frq	raw.prc	valid.prc	cum.prc
0	盡量不要限制	471	30.13	30.54	30.54
1	2	264	16.89	17.12	47.67
2	3	436	27.90	28.27	75.94
3	4	189	12.09	12.26	88.20
4	盡量嚴格限制	182	11.64	11.80	100.00
NA	NA	21	1.34	NA	NA
total N=1563 · valid N=1542 · x̄=1.58 · σ=1.35

F2.港澳人士

a.以結婚身份來的

table(tscs231$f2a)

 -4   1   2   3   4   5 
 22 378 251 460 207 245 

tscs231$hkjf <- rec(tscs231$f2a, rec="1=0[盡量不要限制]; 2=1[2];3=2[3];4=3[4];5=4[盡量嚴格限制]", as.num = F)
frq(tscs231$hkjf, out="v")

F2a.最近幾年來，有許多國家的人以不同方式的來臺灣居住，請問您認為政府應不應該限制【以結婚身份來的港澳人士】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？ (x) <categorical>

val	label	frq	raw.prc	valid.prc	cum.prc
0	盡量不要限制	378	24.18	24.53	24.53
1	2	251	16.06	16.29	40.82
2	3	460	29.43	29.85	70.67
3	4	207	13.24	13.43	84.10
4	盡量嚴格限制	245	15.67	15.90	100.00
NA	NA	22	1.41	NA	NA
total N=1563 · valid N=1541 · x̄=1.80 · σ=1.37

b.以投資移民或工作簽證來的

table(tscs231$f2b)

 -4   1   2   3   4   5 
 24 268 244 450 267 310 

tscs231$hktz <- rec(tscs231$f2b, rec="1=0[盡量不要限制]; 2=1[2];3=2[3];4=3[4];5=4[盡量嚴格限制]", as.num = F)
frq(tscs231$hktz, out="v")

F2b.請問您認為政府應不應該限制【以投資移民或工作簽證來的港澳人士】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？ (x) <categorical>

val	label	frq	raw.prc	valid.prc	cum.prc
0	盡量不要限制	268	17.15	17.41	17.41
1	2	244	15.61	15.85	33.27
2	3	450	28.79	29.24	62.51
3	4	267	17.08	17.35	79.86
4	盡量嚴格限制	310	19.83	20.14	100.00
NA	NA	24	1.54	NA	NA
total N=1563 · valid N=1539 · x̄=2.07 · σ=1.35

c.以學生身份且在本地大學完成學位

table(tscs231$f2c)

 -4   1   2   3   4   5 
 23 373 247 447 220 253 

tscs231$hkss <- rec(tscs231$f2c, rec="1=0[盡量不要限制]; 2=1[2];3=2[3];4=3[4];5=4[盡量嚴格限制]", as.num = F)
frq(tscs231$hkss, out="v")

F2c.請問您認為政府應不應該限制【以學生身份且在本地大學完成學位的港澳人士】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？ (x) <categorical>

val	label	frq	raw.prc	valid.prc	cum.prc
0	盡量不要限制	373	23.86	24.22	24.22
1	2	247	15.80	16.04	40.26
2	3	447	28.60	29.03	69.29
3	4	220	14.08	14.29	83.57
4	盡量嚴格限制	253	16.19	16.43	100.00
NA	NA	23	1.47	NA	NA
total N=1563 · valid N=1540 · x̄=1.83 · σ=1.38

F3.中國大陸人士

a.以結婚身份來的

table(tscs231$f3a)

 -4   1   2   3   4   5 
 18 325 209 423 241 347 

tscs231$chjf <- rec(tscs231$f3a, rec="1=0[盡量不要限制]; 2=1[2];3=2[3];4=3[4];5=4[盡量嚴格限制]", as.num = F)
frq(tscs231$chjf, out="v")

F3a.最近幾年來，有許多國家的人以不同方式的來臺灣居住，請問您認為政府應不應該限制【以結婚身份來的中國大陸人士】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一 (x) <categorical>

val	label	frq	raw.prc	valid.prc	cum.prc
0	盡量不要限制	325	20.79	21.04	21.04
1	2	209	13.37	13.53	34.56
2	3	423	27.06	27.38	61.94
3	4	241	15.42	15.60	77.54
4	盡量嚴格限制	347	22.20	22.46	100.00
NA	NA	18	1.15	NA	NA
total N=1563 · valid N=1545 · x̄=2.05 · σ=1.42

b.以投資移民或工作簽證來的

table(tscs231$f3b)

 -4   1   2   3   4   5 
 21 202 175 411 305 449 

tscs231$chtz <- rec(tscs231$f3b, rec="1=0[盡量不要限制]; 2=1[2];3=2[3];4=3[4];5=4[盡量嚴格限制]", as.num = F)
frq(tscs231$chtz, out="v")

F3b.請問您認為政府應不應該限制【以投資移民或工作簽證來的中國大陸人士】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？ (x) <categorical>

val	label	frq	raw.prc	valid.prc	cum.prc
0	盡量不要限制	202	12.92	13.10	13.10
1	2	175	11.20	11.35	24.45
2	3	411	26.30	26.65	51.10
3	4	305	19.51	19.78	70.88
4	盡量嚴格限制	449	28.73	29.12	100.00
NA	NA	21	1.34	NA	NA
total N=1563 · valid N=1542 · x̄=2.40 · σ=1.36

c.以學生身份且在本地大學完成學位

table(tscs231$f3c)

 -4   1   2   3   4   5 
 26 304 213 413 264 343 

tscs231$chss <- rec(tscs231$f3c, rec="1=0[盡量不要限制]; 2=1[2];3=2[3];4=3[4];5=4[盡量嚴格限制]", as.num = F)
frq(tscs231$chss, out="v")

F3c.請問您認為政府應不應該限制【以學生身份且在本地大學完成學位的中國大陸人士】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？ (x) <categorical>

val	label	frq	raw.prc	valid.prc	cum.prc
0	盡量不要限制	304	19.45	19.78	19.78
1	2	213	13.63	13.86	33.64
2	3	413	26.42	26.87	60.51
3	4	264	16.89	17.18	77.68
4	盡量嚴格限制	343	21.94	22.32	100.00
NA	NA	26	1.66	NA	NA
total N=1563 · valid N=1537 · x̄=2.08 · σ=1.41

F4.東南亞地區人士

a.以結婚身份來的

table(tscs231$f4a)

 -4   1   2   3   4   5 
 16 366 260 483 229 209 

tscs231$dnjf <- rec(tscs231$f4a, rec="1=0[盡量不要限制]; 2=1[2];3=2[3];4=3[4];5=4[盡量嚴格限制]", as.num = F)
frq(tscs231$dnjf, out="v")

F4a.最近幾年來，有許多國家的人以不同方式的來臺灣居住，請問您認為政府應不應該限制【以結婚身份來的東南亞地區人士】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪 (x) <categorical>

val	label	frq	raw.prc	valid.prc	cum.prc
0	盡量不要限制	366	23.42	23.66	23.66
1	2	260	16.63	16.81	40.47
2	3	483	30.90	31.22	71.69
3	4	229	14.65	14.80	86.49
4	盡量嚴格限制	209	13.37	13.51	100.00
NA	NA	16	1.02	NA	NA
total N=1563 · valid N=1547 · x̄=1.78 · σ=1.32

b.以投資移民或工作簽證來的

table(tscs231$f4b)

 -4   1   2   3   4   5 
 20 262 255 495 266 265 

tscs231$dntz <- rec(tscs231$f4b, rec="1=0[盡量不要限制]; 2=1[2];3=2[3];4=3[4];5=4[盡量嚴格限制]", as.num = F)
frq(tscs231$dntz, out="v")

F4b.請問您認為政府應不應該限制【以投資移民或工作簽證來的東南亞地區人士】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？ (x) <categorical>

val	label	frq	raw.prc	valid.prc	cum.prc
0	盡量不要限制	262	16.76	16.98	16.98
1	2	255	16.31	16.53	33.51
2	3	495	31.67	32.08	65.59
3	4	266	17.02	17.24	82.83
4	盡量嚴格限制	265	16.95	17.17	100.00
NA	NA	20	1.28	NA	NA
total N=1563 · valid N=1543 · x̄=2.01 · σ=1.31

c.以學生身份且在本地大學完成學位

table(tscs231$f4c)

 -4   1   2   3   4   5 
 22 369 254 467 230 221 

tscs231$dnss <- rec(tscs231$f4c, rec="1=0[盡量不要限制]; 2=1[2];3=2[3];4=3[4];5=4[盡量嚴格限制]", as.num = F)
frq(tscs231$dnss, out="v")

F4c.請問您認為政府應不應該限制【以學生身份且在本地大學完成學位的東南亞地區人士】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？ (x) <categorical>

val	label	frq	raw.prc	valid.prc	cum.prc
0	盡量不要限制	369	23.61	23.95	23.95
1	2	254	16.25	16.48	40.43
2	3	467	29.88	30.30	70.73
3	4	230	14.72	14.93	85.66
4	盡量嚴格限制	221	14.14	14.34	100.00
NA	NA	22	1.41	NA	NA
total N=1563 · valid N=1541 · x̄=1.79 · σ=1.34

我認為台灣人對於各個不同地區的移民態度會差異很大，首先最友好的應該是歐美與日本的移民，因為在政治上普遍會將歐美視為先進國家和自由民主陣營的盟友，而台灣人又對於日本抱有親近感。

第二友好的應該是港澳地區，，台灣人通常會將港澳特區和大陸地區區分開來，並認為它們的經濟教育文化等面向都更為先進優秀。

大陸地區和東南亞地區我認為東南亞會優於中國大陸，但兩者都處於台灣人都不太對其友好的地區，因為政治上的因素，對於大陸人可能會抱有害怕或是敵意之看法，這種可能視為敵人的想法會造成滿大的排斥感。東南亞則是會有身為落後野蠻地區之刻板印象，導致對其具有一些排斥感。

假設

H0:台灣人身分認同與對移民的看法無關

H1:台灣人身分認同與對移民的看法有關

四.關聯性檢驗

第一部分

library(sjPlot)
tab_xtab(tscs231$Tai,　tscs231$imza, 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" 
         )

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全不是臺灣人」。請問您會選幾分？	C7a.社會上許多人對移民來臺灣的外國人有不同的看法。請問您同不同意下面的說法？移民會使治安變差					Total
	非常同意	同意	不同意也不反對	不同意	非常不同意
高度台灣人認同	40 3.3 % 83.3 %	358 29.1 % 82.3 %	7 0.6 % 87.5 %	746 60.7 % 78.2 %	79 6.4 % 79.8 %	1230 100 % 79.7 %
非或輕度台灣人認同	8 2.5 % 16.7 %	77 24.5 % 17.7 %	1 0.3 % 12.5 %	208 66.2 % 21.8 %	20 6.4 % 20.2 %	314 100 % 20.3 %
Total	48 3.1 % 100 %	435 28.2 % 100 %	8 0.5 % 100 %	954 61.8 % 100 %	99 6.4 % 100 %	1544 100 % 100 %
χ2=3.834 · df=4 · Cramer's V=0.050 · Fisher's p=0.459

tab_xtab(tscs231$Tai,　tscs231$imec, 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" 
         )

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全不是臺灣人」。請問您會選幾分？	C7b.社會上許多人對移民來臺灣的外國人有不同的看法。請問您同不同意下面的說法？移民對臺灣的經濟有幫助					Total
	非常同意	同意	不同意也不反對	不同意	非常不同意
高度台灣人認同	101 8.3 % 81.5 %	813 66.7 % 78.6 %	16 1.3 % 94.1 %	280 23 % 81.2 %	9 0.7 % 75 %	1219 100 % 79.5 %
非或輕度台灣人認同	23 7.3 % 18.5 %	222 70.7 % 21.4 %	1 0.3 % 5.9 %	65 20.7 % 18.8 %	3 1 % 25 %	314 100 % 20.5 %
Total	124 8.1 % 100 %	1035 67.5 % 100 %	17 1.1 % 100 %	345 22.5 % 100 %	12 0.8 % 100 %	1533 100 % 100 %
χ2=3.825 · df=4 · Cramer's V=0.050 · Fisher's p=0.443

tab_xtab(tscs231$Tai,　tscs231$imwo, 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" 
         )

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全不是臺灣人」。請問您會選幾分？	C7c.社會上許多人對移民來臺灣的外國人有不同的看法。請問您同不同意下面的說法？移民會搶走在臺灣出生的人的工作					Total
	非常同意	同意	不同意也不反對	不同意	非常不同意
高度台灣人認同	60 4.8 % 77.9 %	442 35.7 % 80.5 %	8 0.6 % 100 %	672 54.3 % 79.3 %	56 4.5 % 76.7 %	1238 100 % 79.7 %
非或輕度台灣人認同	17 5.4 % 22.1 %	107 33.9 % 19.5 %	0 0 % 0 %	175 55.4 % 20.7 %	17 5.4 % 23.3 %	316 100 % 20.3 %
Total	77 5 % 100 %	549 35.3 % 100 %	8 0.5 % 100 %	847 54.5 % 100 %	73 4.7 % 100 %	1554 100 % 100 %
χ2=2.877 · df=4 · Cramer's V=0.043 · Fisher's p=0.613

tab_xtab(tscs231$Tai,　tscs231$imcu, 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" 
         )

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全不是臺灣人」。請問您會選幾分？	C7d.社會上許多人對移民來臺灣的外國人有不同的看法。請問您同不同意下面的說法？移民會帶來新的想法和文化，讓我國社會更好					Total
	非常同意	同意	不同意也不反對	不同意	非常不同意
高度台灣人認同	158 12.9 % 77.8 %	760 62.1 % 79.3 %	27 2.2 % 96.4 %	268 21.9 % 79.8 %	11 0.9 % 84.6 %	1224 100 % 79.6 %
非或輕度台灣人認同	45 14.3 % 22.2 %	198 63.1 % 20.7 %	1 0.3 % 3.6 %	68 21.7 % 20.2 %	2 0.6 % 15.4 %	314 100 % 20.4 %
Total	203 13.2 % 100 %	958 62.3 % 100 %	28 1.8 % 100 %	336 21.8 % 100 %	13 0.8 % 100 %	1538 100 % 100 %
χ2=5.519 · df=4 · Cramer's V=0.060 · Fisher's p=0.203

tab_xtab(tscs231$Tai,　tscs231$lobe, 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" 
         )

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全不是臺灣人」。請問您會選幾分？	C7e.社會上許多人對移民來臺灣的外國人有不同的看法。請問您同不同意下面的說法？臺灣出生的人，他的工作、居住與健康照護需求，應該優先於外來移民					Total
	非常同意	同意	不同意也不反對	不同意	非常不同意
高度台灣人認同	286 23 % 86.9 %	578 46.5 % 78.3 %	4 0.3 % 80 %	338 27.2 % 78.1 %	36 2.9 % 73.5 %	1242 100 % 79.9 %
非或輕度台灣人認同	43 13.8 % 13.1 %	160 51.3 % 21.7 %	1 0.3 % 20 %	95 30.4 % 21.9 %	13 4.2 % 26.5 %	312 100 % 20.1 %
Total	329 21.2 % 100 %	738 47.5 % 100 %	5 0.3 % 100 %	433 27.9 % 100 %	49 3.2 % 100 %	1554 100 % 100 %
χ2=13.457 · df=4 · Cramer's V=0.093 · Fisher's p=0.004

tab_xtab(tscs231$Tai,　tscs231$imsu, 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" 
         )

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全不是臺灣人」。請問您會選幾分？	C8.請問您認為來臺灣居住的移民人數，未來應該要增加、減少還是維持現狀？					Total
	大幅增加	增加一些	維持現狀	減少一些	大幅減少
高度台灣人認同	51 4.2 % 85 %	240 19.8 % 75.9 %	705 58 % 80.4 %	166 13.7 % 76.1 %	53 4.4 % 91.4 %	1215 100 % 79.5 %
非或輕度台灣人認同	9 2.9 % 15 %	76 24.2 % 24.1 %	172 54.8 % 19.6 %	52 16.6 % 23.9 %	5 1.6 % 8.6 %	314 100 % 20.5 %
Total	60 3.9 % 100 %	316 20.7 % 100 %	877 57.4 % 100 %	218 14.3 % 100 %	58 3.8 % 100 %	1529 100 % 100 %
χ2=10.493 · df=4 · Cramer's V=0.083 · p=0.033

第一部分關聯性分析

在6種對移民的看法之中，台灣人身分認同和外來移民對台灣當地的治安，經濟，工作，文化四個範疇造成之影響的看法之間未達統計上的顯著水準，表示兩變數之間很可能不具相關性，p值均大於0.05。這可能是因為樣本皆是台灣的居民，皆能直觀的對其有類似或一致的想法，因此這四個因素與身分認同才未達統計上的顯著水準，不過可以看到具有台灣人認同的與原本預想的相同，對於移民抱持著較為友善開放的想法。

而在優先保障台灣本土居民的工作、居住與健康照護需求與身分認同的關聯中p=0.005，兩者之間具有關聯性，可以看到台灣人認同的人同意要保障權利的比例更高，我認為這是因為台灣人認同對於台灣本地居民的各項權利更為看重，也就是對於自己的權利必須要更優於外來移民。

對移民的數量看法和身分認同的關聯中p=0.033，具有部分關聯性，身分認同的差異在減少移民數量之比例大致相同，主要差在維持現狀和增加數量兩種看法，台灣人認同對於增加數量的比例較少，維持現狀較多，我認為這一樣是對於台灣環境和權利的注重所導致的，希望移民的數量與現有相同，不要增加以免占用到台灣人的資源和權利。

假設

H0:台灣人身分認同與對移民的來源地之看法無關 H1:台灣人身分認同與對移民的來源地之看法有關

第二部分

1.歐美或日本人

tab_xtab(tscs231$Tai,　tscs231$jpjf, 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" 
         )

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全不是臺灣人」。請問您會選幾分？	F1a.最近幾年來，有許多國家的人以不同方式的來臺灣居住，請問您認為政府應不應該限制【以結婚身份來的歐美或日本人】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一					Total
	盡量不要限制	2	3	4	盡量嚴格限制
高度台灣人認同	391 31.8 % 81.3 %	211 17.1 % 80.5 %	369 30 % 77.7 %	113 9.2 % 76.9 %	147 11.9 % 82.6 %	1231 100 % 79.8 %
非或輕度台灣人認同	90 28.8 % 18.7 %	51 16.3 % 19.5 %	106 34 % 22.3 %	34 10.9 % 23.1 %	31 9.9 % 17.4 %	312 100 % 20.2 %
Total	481 31.2 % 100 %	262 17 % 100 %	475 30.8 % 100 %	147 9.5 % 100 %	178 11.5 % 100 %	1543 100 % 100 %
χ2=3.704 · df=4 · Cramer's V=0.049 · p=0.448

tab_xtab(tscs231$Tai,　tscs231$jptz, 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" 
         )

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全不是臺灣人」。請問您會選幾分？	F1b.請問您認為政府應不應該限制【以投資移民或工作簽證來的歐美或日本人】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？					Total
	盡量不要限制	2	3	4	盡量嚴格限制
高度台灣人認同	309 25.1 % 83.3 %	192 15.6 % 75.6 %	385 31.3 % 79.1 %	166 13.5 % 76.5 %	177 14.4 % 83.5 %	1229 100 % 79.8 %
非或輕度台灣人認同	62 19.9 % 16.7 %	62 19.9 % 24.4 %	102 32.7 % 20.9 %	51 16.3 % 23.5 %	35 11.2 % 16.5 %	312 100 % 20.2 %
Total	371 24.1 % 100 %	254 16.5 % 100 %	487 31.6 % 100 %	217 14.1 % 100 %	212 13.8 % 100 %	1541 100 % 100 %
χ2=9.002 · df=4 · Cramer's V=0.076 · p=0.061

tab_xtab(tscs231$Tai,　tscs231$jpss, 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" 
         )

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全不是臺灣人」。請問您會選幾分？	F1c.請問您認為政府應不應該限制【以學生身份且在本地大學完成學位的歐美或日本人】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？					Total
	盡量不要限制	2	3	4	盡量嚴格限制
高度台灣人認同	385 31.4 % 82.1 %	197 16.1 % 74.6 %	336 27.4 % 77.1 %	154 12.6 % 81.5 %	155 12.6 % 85.2 %	1227 100 % 79.7 %
非或輕度台灣人認同	84 26.8 % 17.9 %	67 21.4 % 25.4 %	100 31.9 % 22.9 %	35 11.2 % 18.5 %	27 8.6 % 14.8 %	313 100 % 20.3 %
Total	469 30.5 % 100 %	264 17.1 % 100 %	436 28.3 % 100 %	189 12.3 % 100 %	182 11.8 % 100 %	1540 100 % 100 %
χ2=11.456 · df=4 · Cramer's V=0.086 · p=0.022

2.港澳人士

tab_xtab(tscs231$Tai,　tscs231$hkjf, 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" 
         )

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全不是臺灣人」。請問您會選幾分？	F2a.最近幾年來，有許多國家的人以不同方式的來臺灣居住，請問您認為政府應不應該限制【以結婚身份來的港澳人士】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？					Total
	盡量不要限制	2	3	4	盡量嚴格限制
高度台灣人認同	300 24.4 % 79.6 %	192 15.6 % 76.5 %	364 29.7 % 79.3 %	164 13.4 % 79.2 %	207 16.9 % 84.5 %	1227 100 % 79.7 %
非或輕度台灣人認同	77 24.7 % 20.4 %	59 18.9 % 23.5 %	95 30.4 % 20.7 %	43 13.8 % 20.8 %	38 12.2 % 15.5 %	312 100 % 20.3 %
Total	377 24.5 % 100 %	251 16.3 % 100 %	459 29.8 % 100 %	207 13.5 % 100 %	245 15.9 % 100 %	1539 100 % 100 %
χ2=5.150 · df=4 · Cramer's V=0.058 · p=0.272

tab_xtab(tscs231$Tai,　tscs231$hktz, 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" 
         )

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全不是臺灣人」。請問您會選幾分？	F2b.請問您認為政府應不應該限制【以投資移民或工作簽證來的港澳人士】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？					Total
	盡量不要限制	2	3	4	盡量嚴格限制
高度台灣人認同	211 17.2 % 78.7 %	183 14.9 % 75.3 %	360 29.4 % 80 %	212 17.3 % 79.4 %	260 21.2 % 84.1 %	1226 100 % 79.8 %
非或輕度台灣人認同	57 18.3 % 21.3 %	60 19.3 % 24.7 %	90 28.9 % 20 %	55 17.7 % 20.6 %	49 15.8 % 15.9 %	311 100 % 20.2 %
Total	268 17.4 % 100 %	243 15.8 % 100 %	450 29.3 % 100 %	267 17.4 % 100 %	309 20.1 % 100 %	1537 100 % 100 %
χ2=6.873 · df=4 · Cramer's V=0.067 · p=0.143

tab_xtab(tscs231$Tai,　tscs231$hkss, 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" 
         )

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全不是臺灣人」。請問您會選幾分？	F2c.請問您認為政府應不應該限制【以學生身份且在本地大學完成學位的港澳人士】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？					Total
	盡量不要限制	2	3	4	盡量嚴格限制
高度台灣人認同	291 23.7 % 78.4 %	191 15.6 % 77.3 %	350 28.5 % 78.3 %	175 14.3 % 79.5 %	220 17.9 % 87 %	1227 100 % 79.8 %
非或輕度台灣人認同	80 25.7 % 21.6 %	56 18 % 22.7 %	97 31.2 % 21.7 %	45 14.5 % 20.5 %	33 10.6 % 13 %	311 100 % 20.2 %
Total	371 24.1 % 100 %	247 16.1 % 100 %	447 29.1 % 100 %	220 14.3 % 100 %	253 16.4 % 100 %	1538 100 % 100 %
χ2=10.027 · df=4 · Cramer's V=0.081 · p=0.040

3.中國大陸人士

tab_xtab(tscs231$Tai,　tscs231$chjf, 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" 
         )

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全不是臺灣人」。請問您會選幾分？	F3a.最近幾年來，有許多國家的人以不同方式的來臺灣居住，請問您認為政府應不應該限制【以結婚身份來的中國大陸人士】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一					Total
	盡量不要限制	2	3	4	盡量嚴格限制
高度台灣人認同	254 20.6 % 78.4 %	163 13.2 % 78 %	320 26 % 75.8 %	191 15.5 % 79.3 %	304 24.7 % 87.6 %	1232 100 % 79.8 %
非或輕度台灣人認同	70 22.5 % 21.6 %	46 14.8 % 22 %	102 32.8 % 24.2 %	50 16.1 % 20.7 %	43 13.8 % 12.4 %	311 100 % 20.2 %
Total	324 21 % 100 %	209 13.5 % 100 %	422 27.3 % 100 %	241 15.6 % 100 %	347 22.5 % 100 %	1543 100 % 100 %
χ2=18.145 · df=4 · Cramer's V=0.108 · p=0.001

tab_xtab(tscs231$Tai,　tscs231$chtz, 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" 
         )

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全不是臺灣人」。請問您會選幾分？	F3b.請問您認為政府應不應該限制【以投資移民或工作簽證來的中國大陸人士】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？					Total
	盡量不要限制	2	3	4	盡量嚴格限制
高度台灣人認同	155 12.6 % 76.7 %	130 10.6 % 74.3 %	311 25.3 % 76 %	235 19.1 % 77 %	398 32.4 % 88.6 %	1229 100 % 79.8 %
非或輕度台灣人認同	47 15.1 % 23.3 %	45 14.5 % 25.7 %	98 31.5 % 24 %	70 22.5 % 23 %	51 16.4 % 11.4 %	311 100 % 20.2 %
Total	202 13.1 % 100 %	175 11.4 % 100 %	409 26.6 % 100 %	305 19.8 % 100 %	449 29.2 % 100 %	1540 100 % 100 %
χ2=31.281 · df=4 · Cramer's V=0.143 · p=0.000

tab_xtab(tscs231$Tai,　tscs231$chss, 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" 
         )

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全不是臺灣人」。請問您會選幾分？	F3c.請問您認為政府應不應該限制【以學生身份且在本地大學完成學位的中國大陸人士】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？					Total
	盡量不要限制	2	3	4	盡量嚴格限制
高度台灣人認同	234 19.1 % 77.2 %	158 12.9 % 74.2 %	320 26.1 % 77.7 %	209 17.1 % 79.2 %	304 24.8 % 88.6 %	1225 100 % 79.8 %
非或輕度台灣人認同	69 22.3 % 22.8 %	55 17.7 % 25.8 %	92 29.7 % 22.3 %	55 17.7 % 20.8 %	39 12.6 % 11.4 %	310 100 % 20.2 %
Total	303 19.7 % 100 %	213 13.9 % 100 %	412 26.8 % 100 %	264 17.2 % 100 %	343 22.3 % 100 %	1535 100 % 100 %
χ2=23.238 · df=4 · Cramer's V=0.123 · p=0.000

4.東南亞人士

tab_xtab(tscs231$Tai,　tscs231$dnjf, 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" 
         )

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全不是臺灣人」。請問您會選幾分？	F4a.最近幾年來，有許多國家的人以不同方式的來臺灣居住，請問您認為政府應不應該限制【以結婚身份來的東南亞地區人士】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪					Total
	盡量不要限制	2	3	4	盡量嚴格限制
高度台灣人認同	299 24.3 % 81.7 %	204 16.6 % 78.8 %	375 30.4 % 77.8 %	181 14.7 % 79 %	173 14 % 82.8 %	1232 100 % 79.7 %
非或輕度台灣人認同	67 21.4 % 18.3 %	55 17.6 % 21.2 %	107 34.2 % 22.2 %	48 15.3 % 21 %	36 11.5 % 17.2 %	313 100 % 20.3 %
Total	366 23.7 % 100 %	259 16.8 % 100 %	482 31.2 % 100 %	229 14.8 % 100 %	209 13.5 % 100 %	1545 100 % 100 %
χ2=3.401 · df=4 · Cramer's V=0.047 · p=0.493

tab_xtab(tscs231$Tai,　tscs231$dntz, 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" 
         )

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全不是臺灣人」。請問您會選幾分？	F4b.請問您認為政府應不應該限制【以投資移民或工作簽證來的東南亞地區人士】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？					Total
	盡量不要限制	2	3	4	盡量嚴格限制
高度台灣人認同	215 17.5 % 82.1 %	192 15.6 % 75.6 %	386 31.4 % 78.1 %	214 17.4 % 80.5 %	221 18 % 83.4 %	1228 100 % 79.7 %
非或輕度台灣人認同	47 15 % 17.9 %	62 19.8 % 24.4 %	108 34.5 % 21.9 %	52 16.6 % 19.5 %	44 14.1 % 16.6 %	313 100 % 20.3 %
Total	262 17 % 100 %	254 16.5 % 100 %	494 32.1 % 100 %	266 17.3 % 100 %	265 17.2 % 100 %	1541 100 % 100 %
χ2=6.627 · df=4 · Cramer's V=0.066 · p=0.157

tab_xtab(tscs231$Tai,　tscs231$dnss, 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" 
         )

D1.請您用0至10分來表示您自認為是臺灣人的程度，10分表示「完全是臺灣人」，0分表示「完全不是臺灣人」。請問您會選幾分？	F4c.請問您認為政府應不應該限制【以學生身份且在本地大學完成學位的東南亞地區人士】取得國籍？1是儘量不要限制，5是儘量嚴格限制，請問1–5您會選哪一個？					Total
	盡量不要限制	2	3	4	盡量嚴格限制
高度台灣人認同	293 23.9 % 79.6 %	192 15.7 % 75.6 %	367 29.9 % 78.8 %	185 15.1 % 80.4 %	189 15.4 % 85.5 %	1226 100 % 79.7 %
非或輕度台灣人認同	75 24 % 20.4 %	62 19.8 % 24.4 %	99 31.6 % 21.2 %	45 14.4 % 19.6 %	32 10.2 % 14.5 %	313 100 % 20.3 %
Total	368 23.9 % 100 %	254 16.5 % 100 %	466 30.3 % 100 %	230 14.9 % 100 %	221 14.4 % 100 %	1539 100 % 100 %
χ2=7.602 · df=4 · Cramer's V=0.070 · p=0.107

第二部分關聯性分析

在四種不同的移民來源地當中，身分認同與東南亞移民未達統計上的顯著水準，表示兩變數之間很可能不具相關性，日本歐美和港澳皆只有以學生身分取得國籍這個方式有達到統計上的顯著水準，而中國大陸則是全部都有達到統計上的顯著水準，這些結果顯示出它們有可能具有相關性。

對於歐美日本和港澳移民看法之中，身分認同只與學生身分取得國籍有關聯的原因我認為是比起結婚和工作投資這兩個方式，學生身分的入籍正當性和對於台灣本地的幫助皆是最低的程度，因此重視台灣利益的台灣人對這個方式的在意度更高。然後根據檢驗結果，台灣人認同對於歐美日本地區透過學生身分入籍的看法兩極化程度較高，而對於港澳要嚴格限制的比例更高一些。我認為這是因為港澳屬於中國大陸政府管轄，因此台灣人仍然會對其抱持一些警戒心，對於歐美日本的看法可能是因為對那裡來的留學生看法不一的關係。

再來是中國大陸來的移民，跟我預測的一樣，台灣人認同對於大陸地區的移民排斥感是最高的，而且三種管道的p值分別是0.001,<0.001,<0.001，具有高度的關聯性，可以看到高度台灣人認同的應該嚴格限制看法相比來說高出許多，我認為這是由於政治上的因素，許多台灣人會將大陸人視為不同民族的人或甚至是敵人，因此比起台灣本土意識較低的人會更具有反對大陸移民的想法。而三種管道中投資或工作最受到排斥，我認為這可能是因為會引發對於所謂中資入侵可能的疑慮。

五.MCA分析

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

tscs231forMCA <- select(tscs231, 
                         c(Tai,imza,imec,imwo,imcu,lobe,imsu,
  jpjf,jptz,jpss,
  hkjf,hktz,hkss,
  chjf,chtz,chss,
  dnjf,dntz,dnss
                           ))
tscs231forMCA.nona <- na.omit(tscs231forMCA)
par(mfrow=c(2,3))
for (i in 1:ncol(tscs231forMCA.nona)) {
  plot(tscs231forMCA.nona[,i], main=colnames(tscs231forMCA.nona)[i],
       ylab = "Count", col="steelblue", las = 2, ylim=c(0,1500))
}

par(mfrow=c(1,1))

library(FactoMineR)
library(factoextra)

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

Loading required package: ggplot2

Attaching package: 'ggplot2'

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

    set_theme

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

names(tscs231forMCA.nona)  

 [1] "Tai"  "imza" "imec" "imwo" "imcu" "lobe" "imsu" "jpjf" "jptz" "jpss"
[11] "hkjf" "hktz" "hkss" "chjf" "chtz" "chss" "dnjf" "dntz" "dnss"

res<-MCA(tscs231forMCA.nona, ncp=10, graph= F) 

summary(res, nb.dec = 3, nbelements=10, nbind = 10, 
        ncp = 2, file="result2dim.txt")
res$dimdesc <- dimdesc(res, axes = 1:10)
write.infile(res$dimdesc, file ="MCAresults",append=F)
write.infile(res$eig, file ="MCAresults",append=T)
write.infile(res$var, file ="MCAresults",append=T)
fviz_screeplot(res, ncp=10) 

Warning in geom_bar(stat = "identity", fill = barfill, color = barcolor, :
Ignoring empty aesthetic: `width`.

library(corrplot) 

corrplot 0.95 loaded

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

plot(res, axes=c(1, 2), new.plot=TRUE, choix="var", 
     col.var="red", col.quali.sup="darkgreen", 
      
     autoLab = "yes",
  #  title="The Distribution of Variables on the MCA Factor Map",
     title="", cex=0.8,
     xlim=c(0,0.4), ylim=c(0, 0.6))

Warning: Removed 12 rows containing missing values or values outside the scale range
(`geom_point()`).

Warning: Removed 12 rows containing missing values or values outside the scale range
(`geom_text_repel()`).

由這張圖可以看到主要變數集中在左下角，僅有imsu(對移民數量的看法)較為突出，其他變數分別為Tai(台灣認同),lobe(對台灣本地人權益的看法),imwo(對移民影響本地工作的看法),imcu(對移民影響本地文化的看法),imza(對移民影響本地治安的看法),imec(對移民影響本地經濟的看法)，由於這些變數都集中在第一象限，我判斷x軸是對移民事務的看法，而imsu位於圖中最高的位置，因此y軸應該是代表關於移民人數看法。

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 70",
     invisible=c("ind", "quali.sup"), 
     autoLab = "yes",
     title="") 

Warning: ggrepel: 42 unlabeled data points (too many overlaps). Consider
increasing max.overlaps

變數意涵:移民來源-ch中國大陸,hk港澳,jp歐美日本,dn東南亞，移民方式-jf結婚,tz投資或工作,ss學生，選項0-盡量不要限制,4-盡量嚴格限制

從這張圖來看，左上角跟右上角分別具有一團靠近的變數，彼此之間較為相關，左上角大部分的變數都是屬於盡量不要限制的正面看法，差異在於移民來源地跟方式的不同。左上角的變數都是屬於盡量要嚴格限制的負面看法，差異也是在於移民來源地跟方式的不同。由此可以推論出，對於移民的正面或負面看法通常會保持相近的觀點，較不會因為是不同地方來的而有較大差異。

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.2,1.2), ylim=c(-0.6,2), 
     autoLab = "yes",
     title="") 

Warning: Removed 29 rows containing missing values or values outside the scale range
(`geom_point()`).

Warning: Removed 29 rows containing missing values or values outside the scale range
(`geom_text_repel()`).

Warning: ggrepel: 4 unlabeled data points (too many overlaps). Consider
increasing max.overlaps

承接上圖，這張圖的重點變數跟上一張圖的聚集部分相近，貢獻更高的變數依然是由上述的那些產生，一樣是分為盡量不要限制和盡量嚴格限制的對立，其組成也是各個移民來源地和方式的不同，所以解讀結果和上述的圖片相近。

六.二元勝算對數迴歸分析

假設:台灣人認同對移民的態度有影響

以下分析的變數Tai0=高度台灣人認同 Tai1=非或輕度台灣人認同 其他移民相關變數

0=正向看法 1=負面看法

第一部分

#Tai 1否 0是
#第一部分
tscs231$imza2 <- factor(
  ifelse(tscs231$imza %in% c("3","4"), "pos",
         ifelse(tscs231$imza %in% c("0","1"), "nag", NA)),
  levels = c("pos","nag"))
md01 <- glm(imza2 ~ Tai,
            family=binomial, data=tscs231)
summary(md01)

Call:
glm(formula = imza2 ~ Tai, family = binomial, data = tscs231)

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept) -0.72893    0.06103 -11.944   <2e-16 ***
Tai1        -0.25776    0.14098  -1.828   0.0675 .  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1912.7  on 1535  degrees of freedom
Residual deviance: 1909.3  on 1534  degrees of freedom
  (27 observations deleted due to missingness)
AIC: 1913.3

Number of Fisher Scoring iterations: 4

tscs231$imec2 <- factor(
  ifelse(tscs231$imec %in% c("0","1"), "pos",
         ifelse(tscs231$imec %in% c("3","4"), "nag", NA)),
  levels = c("pos","nag"))
md02 <- glm(imec2 ~ Tai,
            family=binomial, data=tscs231)
summary(md02)

Call:
glm(formula = imec2 ~ Tai, family = binomial, data = tscs231)

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept) -1.15140    0.06749 -17.062   <2e-16 ***
Tai1        -0.13035    0.15278  -0.853    0.394    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1654.9  on 1515  degrees of freedom
Residual deviance: 1654.2  on 1514  degrees of freedom
  (47 observations deleted due to missingness)
AIC: 1658.2

Number of Fisher Scoring iterations: 4

tscs231$imwo2 <- factor(
  ifelse(tscs231$imwo %in% c("3","4"), "pos",
         ifelse(tscs231$imwo %in% c("0","1"), "nag", NA)),
  levels = c("pos","nag"))
md03 <- glm(imwo2 ~ Tai,
            family=binomial, data=tscs231)
summary(md03)

Call:
glm(formula = imwo2 ~ Tai, family = binomial, data = tscs231)

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept) -0.37170    0.05801  -6.407 1.48e-10 ***
Tai1        -0.06551    0.12899  -0.508    0.612    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 2087.0  on 1545  degrees of freedom
Residual deviance: 2086.7  on 1544  degrees of freedom
  (17 observations deleted due to missingness)
AIC: 2090.7

Number of Fisher Scoring iterations: 4

tscs231$imcu2 <- factor(
  ifelse(tscs231$imcu %in% c("0","1"), "pos",
         ifelse(tscs231$imcu %in% c("3","4"), "nag", NA)),
  levels = c("pos","nag"))
md04 <- glm(imcu2 ~ Tai,
            family=binomial, data=tscs231)
summary(md04)

Call:
glm(formula = imcu2 ~ Tai, family = binomial, data = tscs231)

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept) -1.19099    0.06836 -17.421   <2e-16 ***
Tai1        -0.05358    0.15190  -0.353    0.724    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1632.7  on 1509  degrees of freedom
Residual deviance: 1632.6  on 1508  degrees of freedom
  (53 observations deleted due to missingness)
AIC: 1636.6

Number of Fisher Scoring iterations: 4

tscs231$lobe2 <- factor(
  ifelse(tscs231$lobe %in% c("3","4"), "pos",
         ifelse(tscs231$lobe %in% c("0","1"), "nag", NA)),
  levels = c("pos","nag"))
md05 <- glm(lobe2 ~ Tai,
            family=binomial, data=tscs231)
summary(md05)

Call:
glm(formula = lobe2 ~ Tai, family = binomial, data = tscs231)

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept)   0.8373     0.0619  13.528   <2e-16 ***
Tai1         -0.2062     0.1342  -1.537    0.124    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1920.9  on 1548  degrees of freedom
Residual deviance: 1918.5  on 1547  degrees of freedom
  (14 observations deleted due to missingness)
AIC: 1922.5

Number of Fisher Scoring iterations: 4

tscs231$imsu2 <- factor(
  ifelse(tscs231$imsu %in% c("0","1"), "pos",
         ifelse(tscs231$imsu %in% c("3","4"), "nag", NA)),
  levels = c("pos","nag"))
md06 <- glm(imsu2 ~ Tai,
            family=binomial, data=tscs231)
summary(md06)

Call:
glm(formula = imsu2 ~ Tai, family = binomial, data = tscs231)

Coefficients:
            Estimate Std. Error z value Pr(>|z|)   
(Intercept) -0.28425    0.08946  -3.178  0.00149 **
Tai1        -0.11535    0.19316  -0.597  0.55040   
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 888.47  on 651  degrees of freedom
Residual deviance: 888.11  on 650  degrees of freedom
  (911 observations deleted due to missingness)
AIC: 892.11

Number of Fisher Scoring iterations: 4

由以上的分析結果來看，六個變數皆和台灣人認同沒有相關性，因此這部分我的假設無法得到驗證。

第二部分

台灣人認同對不同地區的移民看法有影響

tscs231$jpjf2 <- factor(
  ifelse(tscs231$jpjf %in% c("0","1"), "pos",
         ifelse(tscs231$jpjf %in% c("3","4"), "nag", NA)),
  levels = c("pos","nag"))
md07 <- glm(jpjf2 ~ Tai,
            family=binomial, data=tscs231)
summary(md07)

Call:
glm(formula = jpjf2 ~ Tai, family = binomial, data = tscs231)

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept) -0.83958    0.07421  -11.31   <2e-16 ***
Tai1         0.06520    0.16728    0.39    0.697    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1312.5  on 1067  degrees of freedom
Residual deviance: 1312.4  on 1066  degrees of freedom
  (495 observations deleted due to missingness)
AIC: 1316.4

Number of Fisher Scoring iterations: 4

tscs231$jptz2 <- factor(
  ifelse(tscs231$jptz %in% c("0","1"), "pos",
         ifelse(tscs231$jptz %in% c("3","4"), "nag", NA)),
  levels = c("pos","nag"))
md08 <- glm(jptz2 ~ Tai,
            family=binomial, data=tscs231)
summary(md08)

Call:
glm(formula = jptz2 ~ Tai, family = binomial, data = tscs231)

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept) -0.37888    0.07008  -5.406 6.44e-08 ***
Tai1         0.01294    0.15686   0.083    0.934    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1424.5  on 1053  degrees of freedom
Residual deviance: 1424.5  on 1052  degrees of freedom
  (509 observations deleted due to missingness)
AIC: 1428.5

Number of Fisher Scoring iterations: 4

tscs231$jpss2 <- factor(
  ifelse(tscs231$jpss %in% c("0","1"), "pos",
         ifelse(tscs231$jpss %in% c("3","4"), "nag", NA)),
  levels = c("pos","nag"))
md09 <- glm(jpss2 ~ Tai,
            family=binomial, data=tscs231)
summary(md09)

Call:
glm(formula = jpss2 ~ Tai, family = binomial, data = tscs231)

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept) -0.63313    0.07039  -8.995   <2e-16 ***
Tai1        -0.25702    0.16645  -1.544    0.123    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1409.5  on 1103  degrees of freedom
Residual deviance: 1407.1  on 1102  degrees of freedom
  (459 observations deleted due to missingness)
AIC: 1411.1

Number of Fisher Scoring iterations: 4

透過分析結果顯示，對於日本地區三種方式的移民看法均和台灣人認同沒有相關性，因此我的假設沒有得到驗證。

tscs231$hkjf2 <- factor(
  ifelse(tscs231$hkjf %in% c("0","1"), "pos",
         ifelse(tscs231$hkjf %in% c("3","4"), "nag", NA)),
  levels = c("pos","nag"))
md10 <- glm(hkjf2 ~ Tai,
            family=binomial, data=tscs231)
summary(md10)

Call:
glm(formula = hkjf2 ~ Tai, family = binomial, data = tscs231)

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept) -0.28228    0.06876  -4.105 4.04e-05 ***
Tai1        -0.23593    0.15629  -1.510    0.131    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1468.4  on 1079  degrees of freedom
Residual deviance: 1466.1  on 1078  degrees of freedom
  (483 observations deleted due to missingness)
AIC: 1470.1

Number of Fisher Scoring iterations: 4

tscs231$hktz2 <- factor(
  ifelse(tscs231$hktz %in% c("0","1"), "pos",
         ifelse(tscs231$hktz %in% c("3","4"), "nag", NA)),
  levels = c("pos","nag"))
md11 <- glm(hktz2 ~ Tai,
            family=binomial, data=tscs231)
summary(md11)

Call:
glm(formula = hktz2 ~ Tai, family = binomial, data = tscs231)

Coefficients:
            Estimate Std. Error z value Pr(>|z|)   
(Intercept)  0.18063    0.06824   2.647  0.00812 **
Tai1        -0.29841    0.15106  -1.975  0.04822 * 
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1503.0  on 1086  degrees of freedom
Residual deviance: 1499.1  on 1085  degrees of freedom
  (476 observations deleted due to missingness)
AIC: 1503.1

Number of Fisher Scoring iterations: 3

exp(-0.29841)

[1] 0.7419971

tscs231$hkss2 <- factor(
  ifelse(tscs231$hkss %in% c("0","1"), "pos",
         ifelse(tscs231$hkss %in% c("3","4"), "nag", NA)),
  levels = c("pos","nag"))
md12 <- glm(hkss2 ~ Tai,
            family=binomial, data=tscs231)
summary(md12)

Call:
glm(formula = hkss2 ~ Tai, family = binomial, data = tscs231)

Coefficients:
            Estimate Std. Error z value Pr(>|z|)   
(Intercept) -0.19906    0.06787  -2.933  0.00336 **
Tai1        -0.35689    0.15742  -2.267  0.02338 * 
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1493.1  on 1090  degrees of freedom
Residual deviance: 1487.9  on 1089  degrees of freedom
  (472 observations deleted due to missingness)
AIC: 1491.9

Number of Fisher Scoring iterations: 4

exp(-0.35689)

[1] 0.6998495

透過分析結果顯示，對於港澳地區三種方式的移民看法有兩者和台灣人認同具有相關性，投資和工作的p=0.048，當非台灣人認同時對其嚴格限制的看法之機率較低。以學生身分的p = 0.02338，當非台灣人認同時對其嚴格限制的看法之機率較低，兩者的變化特徵是相同的。

tscs231$chjf2 <- factor(
  ifelse(tscs231$chjf %in% c("0","1"), "pos",
         ifelse(tscs231$chjf %in% c("3","4"), "nag", NA)),
  levels = c("pos","nag")
)

md13 <- glm(chjf2 ~ Tai,
            family=binomial, data=tscs231)
summary(md13)

Call:
glm(formula = chjf2 ~ Tai, family = binomial, data = tscs231)

Coefficients:
            Estimate Std. Error z value Pr(>|z|)   
(Intercept)  0.17147    0.06647   2.580  0.00989 **
Tai1        -0.39246    0.15424  -2.544  0.01095 * 
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1551.3  on 1120  degrees of freedom
Residual deviance: 1544.8  on 1119  degrees of freedom
  (442 observations deleted due to missingness)
AIC: 1548.8

Number of Fisher Scoring iterations: 3

exp(-0.39246)

[1] 0.6753934

tscs231$chtz2 <- factor(
  ifelse(tscs231$chtz %in% c("0","1"), "pos",
         ifelse(tscs231$chtz %in% c("3","4"), "nag", NA)),
  levels = c("pos","nag")
)

md14 <- glm(chtz2 ~ Tai,
            family=binomial, data=tscs231)
summary(md14)

Call:
glm(formula = chtz2 ~ Tai, family = binomial, data = tscs231)

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept)  0.79798    0.07133  11.187  < 2e-16 ***
Tai1        -0.52398    0.15564  -3.367 0.000761 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1439.8  on 1130  degrees of freedom
Residual deviance: 1428.7  on 1129  degrees of freedom
  (432 observations deleted due to missingness)
AIC: 1432.7

Number of Fisher Scoring iterations: 4

exp(-0.52398)

[1] 0.5921591

tscs231$chss2 <- factor(
  ifelse(tscs231$chss %in% c("0","1"), "pos",
         ifelse(tscs231$chss %in% c("3","4"), "nag", NA)),
  levels = c("pos","nag")
)

md15 <- glm(chss2 ~ Tai,
            family=binomial, data=tscs231)
summary(md15)

Call:
glm(formula = chss2 ~ Tai, family = binomial, data = tscs231)

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept)  0.26901    0.06708   4.010 6.07e-05 ***
Tai1        -0.54600    0.15233  -3.584 0.000338 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1549.4  on 1122  degrees of freedom
Residual deviance: 1536.4  on 1121  degrees of freedom
  (440 observations deleted due to missingness)
AIC: 1540.4

Number of Fisher Scoring iterations: 4

exp(-0.54600)

[1] 0.5792622

透過分析結果顯示，對於中國大陸地區三種方式的移民看法皆和台灣人認同有相關性，p值分別為0.01095， 0.000761，0.000338，可以看到非台灣人認同的樣本認為要進行限制的比例都低上許多，可看出強烈顯著的關係，這部分我的假設得到了充足的驗證。

tscs231$dnjf2 <- factor(
  ifelse(tscs231$dnjf %in% c("0","1"), "pos",
         ifelse(tscs231$dnjf %in% c("3","4"), "nag", NA)),
  levels = c("pos","nag")
)
md16 <- glm(dnjf2 ~ Tai,
            family=binomial, data=tscs231)
summary(md16)

Call:
glm(formula = dnjf2 ~ Tai, family = binomial, data = tscs231)

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept) -0.35129    0.06938  -5.064 4.11e-07 ***
Tai1        -0.02191    0.15784  -0.139     0.89    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1440.6  on 1062  degrees of freedom
Residual deviance: 1440.5  on 1061  degrees of freedom
  (500 observations deleted due to missingness)
AIC: 1444.5

Number of Fisher Scoring iterations: 4

tscs231$dntz2 <- factor(
  ifelse(tscs231$dntz %in% c("0","1"), "pos",
         ifelse(tscs231$dntz %in% c("3","4"), "nag", NA)),
  levels = c("pos","nag")
)
md17 <- glm(dntz2 ~ Tai,
            family=binomial, data=tscs231)
summary(md17)

Call:
glm(formula = dntz2 ~ Tai, family = binomial, data = tscs231)

Coefficients:
            Estimate Std. Error z value Pr(>|z|)
(Intercept)  0.06653    0.06896   0.965    0.335
Tai1        -0.19353    0.15603  -1.240    0.215

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1451.2  on 1046  degrees of freedom
Residual deviance: 1449.7  on 1045  degrees of freedom
  (516 observations deleted due to missingness)
AIC: 1453.7

Number of Fisher Scoring iterations: 3

tscs231$dnss2 <- factor(
  ifelse(tscs231$dnss %in% c("0","1"), "pos",
         ifelse(tscs231$dnss %in% c("3","4"), "nag", NA)),
  levels = c("pos","nag")
)
md18 <- glm(dnss2 ~ Tai,
            family=binomial, data=tscs231)
summary(md18)

Call:
glm(formula = dnss2 ~ Tai, family = binomial, data = tscs231)

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept) -0.25989    0.06882  -3.777 0.000159 ***
Tai1        -0.31628    0.15818  -1.999 0.045558 *  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1460.1  on 1072  degrees of freedom
Residual deviance: 1456.1  on 1071  degrees of freedom
  (490 observations deleted due to missingness)
AIC: 1460.1

Number of Fisher Scoring iterations: 4

exp(-0.31628)

[1] 0.7288553

透過分析結果顯示，對於東南亞地區三種方式的移民看法只有學生身分和台灣人認同具有相關性，p=0.045558，當非台灣台灣人認同時，認為要限制的看法數量較低。

綜上所述，由第一部分的分析結果來看，台灣人和對移民的看法之間沒有相關性，因此我的第一個假設台灣人認同對移民的看法有影響沒有得到支持。

而從第二部分的分析結果來看，台灣人認同對於不同地區的移民看法是有影響的，最強烈體現在中國大陸地區(三種方式)的移民上，其次為港澳(兩種方式)，再來是東南亞(一種方式)，對歐美日本則沒有影響。根據結果來看，有影響的部分在於非台灣人認同對於那些移民要採取限制的觀點比較少，如此可看出台灣人認同的人對於中國大陸地區的移民抱持較大的防守姿態。而三種方式當中以結婚方式受到的影響最少，主要是投資和工作及學生兩種方式較被台灣人認同影響，根據分析結果，我認為自己的第二個假設有得到支持。

七.結論

第一個假設:6個變數

台灣人認同(x)對外來移民的態度(y)有影響

1.移民會使治安變差，同意與否。

2.移民對經濟有幫助，同意與否。

3.移民會搶走台灣出生的人的工作，同意與否。

4.移民會帶來新想法和文化，讓社會更好，同意與否。

5.台灣出生的人的權利要優先於外來移民，同意與否。

6.來台灣居住的移民人數要增加或減少。

以上6個變數經過分析並沒有看出台灣人認同和它們有關聯性，因此假設1沒有得到驗證，台灣人認同對外來移民看法的態度無法看出有影響。

第二個假設:12個變數

台灣人認同(x)對不同地區的外來移民態度(y)有影響

1.歐美日本地區-(1)結婚，(2)投資或工作，(3)本地大學學生取得國籍，限制與否。

2.港澳地區-(1)結婚，(2)投資或工作，(3)本地大學學生取得國籍，限制與否。

3.中國大陸地區-(1)結婚，(2)投資或工作，(3)本地大學學生取得國籍，限制與否。

4.東南亞地區-(1)結婚，(2)投資或工作，(3)本地大學學生取得國籍，限制與否。

關聯性

日本歐美地區-不顯著

港澳地區-(2)(3)顯著，p=0.04822，p=0.02338

中國大陸地區-(1)(2)(3)顯著，p=0.01095，p=0.000761，p=0.000338

東南亞地區-(3)顯著，p=0.045558

四個地區統計上顯著性最高者為中國大陸地區，其次為港澳東南亞地區，日本歐美地區則在統計上顯著性不高，產生顯著關係者皆是當為非台灣人認同時，對於該地區外來移民取得國籍應該限制的看法比例會降低，而較容易被影響之方式最高為學生，其次為投資或工作，最低為結婚。

用不同地區和不同方式取得國籍來做劃分，以分析結果來看台灣人認同對不同地區外來移民的看法是有影響的。台灣人認同對於中國大陸地區的移民抱持最為排斥的看法，而其次為港澳地區與東南亞地區，由以上分析結果我認為第二個假說有得到支持。

會出現這種結果我認為是當今的政治因素所導致的，雖然兩岸已經停止軍事衝突許久了，但仍然屬於是政治上對抗的雙方，統一這件事始終圍繞在每個台灣人心中，因此對於中國大陸地區和港澳地區的人民抱持比較高的敵意和防衛心，在檢視其移民取得國籍時，更可能從政治上的角度來看待。而東南亞地區的外來移民結果我認為是經濟因素所導致的，可能是認為東南亞地區的發展程度較低，可能會對台灣當地人的經濟和工作產生衝擊，又或者是認為東南亞地區的移民素質較低，會對台灣社會帶來治安問題。

此外我原本認為台灣人認同的會對於日本歐美地區的移民帶有較大的好感度，但是根據結果顯示兩者之間沒有關聯性，統計上的顯著性不高。

與文獻的對話

根據我得到的分析結果，我認為其與文獻回顧中所顯示出的結果具有相似性，台灣人認同對於不同地區的外來移民看法這一觀點都有得到支持，台灣人認同對中國大陸地區的外來移民會抱持著比較負面的看法，剛好那三篇文獻進行研究時都處於馬英九執政時期的脈絡下，而我的研究則處於政黨輪替後的時空背景，透過此方式來觀察台灣社會風氣的轉變和台灣人的特質演變或許具有不錯的價值。而從文獻所做的分析來看，或許單純的以台灣人認同來做分析會有侷限性，對於一個民族/族群組成的看法也會明顯地影響同一個認同的不同人，使其展現出截然不同的看法。

參考文獻

張翰璧、張晉芬(2013)。〈全球化效果的侷限:臺灣民眾對接納跨國移民的態度〉。《臺灣社會學刊》，52，頁131-167。

陳志柔、吳家裕(2017)。〈臺灣民衆對外籍配偶移民的態度：十年間的變化趨勢（2004－2014）〉。《人文及社會科學集刊》，29(3)，頁415-452。

楊婉瑩、張雅雯(2016)。〈她們不是我們？分析台灣的民族主義者反大陸移民之態度〉。《東吳政治學報》，34(2) :，頁1-59。