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

研究問題

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

研究動機

身分認同一直是每個台灣人避不開的一個議題，我對其也抱持著興趣，而隨著台灣與各地的交流日漸增加，從外國(地區)來到台灣的移民也隨之增加，我很好奇台灣人的身分認同所造就的台灣民族意識以及台灣民族主義強度和對外來移民的看法之間的關係，同時想更進一步分析台灣民族意識當中對於哪些地區的移民抱有較大的好感和接受度，又或是對於某些地區的移民抱有排外的傾向及敵意，這或許可以讓我更加理解所謂台灣民族的其中一種特質。

資料描述

本研究所選用的資料為台灣社會變遷調查TSCS2023，其調查時間範圍為2023年6月5日至2024年1月31日，總共有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)
library(sjPlot)

自變數:台灣身分認同

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.458

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.641

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.183

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.003

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.000,0.000，具有高度的關聯性，可以看到高度台灣人認同的應該嚴格限制看法相比來說高出許多，我認為這是由於政治上的因素，許多台灣人會將大陸人視為不同民族的人或甚至是敵人，因此比起台灣本土意識較低的人會更具有反對大陸移民的想法。而三種管道中投資或工作最受到排斥，我認為這可能是因為會引發對於所謂中資入侵可能的疑慮。

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", 
     label=c("quali.sup", "quanti.sup", "var"), 
     invisible=c("ind"), 
     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()`).

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

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