語言偏好與排外傾向
李玫禎
2021/06/27
摘要
本文試圖探索語言作為塑造個體及群體認同的工具之一，是否也和排外傾向間有關聯。語言是否能成為人類群體辨識敵我標籤之一呢？本研究也將探索黨派、道德原則(權威與傳統)與排外傾向間是否具相關性，如歐洲自難民潮爆發後，因保守派和自由派分別擁護不同的道德原則，保守勢力排外情緒高漲，極右派崛起現象。雖然台灣目前雖然民族構成較單一，仍以漢人為主；在語言方面，即使台灣使用語言眾多，但主要溝通使用仍以中文為大宗。有鑒於台灣社會少子化，未來需要更多外來人力資源及目前政府提出2030雙語國家政策，不難想像未來台灣社會民族及語言構成漸趨多元的可能性極高。而此研究試圖挖掘目前台灣社會中語言及身分與排外是否具有潛在關聯。
研究動機
語言作為民族共同體的形成元素之一，塑造個體的文化、身分認同。語言是個人了解世界的媒介，也反映著我們對外來族群接受程度的高低。語言所形塑的意識形態反映出群體如何和他族互動（Cobarrubias, 1983），在一個高度認同或偏好特定語言的群體中，語言除了為社群群體打造出共同體形象外，也可能以某語言群體為共同敵人。而此特定的排除對象有是如何形塑的呢？
更多的差異勢必為凝聚社會共識帶來更多的挑戰，當不同的語言群體各自懷抱著不同的想像時，何來「想像的共同體」？多元族群林立，究竟帶給我們的是更加極端、各自分立的文化群體，還是能展現多語尊重共榮的胸懷呢？
此研究主要試圖探索語言使用之偏好及排外程度高低是否具有關聯性。尤其近年政府力推“2030雙語國家政策”，然而英文文化和身分認同是台灣大多數民眾的共識嗎？此外，對於不同語言的認同是否反映出不同的國家認同，若是，則反映出何種的國家認同(驕傲/光榮感)，並且是否也反映出對不同族群間的態度及排外傾向？
另外，受好人總是自以為是一書的啟發，本研究也將探索黨派、道德原則(權威與傳統)與排外傾向間是否具相關性。在此書中提及保守派和自由派信奉不同的道德原則解釋了歐洲自難民潮爆發後的排外情緒高漲，極右派勢力崛起現象。當外來者出現，原社會中的道德資本受到破壞，保守派便會努力維持群體內的傳統價值觀和認同，因而異族該誅之，因維護非我利益團體的成員會增加自身團體的負擔。而多元文化或強調文化差異的觀點對保守派而言更是大大扣分，放大個體差異性，無異於降低社群信任感，讓保守派對於蜂巢中外來威脅繃緊神經，更多摩擦產生，族群間關係便持續惡化。
而下文即將探討台灣社會目前是否有能觸動這樣開關的「外來威脅」？而被觸發開關的又是哪個群體呢？
變數說明
本研究的核心旨在探索台灣民眾的語言使用偏好及政黨與身分認同乃至排外傾向的相關性 本研究以下列與語言、身分、移民、公共事務及文化認同有關的命題來做MCA探索式分析，研究變數之間的相關性。
核心變數：
變數一：祖國 (v13r, v15r)
變數二：語言偏好 (v16r, v17r, v18ar, v18br, v36r, v37r,v31dr)
變數三：情感認同 (v31gr, v33ar)
變數四：排外&保護主義 (v38ar, v38cr, v39ar, v39br, v39er)
變數五：對移民的態度 (v41r, v42ar, v42br, v42ir, v42jr, v80r, v81r, v82r)
變數六：對公共事務中權威、紀律、階級的態度 (v88ar, v88br, v88cr, v88dr, v88er, v88fr)
變數七：文化認同 (v89cr, v89er, v89fr, v89hr, v89ir)
資料說明
此筆資料為2013年台灣社會變遷基本調查計畫第六期第四次調查計畫:國家認同組，有效填答人數為1952人。
計畫執行單位：中央研究院社會學研究所
原始檔名： tscs132.sav
資料讀入及編碼
從資料原始檔tscs132挑出核心變數:和語言、身分認同直接相關或會影響上述兩者的變數，包含母語、國家光榮感、對鄉土教育、中華文化的看法，以及對移民、權威、紀律的態度、及學歷、政黨偏好等。
library(haven)
tscs132 <- read_sav("tscs132.sav")
View(tscs132)
names(tscs132)## [1] "id" "zip" "stratum2" "psu" "ssu" "wsel"
## [7] "wr" "wave" "qtype" "year" "year_m" "sdate"
## [13] "stime" "v1" "v2y" "v2m" "v2a" "v3city"
## [19] "v3zip" "v4city" "v4zip" "v5" "v6" "kv6_0"
## [25] "v7" "kv7_0" "v8" "kv8_0" "v9" "v10"
## [31] "kv10_0" "v11" "kv11_0" "v12" "v13" "kv13_0"
## [37] "v14city" "v14zip" "v15" "kv15_0" "v16" "kv16_0"
## [43] "v17" "kv17_0" "v18a" "kv18a_0" "v18b" "v19"
## [49] "kv19_0" "v20" "v21" "kv21_0" "v22" "v23"
## [55] "kv23_0" "v24" "kv24_0" "v25" "kv25_0" "v26y"
## [61] "v26m" "v26a" "v27" "kv27_0" "v28" "kv28_0"
## [67] "v29" "kv29_0" "v30a" "v30b" "v30c" "v30d"
## [73] "v31a" "v31b" "v31c" "v31d" "v31e" "v31f"
## [79] "v31g" "v31h" "v32" "v33a" "v33b" "v33c"
## [85] "v33d" "v33e" "v33f" "v33g" "v33h" "v34a"
## [91] "v34b" "v34c" "v34d" "v34e" "v34f" "v34g"
## [97] "v34h" "v34i" "v34j" "v35" "v36" "v37"
## [103] "v38a" "v38b" "v38c" "v38d" "v38e" "v39a"
## [109] "v39b" "v39c" "v39d" "v39e" "v40a" "v40b"
## [115] "v41" "v42a" "v42b" "v42c" "v42d" "v42e"
## [121] "v42f" "v42g" "v42h" "v42i" "v42j" "v43"
## [127] "v44" "v45" "v46a" "v46b" "v46c" "v46d"
## [133] "v47" "v48" "v49" "v50" "v51" "v52"
## [139] "v53" "v54a" "v54b" "v54c" "v54d" "v55"
## [145] "kv55_0" "v56" "v57" "kv57_0" "v58" "v59"
## [151] "v60" "v61" "v62" "v63" "v64" "v65"
## [157] "v66" "v67" "v68" "kv68_0" "v69" "v70"
## [163] "kv70_0" "v71a" "v71b" "v71c" "v71d" "v71e"
## [169] "v71f" "v71g" "v72" "v73" "v74" "v75"
## [175] "v76" "kv76_0" "v77" "v78" "v79" "v80"
## [181] "v81" "v82" "v83a" "v83b" "v83c" "v84a"
## [187] "v84b" "v85" "kv85_0" "v86" "kv86_0" "v87a"
## [193] "v87b" "v87c" "v87d" "v88a" "v88b" "v88c"
## [199] "v88d" "v88e" "v88f" "v89a" "v89b" "v89c"
## [205] "v89d" "v89e" "v89f" "v89g" "v89h" "v89i"
## [211] "v90" "v91" "v92" "v93" "v94" "kv94_0"
## [217] "v95" "kv95_0" "v96" "kv96_0" "v97" "v98"
## [223] "v99" "kv99_0" "v100" "v101" "v102a3" "v102b4"
## [229] "v102b5" "v102c" "v102d" "kv102d_0" "v102d1" "v102e"
## [235] "v103" "v104" "kv104_0" "v105" "v106" "v107a3"
## [241] "v107b4" "v107b5" "v107c" "v107d" "kv107d_0" "v107e"
## [247] "v108" "v109a" "v109b" "v110" "v111" "v112"
## [253] "v113" "v114" "edate" "etime"save(tscs132, file = "tscs132.rda", compress= T)
library(sjmisc)
tscs132r <-set_na(tscs132, na=c(92:99, "NA"))
save(tscs132r, file="tscs132r.rda")
rm(list = ls())
load("tscs132r.rda")
library(sjPlot)
library(sjmisc)
#13.請問您覺得自己是哪裡人？（提示卡 1）
#□(01)台灣閩南人 □(02)台灣客家人 □(03)台灣原住民
#□(04)大陸各省市人 □(05)台灣的外省人 □(06)金門、馬祖人
#□(07)東南亞（國家）的人 □(08)其他，請說明：____________
table(tscs132r$v13)##
## 1 2 3 4 5 6 7 8
## 1487 180 22 26 103 6 12 107tscs132r$v13r <- rec(tscs132r$v13, rec="97:98=NA; else=copy", as.num = F,
var.label = "v13",
val.labels = c("台灣閩南人", "台灣客家人","台灣原住民","大陸各省市人","台灣外省人","金門馬祖人", "東南亞國家人", "其他"))
str(tscs132r$v13r)## Factor w/ 8 levels "1","2","3","4",..: 8 1 8 1 1 1 1 2 8 1 ...
## - attr(*, "labels")= Named num [1:8] 1 2 3 4 5 6 7 8
## ..- attr(*, "names")= chr [1:8] "台灣閩南人" "台灣客家人" "台灣原住民" "大陸各省市人" ...
## - attr(*, "label")= chr "v13"frq(tscs132r$v13r)##
## v13 (x) <categorical>
## # total N=1952 valid N=1943 mean=1.81 sd=1.86
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ------------------------------------------------------
## 1 | 台灣閩南人 | 1487 | 76.18 | 76.53 | 76.53
## 2 | 台灣客家人 | 180 | 9.22 | 9.26 | 85.80
## 3 | 台灣原住民 | 22 | 1.13 | 1.13 | 86.93
## 4 | 大陸各省市人 | 26 | 1.33 | 1.34 | 88.27
## 5 | 台灣外省人 | 103 | 5.28 | 5.30 | 93.57
## 6 | 金門馬祖人 | 6 | 0.31 | 0.31 | 93.88
## 7 | 東南亞國家人 | 12 | 0.61 | 0.62 | 94.49
## 8 | 其他 | 107 | 5.48 | 5.51 | 100.00
## <NA> | <NA> | 9 | 0.46 | <NA> | <NA>#15.如果有人問您的祖國是哪裡，請問您會怎麼回答？（訪員請唸選項）
#□(01)台灣 □(02)中華民國 □(03)中國 □(04)中華人民共和國
#□(05)其他，請說明：____________
table(tscs132r$v15)##
## 1 2 3 4 5
## 1498 353 56 2 27tscs132r$v15r <- rec(tscs132r$v15, rec="1=1; else=0",
as.num = F, var.label = "v15",
val.labels = c("中華民國、中國、其他", "台灣"))
library(sjlabelled)##
## 載入套件：'sjlabelled'## 下列物件被遮斷自 'package:haven':
##
## as_factor, read_sas, read_spss, read_stata, write_sas, zap_labelstscs132r$v15r <- set_label(tscs132r$v15r, label="如果有人問您的祖國是哪裡，請問您會怎麼回答？")
frq(tscs132r$v15r)##
## 如果有人問您的祖國是哪裡，請問您會怎麼回答？ (x) <categorical>
## # total N=1952 valid N=1936 mean=0.77 sd=0.42
##
## Value | Label | N | Raw % | Valid % | Cum. %
## --------------------------------------------------------------
## 0 | 中華民國、中國、其他 | 438 | 22.44 | 22.62 | 22.62
## 1 | 台灣 | 1498 | 76.74 | 77.38 | 100.00
## <NA> | <NA> | 16 | 0.82 | <NA> | <NA>library(sjPlot)
library(sjmisc)
plot_frq(tscs132r$v15r)## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.
#16.請問您在家裡最常講國語、台語（閩南語）、客家話，還是哪一種語言呢？
#□(01)國語 □(02)台語（閩南語） □(03)客家話 □(04)原住民語
#□(05)國語、台語（閩南語）都有 □(06)國語、客家話都有
#□(07)國語、台語（閩南語）、客家話都有 □(08)其他，請說明：____________
table(tscs132r$v16)##
## 1 2 3 4 5 6 7 8
## 612 863 38 1 381 30 16 11tscs132r$v16r <- rec(tscs132r$v16, rec="4:8=8; else=copy",
as.num = F,var.label = "v16",
val.labels = c("國語","台語（閩南語）","客語","其他"))
frq(tscs132r$v16r)##
## v16 (x) <categorical>
## # total N=1952 valid N=1952 mean=3.06 sd=2.71
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -------------------------------------------------------
## 1 | 國語 | 612 | 31.35 | 31.35 | 31.35
## 2 | 台語（閩南語） | 863 | 44.21 | 44.21 | 75.56
## 3 | 客語 | 38 | 1.95 | 1.95 | 77.51
## 8 | 其他 | 439 | 22.49 | 22.49 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>#17. 請問當您在表達私人感情的時候，使用下面哪一種語言，會讓您感到最自然？
#□(01)國語 □(02)台語（閩南語） □(03)客家話 □(04)原住民語 □(05)國語、台語（閩南語）都有
#□(06)國語、客家話都有 □(07)國語、台語（閩南語）、客家話都有 □(08)其他，請說明：
table(tscs132r$v17)##
## 1 2 3 4 5 6 7 8
## 790 853 48 2 229 6 7 16tscs132r$v17r <- rec(tscs132r$v17, rec="4:8=8; else=copy",
as.num = F,var.label = "v17",
val.labels = c("國語","台語（閩南語）","客語","其他"))
frq(tscs132r$v17r)##
## v17 (x) <categorical>
## # total N=1952 valid N=1951 mean=2.42 sd=2.25
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -------------------------------------------------------
## 1 | 國語 | 790 | 40.47 | 40.49 | 40.49
## 2 | 台語（閩南語） | 853 | 43.70 | 43.72 | 84.21
## 3 | 客語 | 48 | 2.46 | 2.46 | 86.67
## 8 | 其他 | 260 | 13.32 | 13.33 | 100.00
## <NA> | <NA> | 1 | 0.05 | <NA> | <NA>#18a.請問在家裡，您最希望您的小孩跟您說哪一種話？
#□(01)國語 □(02)台語（閩南語） □(03)客家話 □(04)其他，請說明：____________
tscs132r$v18ar <- rec(tscs132r$v16, rec="1=1;2=2;3=3;4=4",
as.num = F,var.label = "v18a",
val.labels = c("國語","台語（閩南語）","客語","其他"))
frq(tscs132r$v18ar)##
## v18a (x) <categorical>
## # total N=1952 valid N=1514 mean=1.62 sd=0.54
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -------------------------------------------------------
## 1 | 國語 | 612 | 31.35 | 40.42 | 40.42
## 2 | 台語（閩南語） | 863 | 44.21 | 57.00 | 97.42
## 3 | 客語 | 38 | 1.95 | 2.51 | 99.93
## 4 | 其他 | 1 | 0.05 | 0.07 | 100.00
## <NA> | <NA> | 438 | 22.44 | <NA> | <NA>#18b.如果鄉土語言和英語只能選一種，請問您希望您的小孩一定要學會哪一種？
#□(01)鄉土語言 □(02)英語
tscs132r$v18br <- rec(tscs132r$v18b, rec="97:98=NA; else=copy",
as.num = F,var.label = "v18b",
val.labels = c("鄉土語言", "英語"))
library(sjlabelled)
tscs132r$v18br <- set_label(tscs132r$v18br,label="如果鄉土語言和英語只能選一種，請問您希望您的小孩一定要學會哪一種？")
frq(tscs132r$v18br)##
## 如果鄉土語言和英語只能選一種，請問您希望您的小孩一定要學會哪一種？ (x) <categorical>
## # total N=1952 valid N=1875 mean=1.54 sd=0.50
##
## Value | Label | N | Raw % | Valid % | Cum. %
## --------------------------------------------------
## 1 | 鄉土語言 | 864 | 44.26 | 46.08 | 46.08
## 2 | 英語 | 1011 | 51.79 | 53.92 | 100.00
## <NA> | <NA> | 77 | 3.94 | <NA> | <NA>library(sjPlot)
library(sjmisc)
plot_frq(tscs132r$v18br)## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.
#21.請問您的教育程度是? □(01)無/不識字（跳答 23）□(02)自修/識字/私塾（跳答 23） □(03)小學 □(04)國(初)中 □(05)初職 □(06)高中普通科 □(07)高中職業科 □(08)高職 □(09)士官學校 □(10)五專 □(11)二專 □(12)三專 □(13)軍警校專修班 □(14)軍警校專科班 □(15)空中行專/商專 □(16)空中大學 □(17)軍警官校或大學 □(18)技術學院、科大 □(19)大學 □(20)碩士 □(21)博士 □(22)其他，請說明：____________
tscs132r$v21r <- rec(tscs132r$v21, rec="1:09=1;10:19=2;20:21=3",
as.num = F,var.label = "v21",
val.labels = c("大專以下","大專","大專以上"))
frq(tscs132r$v21r)##
## v21 (x) <categorical>
## # total N=1952 valid N=1950 mean=1.49 sd=0.62
##
## Value | Label | N | Raw % | Valid % | Cum. %
## --------------------------------------------------
## 1 | 大專以下 | 1115 | 57.12 | 57.18 | 57.18
## 2 | 大專 | 710 | 36.37 | 36.41 | 93.59
## 3 | 大專以上 | 125 | 6.40 | 6.41 | 100.00
## <NA> | <NA> | 2 | 0.10 | <NA> | <NA>#31. 如果要成為我們真正的同胞，有人認為下列條件重要，也有人認為不重要。請
#問您覺得它們重不重要？(d)會說國語（中文）
#□(01)非常重要 □(02)有點重要 □(03)不怎麼重要 □(04)一點也不重要 □(05) 無法決定
tscs132r$v31dr <- rec(tscs132r$v31g, rec="1=4;2=3;3=2;4=1;5:max=NA",
as.num = F,var.label = "v31d" )
library(sjlabelled)
tscs132r$v31dr <- set_label(tscs132r$v31dr, label= "(d)如果要成為我們真正的同胞，會說國語（中文）重不重要？ ")
frq(tscs132r$v31dr)##
## (d)如果要成為我們真正的同胞，會說國語（中文）重不重要？ (x) <categorical>
## # total N=1952 valid N=1918 mean=3.55 sd=0.62
##
## Value | N | Raw % | Valid % | Cum. %
## ---------------------------------------
## 1 | 19 | 0.97 | 0.99 | 0.99
## 2 | 71 | 3.64 | 3.70 | 4.69
## 3 | 663 | 33.97 | 34.57 | 39.26
## 4 | 1165 | 59.68 | 60.74 | 100.00
## <NA> | 34 | 1.74 | <NA> | <NA>library(sjPlot)
library(sjmisc)
plot_frq(tscs132r$v31dr)## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.
#31. 如果要成為我們真正的同胞，有人認為下列條件重要，也有人認為不重要。請
#問您覺得它們重不重要？(g)在感情上認同我們的國家
#□(01)非常重要 □(02)有點重要 □(03)不怎麼重要 □(04)一點也不重要 □(05) 無法決定
tscs132r$v31gr <- rec(tscs132r$v31g, rec="1=4;2=3;3=2;4=1;5:max=NA",
as.num = F,var.label = "v31g" )
library(sjlabelled)
tscs132r$v31gr <- set_label(tscs132r$v31gr, label= "(g)如果要成為我們真正的同胞，在感情上認同我們的國家重不重要？")
frq(tscs132r$v31gr)##
## (g)如果要成為我們真正的同胞，在感情上認同我們的國家重不重要？ (x) <categorical>
## # total N=1952 valid N=1918 mean=3.55 sd=0.62
##
## Value | N | Raw % | Valid % | Cum. %
## ---------------------------------------
## 1 | 19 | 0.97 | 0.99 | 0.99
## 2 | 71 | 3.64 | 3.70 | 4.69
## 3 | 663 | 33.97 | 34.57 | 39.26
## 4 | 1165 | 59.68 | 60.74 | 100.00
## <NA> | 34 | 1.74 | <NA> | <NA>library(sjPlot)
library(sjmisc)
plot_frq(tscs132r$v31gr)## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.
#32. 身為我國的國民，請問您覺得光榮或是不光榮？□(01)非常光榮 □(02)有些光榮 □(03)不太光榮#□(04)一點也不光榮 □(05)無法決定
tscs132r$v32r <- rec(tscs132r$v32, rec="1=4;2=3;3=2;4=1;5:max=NA",
as.num = F,var.label = "v32")
library(sjlabelled)
tscs132r$v32r <- set_label(tscs132r$v32, label="身為我國的國民，請問您覺得光榮或是不光榮？")
frq(tscs132r$v32r)##
## 身為我國的國民，請問您覺得光榮或是不光榮？ (x) <numeric>
## # total N=1952 valid N=1935 mean=1.74 sd=0.84
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------------
## 1 | 非常光榮 | 865 | 44.31 | 44.70 | 44.70
## 2 | 有些光榮 | 827 | 42.37 | 42.74 | 87.44
## 3 | 不太光榮 | 161 | 8.25 | 8.32 | 95.76
## 4 | 一點也不光榮 | 53 | 2.72 | 2.74 | 98.50
## 5 | 無法決定 | 29 | 1.49 | 1.50 | 100.00
## <NA> | <NA> | 17 | 0.87 | <NA> | <NA>#33.請問您同不同意以下這些說法？（提示卡 6）(ISSP Q3)
#(a)我最想當我們國家的公民（國民），而不是其他國家的公民（國民）
#□(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意 □(06)無法決定
tscs132r$v33ar <- rec(tscs132r$v33a, rec="1:2=1;else=0",
as.num = F,var.label = "v33a",
val.labels = c("不同意", "同意"))
frq(tscs132r$v33ar)##
## v33a (x) <categorical>
## # total N=1952 valid N=1914 mean=0.79 sd=0.41
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ------------------------------------------------
## 0 | 不同意 | 398 | 20.39 | 20.79 | 20.79
## 1 | 同意 | 1516 | 77.66 | 79.21 | 100.00
## <NA> | <NA> | 38 | 1.95 | <NA> | <NA>#36.有人說我國的國民教育，須要強調（台語：加強）中華文化的教育，請問您同不同意？□(01)非常同意 □(02)同意 □(03)不同意 □(04)非常不同意
tscs132r$v36r <- rec(tscs132r$v36, rec="1:2=1;else=0",
as.num = F,var.label = "v36",
val.labels = c("不同意", "同意"))
frq(tscs132r$v36r)##
## v36 (x) <categorical>
## # total N=1952 valid N=1788 mean=0.77 sd=0.42
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ------------------------------------------------
## 0 | 不同意 | 404 | 20.70 | 22.60 | 22.60
## 1 | 同意 | 1384 | 70.90 | 77.40 | 100.00
## <NA> | <NA> | 164 | 8.40 | <NA> | <NA>#37.有人說我國的國民教育，須要強調（台語：加強）台灣本土文化的教育，請問您同不同意？□(01)非常同意 □(02)同意 □(03)不同意 □(04)非常不同意
tscs132r$v37r <- rec(tscs132r$v37, rec="1:2=1;else=0",
as.num = F,var.label = "v37",
val.labels = c("不同意", "同意"))
frq(tscs132r$v37r)##
## v37 (x) <categorical>
## # total N=1952 valid N=1844 mean=0.84 sd=0.36
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ------------------------------------------------
## 0 | 不同意 | 289 | 14.81 | 15.67 | 15.67
## 1 | 同意 | 1555 | 79.66 | 84.33 | 100.00
## <NA> | <NA> | 108 | 5.53 | <NA> | <NA>#38. 請問您同不同意以下這些說法？
#(a)為了保護我國的經濟，我們應該限制外國產品進口
#□(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意 □(06)無法決定
tscs132r$v38ar <- rec(tscs132r$v38a, rec="1:2=1;else=2",
as.num = F,var.label = "v38a",
val.labels = c("同意", "不同意"))
frq(tscs132r$v38ar)##
## v38a (x) <categorical>
## # total N=1952 valid N=1891 mean=1.58 sd=0.49
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ------------------------------------------------
## 1 | 同意 | 792 | 40.57 | 41.88 | 41.88
## 2 | 不同意 | 1099 | 56.30 | 58.12 | 100.00
## <NA> | <NA> | 61 | 3.12 | <NA> | <NA>#38. 請問您同不同意以下這些說法？
#(c)為了保護我們國家自己的利益，就算需要和其他國家發生衝突也無所謂 □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意 □(06)無法決定
tscs132r$v38cr <- rec(tscs132r$v38c, rec="1:2=1;else=0",
as.num = F,var.label = "v38c",
val.labels = c("不同意", "同意"))
frq(tscs132r$v38cr)##
## v38c (x) <categorical>
## # total N=1952 valid N=1888 mean=0.43 sd=0.50
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ------------------------------------------------
## 0 | 不同意 | 1072 | 54.92 | 56.78 | 56.78
## 1 | 同意 | 816 | 41.80 | 43.22 | 100.00
## <NA> | <NA> | 64 | 3.28 | <NA> | <NA>#39. 請問您同不同意下列的說法？
#(a)外國大公司（跨國企業）對台灣本地產業的傷害越來越大 □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意 □(06)無法決定
tscs132r$v39ar <- rec(tscs132r$v39a, rec="1:2=0;else=1",
as.num = F,var.label = "v39a",
val.labels = c("同意", "不同意"))
frq(tscs132r$v39ar)##
## v39a (x) <categorical>
## # total N=1952 valid N=1837 mean=0.49 sd=0.50
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------
## 0 | 同意 | 946 | 48.46 | 51.50 | 51.50
## 1 | 不同意 | 891 | 45.65 | 48.50 | 100.00
## <NA> | <NA> | 115 | 5.89 | <NA> | <NA>library(sjPlot)
library(sjmisc)
plot_frq(tscs132r$v39ar)## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.
#39. 請問您同不同意下列的說法？
#(b)自由貿易讓我們可以買到更好的產品 □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意 □(06)無法決定
tscs132r$v39br <- rec(tscs132r$v39b, rec="1:2=0;else=1",
as.num = F,var.label = "v39b",
val.labels = c("同意", "不同意"))
frq(tscs132r$v39br)##
## v39b (x) <categorical>
## # total N=1952 valid N=1879 mean=0.25 sd=0.43
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ------------------------------------------------
## 0 | 同意 | 1405 | 71.98 | 74.77 | 74.77
## 1 | 不同意 | 474 | 24.28 | 25.23 | 100.00
## <NA> | <NA> | 73 | 3.74 | <NA> | <NA>library(sjPlot)
library(sjmisc)
plot_frq(tscs132r$v39br)## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.
#39. 請問您同不同意下列的說法？
#(e)我覺得自己比較像是世界的公民，不是任何國家的公民 □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意 □(06)無法決定
tscs132r$v39er <- rec(tscs132r$v39e, rec="1:2=0;else=1",
as.num = F,var.label = "v39e",
val.labels = c("同意", "不同意"))
frq(tscs132r$v39er)##
## v39e (x) <categorical>
## # total N=1952 valid N=1829 mean=0.70 sd=0.46
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ------------------------------------------------
## 0 | 同意 | 546 | 27.97 | 29.85 | 29.85
## 1 | 不同意 | 1283 | 65.73 | 70.15 | 100.00
## <NA> | <NA> | 123 | 6.30 | <NA> | <NA>library(sjPlot)
library(sjmisc)
plot_frq(tscs132r$v39er)## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.
#41.下面有兩種說法，請問您的想法比較接近哪一種？（提示卡 11）(ISSPQ8) □(01)不同族群都各自保有他們獨特的風俗習慣和傳統比較好 □(02)所有的族群都應該調整並且融合（台語：混合）成為一個大的社會比較好
tscs132r$v41r <- rec(tscs132r$v41, rec="1=0;2=1",
as.num = F,var.label = "v41",
val.labels = c("各自保有獨特的風俗習慣和傳統比較好", "所有的族群都應該融合為一"))
frq(tscs132r$v41r)##
## v41 (x) <categorical>
## # total N=1952 valid N=1884 mean=0.39 sd=0.49
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ----------------------------------------------------------------------------
## 0 | 各自保有獨特的風俗習慣和傳統比較好 | 1144 | 58.61 | 60.72 | 60.72
## 1 | 所有的族群都應該融合為一 | 740 | 37.91 | 39.28 | 100.00
## <NA> | <NA> | 68 | 3.48 | <NA> | <NA>#42. 社會上許多人對移民來台灣的外國人有不同的看法。請問您同不同意下面的說法？
#(a)移民會使治安變差 □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意 □(06)無法決定
tscs132r$v42ar <- rec(tscs132r$v42a, rec="1:2=1;4:5=2;3=3;6=4",
as.num = F,var.label = "v42a",
val.labels = c("同意", "不同意","既不同意也不反對","無法決定"))
frq(tscs132r$v42ar)##
## v42a (x) <categorical>
## # total N=1952 valid N=1895 mean=1.85 sd=0.76
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ---------------------------------------------------------
## 1 | 同意 | 694 | 35.55 | 36.62 | 36.62
## 2 | 不同意 | 809 | 41.44 | 42.69 | 79.31
## 3 | 既不同意也不反對 | 378 | 19.36 | 19.95 | 99.26
## 4 | 無法決定 | 14 | 0.72 | 0.74 | 100.00
## <NA> | <NA> | 57 | 2.92 | <NA> | <NA>library(sjPlot)
library(sjmisc)
plot_frq(tscs132r$v42ar)## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.
#42. 社會上許多人對移民來台灣的外國人有不同的看法。請問您同不同意下面的說法？
#(b)移民對台灣的經濟有幫助 □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意 □(06)無法決定
tscs132r$v42br <- rec(tscs132r$v42a, rec="1:2=1;4:5=2;else=NA",
as.num = F,var.label = "v42b",
val.labels = c("同意", "不同意"))
frq(tscs132r$v42br)##
## v42b (x) <categorical>
## # total N=1952 valid N=1503 mean=1.54 sd=0.50
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------
## 1 | 同意 | 694 | 35.55 | 46.17 | 46.17
## 2 | 不同意 | 809 | 41.44 | 53.83 | 100.00
## <NA> | <NA> | 449 | 23.00 | <NA> | <NA>library(sjPlot)
library(sjmisc)
plot_frq(tscs132r$v42br)## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.
#42. 社會上許多人對移民來台灣的外國人有不同的看法。請問您同不同意下面的說法？
#(i)有人說，大陸配偶在台灣不論多久，都無法真正認同台灣 □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意 □(06)無法決定
tscs132r$v42ir <- rec(tscs132r$v42i, rec="1:2=1;4:5=2;else=NA",
as.num = F,var.label = "v42i", val.labels = c("同意", "不同意"))
frq(tscs132r$v42ir)##
## v42i (x) <categorical>
## # total N=1952 valid N=1394 mean=1.52 sd=0.50
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------
## 1 | 同意 | 666 | 34.12 | 47.78 | 47.78
## 2 | 不同意 | 728 | 37.30 | 52.22 | 100.00
## <NA> | <NA> | 558 | 28.59 | <NA> | <NA>#42. 社會上許多人對移民來台灣的外國人有不同的看法。請問您同不同意下面的說法？
#(j)有人說，東南亞外籍配偶在台灣不論多久，都無法真正認同台灣 □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意 □(06)無法決定
tscs132r$v42jr <- rec(tscs132r$v42a, rec="1:2=1;4:5=2;else=NA",
as.num = F,var.label = "v42j", val.labels = c("同意", "不同意"))
frq(tscs132r$v42jr)##
## v42j (x) <categorical>
## # total N=1952 valid N=1503 mean=1.54 sd=0.50
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------
## 1 | 同意 | 694 | 35.55 | 46.17 | 46.17
## 2 | 不同意 | 809 | 41.44 | 53.83 | 100.00
## <NA> | <NA> | 449 | 23.00 | <NA> | <NA>#80.如果有越來越多的中國大陸人成為台灣公民，請問您認為這對台灣好不好？
#□(01)非常好 □(02)好 □(03)不好 □(04)非常不好 □(05)一半一半(好壞難說)
tscs132r$v80r <- rec(tscs132r$v80, rec="1:2=1;3:5=0",
as.num = F,var.label = "v80",
val.labels = c("不好","好"))
frq(tscs132r$v80r)##
## v80 (x) <categorical>
## # total N=1952 valid N=1862 mean=0.23 sd=0.42
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------
## 0 | 不好 | 1438 | 73.67 | 77.23 | 77.23
## 1 | 好 | 424 | 21.72 | 22.77 | 100.00
## <NA> | <NA> | 90 | 4.61 | <NA> | <NA>library(sjPlot)
library(sjmisc)
plot_frq(tscs132r$v80r)## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.
#81.如果有越來越多的東南亞人成為台灣公民，請問您認為這對台灣好不好？
#□(01)非常好 □(02)好 □(03)不好 □(04)非常不好 □(05)一半一半(好壞難說)
tscs132r$v81r <- rec(tscs132r$v81, rec="1:2=1;3:5=0",
as.num = F,var.label = "v81",
val.labels = c("不好","好"))
frq(tscs132r$v81r)##
## v81 (x) <categorical>
## # total N=1952 valid N=1853 mean=0.26 sd=0.44
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------
## 0 | 不好 | 1373 | 70.34 | 74.10 | 74.10
## 1 | 好 | 480 | 24.59 | 25.90 | 100.00
## <NA> | <NA> | 99 | 5.07 | <NA> | <NA>library(sjPlot)
library(sjmisc)
plot_frq(tscs132r$v81r)## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.
#82.如果有越來越多的歐美人成為台灣公民，請問您認為這對台灣好不好？
#□(01)非常好 □(02)好 □(03)不好 □(04)非常不好 □(05)一半一半(好壞難說)
tscs132r$v82r <- rec(tscs132r$v82, rec="1:2=1;3:5=0",
as.num = F,var.label = "v82",
val.labels = c("不好","好"))
frq(tscs132r$v82r)##
## v82 (x) <categorical>
## # total N=1952 valid N=1835 mean=0.40 sd=0.49
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------
## 0 | 不好 | 1108 | 56.76 | 60.38 | 60.38
## 1 | 好 | 727 | 37.24 | 39.62 | 100.00
## <NA> | <NA> | 117 | 5.99 | <NA> | <NA>library(sjPlot)
library(sjmisc)
plot_frq(tscs132r$v82r)## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.
#88. 關於社會上的事務或現象，請問您同不同意以下各種說法或想法？
# (a)我們國家真正需要的是法律與秩序，即使犧牲一點人民的權利也沒有關係
# □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意
tscs132r$v88ar <- rec(tscs132r$v88a, rec="1:2=1;4:5=0;else=NA",
as.num = F,var.label = "v88a",
val.labels = c("不同意為了秩序犧牲人民權利","同意(法律與秩序較為重要)"))
frq(tscs132r$v88ar)##
## v88a (x) <categorical>
## # total N=1952 valid N=1662 mean=0.42 sd=0.49
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -------------------------------------------------------------------
## 0 | 不同意為了秩序犧牲人民權利 | 957 | 49.03 | 57.58 | 57.58
## 1 | 同意(法律與秩序較為重要) | 705 | 36.12 | 42.42 | 100.00
## <NA> | <NA> | 290 | 14.86 | <NA> | <NA>library(sjPlot)
library(sjmisc)
plot_frq(tscs132r$v88ar)## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.
#88 關於社會上的事務或現象，請問您同不同意以下各種說法或想法？
# (b)有些族群的發展機會就是比較好或比較多，那也沒有關係
# □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意
tscs132r$v88br <- rec(tscs132r$v88b, rec="1:2=1;4:5=0;else=NA",
as.num = F,var.label = "v88b",
val.labels = c("不同意","同意"))
frq(tscs132r$v88br)##
## v88b (x) <categorical>
## # total N=1952 valid N=1431 mean=0.46 sd=0.50
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------
## 0 | 不同意 | 769 | 39.40 | 53.74 | 53.74
## 1 | 同意 | 662 | 33.91 | 46.26 | 100.00
## <NA> | <NA> | 521 | 26.69 | <NA> | <NA>#88 關於社會上的事務或現象，請問您同不同意以下各種說法或想法？
# (c)與其聽取迎合大眾的言論，不如相信專家學者或政府官員等權威人士的判斷
# □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意
tscs132r$v88cr <- rec(tscs132r$v88c, rec="1:2=1;4:5=0;else=NA",
as.num = F,var.label = "v88c",
val.labels = c("不同意","同意"))
frq(tscs132r$v88cr)##
## v88c (x) <categorical>
## # total N=1952 valid N=1481 mean=0.34 sd=0.47
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------
## 0 | 不同意 | 974 | 49.90 | 65.77 | 65.77
## 1 | 同意 | 507 | 25.97 | 34.23 | 100.00
## <NA> | <NA> | 471 | 24.13 | <NA> | <NA>library(sjPlot)
library(sjmisc)
plot_frq(tscs132r$v88cr)## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.
#88關於社會上的事務或現象，請問您同不同意以下各種說法或想法？
#(d)有些族群在社會上的地位比較低，這也是很自然的，沒有必要改變它
# □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意
tscs132r$v88dr <- rec(tscs132r$v88d, rec="1:2=1;4:5=0;else=NA",
as.num = F,var.label = "v88d",
val.labels = c("不同意","同意"))
frq(tscs132r$v88dr)##
## v88d (x) <categorical>
## # total N=1952 valid N=1623 mean=0.23 sd=0.42
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ------------------------------------------------
## 0 | 不同意 | 1247 | 63.88 | 76.83 | 76.83
## 1 | 同意 | 376 | 19.26 | 23.17 | 100.00
## <NA> | <NA> | 329 | 16.85 | <NA> | <NA>#88關於社會上的事務或現象，請問您同不同意以下各種說法或想法？
#(e)想要過美好的生活，一定要遵守傳統的規定與紀律
# □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意
tscs132r$v88er <- rec(tscs132r$v88e, rec="1:2=1;4:5=0;else=NA",
as.num = F,var.label = "v88e",
val.labels = c("不同意","同意"))
frq(tscs132r$v88er)##
## v88e (x) <categorical>
## # total N=1952 valid N=1569 mean=0.63 sd=0.48
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------
## 0 | 不同意 | 577 | 29.56 | 36.78 | 36.78
## 1 | 同意 | 992 | 50.82 | 63.22 | 100.00
## <NA> | <NA> | 383 | 19.62 | <NA> | <NA>library(sjPlot)
library(sjmisc)
plot_frq(tscs132r$v88er)## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.
#88關於社會上的事務或現象，請問您同不同意以下各種說法或想法？
#(f)有些族群的素質天生就比較差
# □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意
tscs132r$v88fr <- rec(tscs132r$v88f, rec="1:2=1;4:5=0;else=NA",
as.num = F,var.label = "v88f",
val.labels = c("不同意","同意"))
frq(tscs132r$v88fr)##
## v88f (x) <categorical>
## # total N=1952 valid N=1572 mean=0.38 sd=0.49
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------
## 0 | 不同意 | 968 | 49.59 | 61.58 | 61.58
## 1 | 同意 | 604 | 30.94 | 38.42 | 100.00
## <NA> | <NA> | 380 | 19.47 | <NA> | <NA>#89.關於台灣社會文化的現象，請問您同不同意以下各種說法或想法？
#(c)現在的台灣文化已經不能再說是中國文化的一部分
# □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意
tscs132r$v89cr <- rec(tscs132r$v89c, rec="1:2=1;4:5=0;else=NA",
as.num = F,var.label = "v89c",
val.labels = c("不同意","同意"))
frq(tscs132r$v89cr)##
## v89c (x) <categorical>
## # total N=1952 valid N=1563 mean=0.66 sd=0.47
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ------------------------------------------------
## 0 | 不同意 | 530 | 27.15 | 33.91 | 33.91
## 1 | 同意 | 1033 | 52.92 | 66.09 | 100.00
## <NA> | <NA> | 389 | 19.93 | <NA> | <NA>#89.關於台灣社會文化的現象，請問您同不同意以下各種說法或想法？
#(e)台灣人的祖先就是黃帝，我們要繼承這樣的血統與歷史
# □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意
tscs132r$v89er <- rec(tscs132r$v89e, rec="1:2=1;4:5=0;else=NA",
as.num = F,var.label = "v89e",
val.labels = c("不同意","同意"))
frq(tscs132r$v89er)##
## v89e (x) <categorical>
## # total N=1952 valid N=1419 mean=0.79 sd=0.41
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ------------------------------------------------
## 0 | 不同意 | 305 | 15.62 | 21.49 | 21.49
## 1 | 同意 | 1114 | 57.07 | 78.51 | 100.00
## <NA> | <NA> | 533 | 27.31 | <NA> | <NA>#89.關於台灣社會文化的現象，請問您同不同意以下各種說法或想法？
#(f)在台灣長久居住或成長的人們應該一起發展出自己的新民族
# □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意
tscs132r$v89fr <- rec(tscs132r$v89e, rec="1:2=1;4:5=0;else=NA",
as.num = F,var.label = "v89f",
val.labels = c("不同意","同意"))
frq(tscs132r$v89fr)##
## v89f (x) <categorical>
## # total N=1952 valid N=1419 mean=0.79 sd=0.41
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ------------------------------------------------
## 0 | 不同意 | 305 | 15.62 | 21.49 | 21.49
## 1 | 同意 | 1114 | 57.07 | 78.51 | 100.00
## <NA> | <NA> | 533 | 27.31 | <NA> | <NA>#89.關於台灣社會文化的現象，請問您同不同意以下各種說法或想法？
#(h)作為華夏子孫，我們在國際上應該盡力將中華文化發揚光大
# □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意
tscs132r$v89hr <- rec(tscs132r$v89h, rec="1:2=1;4:5=0;else=NA",
as.num = F,var.label = "v89h",
val.labels = c("不同意","同意"))
frq(tscs132r$v89hr)##
## v89h (x) <categorical>
## # total N=1952 valid N=1689 mean=0.95 sd=0.22
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ------------------------------------------------
## 0 | 不同意 | 85 | 4.35 | 5.03 | 5.03
## 1 | 同意 | 1604 | 82.17 | 94.97 | 100.00
## <NA> | <NA> | 263 | 13.47 | <NA> | <NA>#89.關於台灣社會文化的現象，請問您同不同意以下各種說法或想法？
#(i)不管台灣發生任何問題，我都一定會挺它到底，絕對不會想要移民到國外
# □(01)非常同意 □(02)同意 □(03)既不同意也不反對 □(04)不同意 □(05)非常不同意
tscs132r$v89ir <- rec(tscs132r$v89i, rec="1:2=1;4:5=0;else=NA",
as.num = F,var.label = "v89i",
val.labels = c("不同意","同意"))
frq(tscs132r$v89ir)##
## v89i (x) <categorical>
## # total N=1952 valid N=1589 mean=0.88 sd=0.32
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ------------------------------------------------
## 0 | 不同意 | 189 | 9.68 | 11.89 | 11.89
## 1 | 同意 | 1400 | 71.72 | 88.11 | 100.00
## <NA> | <NA> | 363 | 18.60 | <NA> | <NA>library(sjPlot)
library(sjmisc)
plot_frq(tscs132r$v89ir)## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.
#95.國內的政黨都有它們的支持者，請問您是哪一個政黨的支持者？
#□(01)國民黨 □(02)民進黨 □(03)親民黨 □(04)台聯 □(05)新黨 □(06)建國黨 □(07)其他政黨，請說明：____________
#□(08)泛藍（續答96） □(09)泛綠（續答96） □(10)有支持政黨，不願意回答（續答96）
#□(11)都沒有∕都支持
tscs132r$v95r <- rec(tscs132r$v95, rec="11=NA;else=copy",
as.num = F)
tscs132r$KMT <- rec(tscs132r$v95, rec="1,3,5,8=1;else=0",
as.num = F,var.label = "v95r")
tscs132r$DDP <- rec(tscs132r$v95, rec="2,4,6,9=1;else=0",
as.num = F,var.label = "v95r")
tscs132r$camp<- rec(tscs132r$v95, rec="2,4,6,9=1;1,3,5,8=2;7,10,11=3; 96:99=NA",
as.num = F,var.label = "v95r") #綠藍其他
#96.一般而言，請問您會比較偏向哪一個政黨？
#□(01)國民黨 □(02)民進黨 □(03)親民黨 □(04)台聯 □(05)新黨 □(06)建國黨 □(07)其他政黨，請說明：____________
#□(08)泛藍 □(09)泛綠 □(10)有偏向政黨，不願意回答 □(11)都沒有∕都支持
tscs132r$v96r <- rec(tscs132r$v95, rec="10,11=NA;else=copy",
as.num = F)
tscs132r$PanKMT <- rec(tscs132r$v95, rec="1,3,5,8=1;else=0",
as.num = F,var.label = "v96r")
tscs132r$PanDDP <- rec(tscs132r$v95, rec="2,4,6,9=1;else=0",
as.num = F,var.label = "v96r")
tscs132r$Pancamp<- rec(tscs132r$v95, rec="2,4,6,9=1;1,3,5,8=2;
7,10,11=3; else=NA",
as.num = F,var.label = "v96r") #綠藍其他
save(tscs132r, file="tscs132r.rda")
tscs132AAA <-set_na(tscs132r, na=c(92:99, "NA"))
save(tscs132AAA, file="tscs132AAA.rda")變數挑選
library(dplyr)##
## 載入套件：'dplyr'## 下列物件被遮斷自 'package:sjlabelled':
##
## as_label## 下列物件被遮斷自 'package:stats':
##
## filter, lag## 下列物件被遮斷自 'package:base':
##
## intersect, setdiff, setequal, unionload("tscs132AAA.rda")
MCAtscs132r <- select( tscs132AAA,
c( #核心變數
v13r, v15r , #祖國,
v16r, v17r, v18ar, v18br, v36r, v37r,v31dr, #語言
v31gr, v32r, v33ar, #情感認同
v38ar, v38cr, v39ar, v39br, v39er, #排外&保護主義
v41r, v42ar, v42br, v42ir, v42jr, v80r, v81r, v82r,#對外來移民的態度
v88ar, v88br, v88cr, v88dr, v88er, v88fr,#公共事務(權威、紀律、階級)
v89cr, v89er, v89fr, v89hr, v89ir, #文化認同
v21r, #教育程度
camp, Pancamp #政黨傾向
))
#無效值剔除（list-wise deletion）。
MCAtscs132r.nona <- na.omit(MCAtscs132r)探索式分析 MCA (Multiple Correspondence Analysis)
library(labelled)##
## 載入套件：'labelled'## 下列物件被遮斷自 'package:sjlabelled':
##
## copy_labels, remove_labels, to_character, to_factor, val_labels## 下列物件被遮斷自 'package:sjmisc':
##
## to_character, to_factorlibrary(FactoMineR)
library(factoextra)## 載入需要的套件：ggplot2##
## 載入套件：'ggplot2'## 下列物件被遮斷自 'package:sjlabelled':
##
## as_label## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBanames(MCAtscs132r.nona) ## [1] "v13r" "v15r" "v16r" "v17r" "v18ar" "v18br" "v36r"
## [8] "v37r" "v31dr" "v31gr" "v32r" "v33ar" "v38ar" "v38cr"
## [15] "v39ar" "v39br" "v39er" "v41r" "v42ar" "v42br" "v42ir"
## [22] "v42jr" "v80r" "v81r" "v82r" "v88ar" "v88br" "v88cr"
## [29] "v88dr" "v88er" "v88fr" "v89cr" "v89er" "v89fr" "v89hr"
## [36] "v89ir" "v21r" "camp" "Pancamp"# str(MCAtscs132r.nona) 用str()檢查變數是否都是factor
MCAtscs132r.nona$v32r <- factor(MCAtscs132r.nona$v32r)
# str(MCAtscs132r.nona)
res <- MCA(MCAtscs132r.nona, ncp=10, graph= F) #ncp：主觀定的維次個數
fviz_screeplot(res, ncp=10)## Registered S3 methods overwritten by 'car':
## method from
## influence.merMod lme4
## cooks.distance.influence.merMod lme4
## dfbeta.influence.merMod lme4
## dfbetas.influence.merMod lme4
# install.packages("corrplot")
library(corrplot) ## corrplot 0.89 loadedcorrplot(res$var$cos2, is.corr=FALSE, tl.cex=.6)
關聯分布及類別關係
從探索式分析的變數類別關係圖中可以看出幾組距離較近、可能相關的幾個選項，分別為： (1)「祖國非台灣(中國、中華民國、其他)」(v15r_0)、「台灣客家人」(v13r_2)和國民黨(camp_2) (2)不同意「東南亞外籍配偶在台灣不論多久，都無法真正認同台灣」(v42jr_2)、不同意「大陸配偶在台灣不論多久，都無法真正認同台灣」(v42ir_2)和不同意「移民會使治安變差」(v42ar_2) (此題組反向意向之選項v42jr_1、v42ir_1、v42ar_1三選項之間也皆相近，) (3)要成為同胞「在感情上認同我們的國家」不怎麼重要(v31gr_2)和要成為同胞「會說國語（中文）」不怎麼重要(v31dr_2) (4)「使用客語感到最自然」(v17r_3)和「希望在家和小孩說客語」(v18ar_3) (5)「祖國台灣」(v15r_1)和認為「越來越多的中國大陸人成為台灣公民，對台灣不好」(v80r_0)
說實話，其實在這些距離相近的選項內並沒有太出乎意料的答案，較多為母語、祖國、偏好政黨間可能的(甚至為已知的)潛在關聯，而和情感上誰為同胞、接納移民與否等態度相關題目，受訪者的回答和移民國籍、語言以及受訪者本身政黨關連也不大，而這是原先較期待能在探索式分析中找到的潛在關聯。
第一維次的構成(X軸):是否認同大陸配偶為同胞(v42ir)、是否偏好中國大陸人成為台灣公民(v80r)、是否該強調台灣本土文化的教育(v37r)，而在靠Y軸的另一端則有題目v39er:是否認為自己是世界的公民，不是任何國家的公民
第二維次的構成(Y軸) 台灣人的祖先就是黃帝，我們要繼承這樣的血統與歷史(v89er)、在台灣長久居住或成長的人們應該一起發展出自己的新民族(v89fr)、有些族群在社會上的地位比較低，這也是很自然的，沒有必要改變它(v88dr) 是否該強調中華文化的教育(v36r)、為了保護我們國家自己的利益，就算需要和其他國家發生衝突也無所謂(v38cr)
##變數關聯分佈圖
library(FactoMineR)
library(factoextra)
plot(res, axes=c(1, 2), new.plot=TRUE, choix="var",
col.var="red", col.quali.sup="darkgreen",
autoLab = "yes",
title="", cex=0.8,
xlim=c(0,0.4), ylim=c(0, 0.6))## Warning: Removed 3 rows containing missing values (geom_point).## Warning: Removed 3 rows containing missing values (geom_text_repel).## Warning: ggrepel: 3 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.5,
selectMod = "cos2",
invisible=c("ind", "quali.sup"),
autoLab = "yes",
title="") ## Warning: ggrepel: 59 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.5,
selectMod = "cos2 30",
invisible=c("ind", "quali.sup"),
xlim=c(-0.9,0.8), yxlim=c(-0.8,1),
autoLab = "yes",
title="") ## Warning: Removed 12 rows containing missing values (geom_point).## Warning: Removed 12 rows containing missing values (geom_text_repel).## Warning: ggrepel: 10 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
構成第一維次(X軸)的重要變數:語言-在家說國語(v16r_1)、希望在家和小孩說國語(v18ar_1)、最習慣用國語表達情感(v17r_1)
library(factoextra)
fviz_contrib(res, choice ="var", axes = 1) # 第一維度的重要變數類別
構成第二維次(Y軸)的重要變數:v89題組民族文化認同-不同意“台灣人的祖先就是黃帝，並該繼承這樣的血統與歷史”(v89_er0)、不同意“在台灣長久居住或成長的人們應該一起發展出自己的新民族”(v89_fr0)、不同意“作為華夏子孫，我們在國際上應該盡力將中華文化發揚光大”(v89_hr0)
library(factoextra)
fviz_contrib(res, choice ="var", axes = 2)
個別選項看受訪者分布
1.政黨
可以看出三個政黨類別的明顯不同分布，camp 1, camp2, camp3分別代表綠營、藍營或其他政黨、不願意回答立場之受訪者。
在圖中可看出大致受訪者分布:綠營偏左半部(第二象限)，藍營大略偏下，尤集中右下，而其他受訪者則大約分布在藍綠營間。由此可描繪出藍綠受訪者在民族文化方面的立場，藍營集中下方，同意中華文化、發展出自己的新民族、黃帝血統與史觀，而綠營則反之。另在語言方面，藍營支持者傾向使用國語，而這也和大眾普遍認知相同。
library(factoextra)
plotellipses(res, keepvar = c("camp"), label="ind.sup") #政黨 camp 1綠營, camp2藍營, camp3其他
- 教育程度
教育程度則為大專以上和大專以下的分布呈現越朝右教育程度愈高，:大專以下受訪者分布多於二三象限，而大專與大專以上學歷受訪者的回答也有小部分差別:大專以上受訪者分布較上、集中第一象限，而大專學歷受訪者分布較大專以下較右，大致分布於一四象限。
由此可刻畫出受過高等教育之受訪者較傾向使用國語，且較不認同中華民族史觀。具大專學歷受訪者也偏好國語，但民族文化無較明顯偏好傾向。 大專以下受訪者在民族文化認同也無明顯偏好傾向，但語言上不傾向使用國語。
library(factoextra)
plotellipses(res, keepvar = c("v21r"), label="ind.sup") #教育程度 1大專以下 2大專 3大專以上
- 語言
在題目18br「如果鄉土語言和英語只能選一種，請問您希望您的小孩一定要學會哪一種」，可以看出選擇鄉土語言的群眾分布二三象限，較少具偏好國語的傾向，但選擇英文的群眾在國語偏好上也無特別集中，呈四散，無明顯趨勢。
library(factoextra)
plotellipses(res, keepvar = c("v18br"), label="ind.sup") #1鄉土語言 2英語
plotellipses(res, keepvar = c("v16r"), label="ind.sup") #家中常用語言 1 國語 2台語 3客語
plotellipses(res, keepvar = c("v17r"), label="ind.sup") #最自然使用語言 1 國語 2台語 3客語
plotellipses(res, keepvar = c("v18ar"), label="ind.sup")#希望和小孩說的語言 1 國語 2台語 3客語
- 排外態度
在下列和排外態度和保護主義有關的題目中，僅有v38r「是否同意為了保護我國的經濟，我們應該限制外國產品進口」及v39br「是否同意自由貿易讓我們可以買到更好的產品 」有明顯趨勢。
v38r「是否同意為了保護我國的經濟，我們應該限制外國產品進口」，可以描繪經濟上採保護主義的群眾分布主要位於二三象限。
而在v39br「是否同意自由貿易讓我們可以買到更好的產品」一題中可發現不同意上列敘述者的分布更限縮再第二象限。
library(factoextra)
plotellipses(res, keepvar = c("v38ar"), label="ind.sup") #是否同意為了保護我國的經濟，我們應該限制外國產品進口 1同意 2不同意
plotellipses(res, keepvar = c("v38cr"), label="ind.sup") 
plotellipses(res, keepvar = c("v39ar"), label="ind.sup") 
plotellipses(res, keepvar = c("v39br"), label="ind.sup") #是否同意自由貿易讓我們可以買到更好的產品 0同意 1不同意
plotellipses(res, keepvar = c("v39er"), label="ind.sup") 
- 對移民的態度
v80, v81, v82 三題中群眾不論對何種國家的人成為台灣公民的態度分布均類似，皆無明顯集中趨勢，僅能大至看出反對者(認為不好的群眾)皆大致落於二三象限，但贊成外國人(不論國籍)成為台灣公民的群眾分布則更分散，並不特定集中於一四象限。另外在贊成中國籍、東南亞籍及歐美籍人士成為公民的群眾分布上，整體中心有往上並往中心移動的趨勢，說明贊成中國籍人士的群眾分布偏向第四象限，而贊成東南亞籍人士的群眾分布範圍略往上發散，而贊成歐美人士者則幾乎廣泛分布於四象限中。
而在題目v42i「大陸配偶無法真正認同台灣」及v42j「東南亞外籍配偶無法真正認同台灣」有較明顯分布，同意前者的群眾大約集中左側二三象限，不同意(認為外籍配偶可以認同台灣)集中右半側一四象限。其中，不同意東南亞籍配偶能認同台灣者尤其集中第三象限，相較於不同意大陸配偶配偶能認同台灣者。
plotellipses(res, keepvar = c("v42ir"), label="ind.sup") #大陸配偶無法真正認同台灣 1同意 2不同意
plotellipses(res, keepvar = c("v42jr"), label="ind.sup") #東南亞外籍配偶無法真正認同台灣 1同意 2不同意
plotellipses(res, keepvar = c("v80r"), label="ind.sup") #中國大陸人成為台灣公民 0不好 1好
plotellipses(res, keepvar = c("v81r"), label="ind.sup") #東南亞人成為台灣公民 0不好 1好
plotellipses(res, keepvar = c("v82r"), label="ind.sup") #歐美人成為台灣公民 0不好 1好
- 道德相關(紀律、服從、傳統)
88cr：與其聽取迎合大眾的言論，不如相信專家學者或政府官員等權威人士的判斷
88er：想要過美好的生活，一定要遵守傳統的規定與紀律 題目88er和88cr比較起來似乎有較明顯的分布趨勢，可以看出不同意傳統紀律的群眾主要分布一二象限，而88cr雖然較不明顯，但也呈現出不同意權威的群眾較趨向一二象限。
plotellipses(res, keepvar = c("v88cr"), label="ind.sup") #是否同意「與其聽取迎合大眾的言論，不如相信專家學者或政府官員等權威人士的判斷」0不同意 1同意
plotellipses(res, keepvar = c("v88er"), label="ind.sup") #是否同意「想要過美好的生活，一定要遵守傳統的規定與紀律」0不同意 1同意
小結：四個維次所各自代表的群體面貌 第一維次(知識泛綠)：偏好國語、中間及中間偏綠、大專以上、認為外籍配偶可以認同台灣、不認同權威與傳統 第二維次(草根綠)：偏好台語、綠營、大專以下、偏好鄉土語言、經濟保護主義、不贊成自由貿易、認為大陸配偶無法真正認同台灣、不認同權威與傳統 第三維次(草根泛藍)：偏好台語、中間及中間偏藍、大專以下、偏好鄉土語言、經濟保護主義、認為東南亞、大陸配偶無法認同台灣、認同權威與傳統 第四維次(知識藍)：偏好國語、藍營、大專、認為外籍配偶可以認同台灣、認同權威與傳統
在這個部分顯示作風偏自由派的知識泛綠族群同樣不認同傳統並接納移民，而草根綠雖然在經貿持保守立場，但在道德立場上卻不信仰保守價值觀。知識藍族群雖有美國自由派的影子，但也認同保守派的道德價值觀。草根泛藍的部分就的確偏向美國保守派價值觀：不認同自由貿易、外來移民，並認同權威和傳統。
用卡方檢定確定相關性
在這個步驟中，進一步用卡方檢定確認上述具有潛在關聯的變數是否在統計上有關連性，關聯度較高的變數(φ大於0.25)為下列幾組:
(1)使用上感到最自然的語言 + 想和孩子在家說的語言
(2)「東南亞外籍配偶無法真正認同台灣」+「大陸配偶在台灣無法真正認同台灣」
(3)「大陸配偶在台灣無法真正認同台灣」+「移民會使治安變差」
(4)要成為同胞「在感情上認同我們的國家」+ 要成為同胞「會說國語（中文）」
(5)祖國非台灣 + 藍營
這些結果看似十分直覺，我們可以更細緻地觀察到認為移民無法融入是相關的，而不關乎國籍；但認為會使治安變差則和特定國籍有關。以及確定語言和情感上的國家認同的確有某種程度上的關聯。
library(sjPlot)
library(readr)
load("tscs132r.rda")
tab_xtab(tscs132r$v13r, tscs132r$v15r, encoding = "UTF-8",
show.row.prc = TRUE,
show.col.prc = TRUE,
show.na=FALSE,
show.legend = FALSE,
show.exp = FALSE,
show.cell.prc = FALSE) #客家人+祖國非台灣## Warning in sprintf(" <td class=\"summary tdata\" colspan=\"%i\">%s=%.3f ·
## df=%i · %s=%.3f · %s=%.3f</td>", : one argument not used by format
## ' <td class="summary tdata" colspan="%i">%s=%.3f · df=%i · %s=%.3f
## · %s=%.3f</td>'| v13 |
憒<9e><9c>犖 |
Total | |
|---|---|---|---|
|
銝剛瘞<9c>葉 |
|
||
|
|
252 17.1 % 57.5 % |
1225 82.9 % 82.3 % |
1477 100 % 76.6 % |
|
|
47 26.4 % 10.7 % |
131 73.6 % 8.8 % |
178 100 % 9.2 % |
|
|
4 19 % 0.9 % |
17 81 % 1.1 % |
21 100 % 1.1 % |
|
憭折 |
20 80 % 4.6 % |
5 20 % 0.3 % |
25 100 % 1.3 % |
|
|
60 58.3 % 13.7 % |
43 41.7 % 2.9 % |
103 100 % 5.3 % |
|
|
1 20 % 0.2 % |
4 80 % 0.3 % |
5 100 % 0.3 % |
|
|
11 91.7 % 2.5 % |
1 8.3 % 0.1 % |
12 100 % 0.6 % |
|
|
43 40.6 % 9.8 % |
63 59.4 % 4.2 % |
106 100 % 5.5 % |
| Total |
438 22.7 % 100 % |
1489 77.3 % 100 % |
1927 100 % 100 % |
χ2=200.929 · df=7 · Cramer’s V=0.323 · Fisher’s p=0.000 |
tab_xtab(tscs132r$v80r, tscs132r$v15r, encoding = "UTF-8",
show.row.prc = TRUE,
show.col.prc = TRUE,
show.na=FALSE,
show.legend = FALSE,
show.exp = FALSE,
show.cell.prc = FALSE) #祖國台灣+中國大陸人成為台灣公民，對台灣不好## Warning in sprintf(" <td class=\"summary tdata\" colspan=\"%i\">%s=%.3f ·
## df=%i · %s=%.3f · %s=%.3f</td>", : one argument not used by format
## ' <td class="summary tdata" colspan="%i">%s=%.3f · df=%i · %s=%.3f
## · %s=%.3f</td>'| v80 |
憒<9e><9c>犖 |
Total | |
|---|---|---|---|
|
銝剛瘞<9c>葉 |
|
||
| 銝末 |
290 20.3 % 69.5 % |
1138 79.7 % 79.4 % |
1428 100 % 77.1 % |
|
憟 |
127 30 % 30.5 % |
296 70 % 20.6 % |
423 100 % 22.9 % |
| Total |
417 22.5 % 100 % |
1434 77.5 % 100 % |
1851 100 % 100 % |
χ2=17.097 · df=1 · φ=0.098 · p=0.000 |
tab_xtab(tscs132r$v42jr, tscs132r$v42ir, encoding = "UTF-8",
show.row.prc = TRUE,
show.col.prc = TRUE,
show.na=FALSE,
show.legend = FALSE,
show.exp = FALSE,
show.cell.prc = FALSE) #「東南亞外籍配偶無法真正認同台灣」+「大陸配偶在台灣無法真正認同台灣」## Warning in sprintf(" <td class=\"summary tdata\" colspan=\"%i\">%s=%.3f ·
## df=%i · %s=%.3f · %s=%.3f</td>", : one argument not used by format
## ' <td class="summary tdata" colspan="%i">%s=%.3f · df=%i · %s=%.3f
## · %s=%.3f</td>'| v42j | v42i | Total | |
|---|---|---|---|
|
|
銝<90><84><8f> | ||
|
|
352 65.7 % 62.7 % |
184 34.3 % 30.8 % |
536 100 % 46.3 % |
| 銝<90><84><8f> |
209 33.6 % 37.3 % |
413 66.4 % 69.2 % |
622 100 % 53.7 % |
| Total |
561 48.4 % 100 % |
597 51.6 % 100 % |
1158 100 % 100 % |
χ2=117.278 · df=1 · φ=0.320 · p=0.000 |
tab_xtab(tscs132r$v42jr, tscs132r$v42ar, encoding = "UTF-8",
show.row.prc = TRUE,
show.col.prc = TRUE,
show.na=FALSE,
show.legend = FALSE,
show.exp = FALSE,
show.cell.prc = FALSE) #「東南亞外籍配偶無法真正認同台灣」+「移民會使治安變差」## Warning in sprintf(" <td class=\"summary tdata\" colspan=\"%i\">%s=%.3f ·
## df=%i · %s=%.3f · %s=%.3f</td>", : one argument not used by format
## ' <td class="summary tdata" colspan="%i">%s=%.3f · df=%i · %s=%.3f
## · %s=%.3f</td>'| v42j | v42a | Total | |||
|---|---|---|---|---|---|
|
|
銝<90><84><8f> |
|
|
||
|
|
694 100 % 100 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
694 100 % 46.2 % |
| 銝<90><84><8f> |
0 0 % 0 % |
809 100 % 100 % |
0 0 % 0 % |
0 0 % 0 % |
809 100 % 53.8 % |
| Total |
694 46.2 % 100 % |
809 53.8 % 100 % |
0 0 % 100 % |
0 0 % 100 % |
1503 100 % 100 % |
χ2=NaN · df=3 · Cramer’s V=NaN · Fisher’s p=0.000 |
tab_xtab(tscs132r$v42ir, tscs132r$v42ar, encoding = "UTF-8",
show.row.prc = TRUE,
show.col.prc = TRUE,
show.na=FALSE,
show.legend = FALSE,
show.exp = FALSE,
show.cell.prc = FALSE) #「大陸配偶在台灣無法真正認同台灣」+「移民會使治安變差」## Warning in sprintf(" <td class=\"summary tdata\" colspan=\"%i\">%s=%.3f ·
## df=%i · %s=%.3f · %s=%.3f</td>", : one argument not used by format
## ' <td class="summary tdata" colspan="%i">%s=%.3f · df=%i · %s=%.3f
## · %s=%.3f</td>'| v42i | v42a | Total | |||
|---|---|---|---|---|---|
|
|
銝<90><84><8f> |
|
|
||
|
|
352 53.7 % 65.7 % |
209 31.9 % 33.6 % |
91 13.9 % 44.2 % |
3 0.5 % 33.3 % |
655 100 % 47.7 % |
| 銝<90><84><8f> |
184 25.6 % 34.3 % |
413 57.5 % 66.4 % |
115 16 % 55.8 % |
6 0.8 % 66.7 % |
718 100 % 52.3 % |
| Total |
536 39 % 100 % |
622 45.3 % 100 % |
206 15 % 100 % |
9 0.7 % 100 % |
1373 100 % 100 % |
χ2=120.723 · df=3 · Cramer’s V=0.297 · Fisher’s p=0.000 |
tab_xtab(tscs132r$v31gr, tscs132r$v31dr, encoding = "UTF-8",
show.row.prc = TRUE,
show.col.prc = TRUE,
show.na=FALSE,
show.legend = FALSE,
show.exp = FALSE,
show.cell.prc = FALSE) #要成為同胞「在感情上認同我們的國家」+ 要成為同胞「會說國語（中文）」## Warning in sprintf(" <td class=\"summary tdata\" colspan=\"%i\">%s=%.3f ·
## df=%i · %s=%.3f · %s=%.3f</td>", : one argument not used by format
## ' <td class="summary tdata" colspan="%i">%s=%.3f · df=%i · %s=%.3f
## · %s=%.3f</td>'|
(g)憒<9e> |
(d)憒<9e> |
Total | |||
|---|---|---|---|---|---|
| 1 | 2 | 3 | 4 | ||
| 1 |
19 100 % 100 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
19 100 % 1 % |
| 2 |
0 0 % 0 % |
71 100 % 100 % |
0 0 % 0 % |
0 0 % 0 % |
71 100 % 3.7 % |
| 3 |
0 0 % 0 % |
0 0 % 0 % |
663 100 % 100 % |
0 0 % 0 % |
663 100 % 34.6 % |
| 4 |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1165 100 % 100 % |
1165 100 % 60.7 % |
| Total |
19 1 % 100 % |
71 3.7 % 100 % |
663 34.6 % 100 % |
1165 60.7 % 100 % |
1918 100 % 100 % |
χ2=5754.000 · df=9 · Cramer’s V=1.000 · Fisher’s p=0.000 |
tab_xtab(tscs132r$camp, tscs132r$v15r,
show.row.prc = TRUE,
show.col.prc = TRUE,
show.na=FALSE,
show.legend = FALSE,
show.exp = FALSE,
show.cell.prc = FALSE) #祖國非台灣+藍營## Warning in sprintf(" <td class=\"summary tdata\" colspan=\"%i\">%s=%.3f ·
## df=%i · %s=%.3f · %s=%.3f</td>", : one argument not used by format
## ' <td class="summary tdata" colspan="%i">%s=%.3f · df=%i · %s=%.3f
## · %s=%.3f</td>'| v95r |
憒<9e><9c>犖 |
Total | |
|---|---|---|---|
|
銝剛瘞<9c>葉 |
|
||
| 1 |
40 9.7 % 9.3 % |
371 90.3 % 25.1 % |
411 100 % 21.6 % |
| 2 |
190 42.1 % 44.3 % |
261 57.9 % 17.7 % |
451 100 % 23.6 % |
| 3 |
199 19 % 46.4 % |
846 81 % 57.2 % |
1045 100 % 54.8 % |
| Total |
429 22.5 % 100 % |
1478 77.5 % 100 % |
1907 100 % 100 % |
χ2=145.250 · df=2 · Cramer’s V=0.276 · p=0.000 |
tab_xtab(tscs132r$camp, tscs132r$v13r, encoding = "UTF-8",
show.row.prc = TRUE,
show.col.prc = TRUE,
show.na=FALSE,
show.legend = FALSE,
show.exp = FALSE,
show.cell.prc = FALSE) #客家人+藍營## Warning in sprintf(" <td class=\"summary tdata\" colspan=\"%i\">%s=%.3f ·
## df=%i · %s=%.3f · %s=%.3f</td>", : one argument not used by format
## ' <td class="summary tdata" colspan="%i">%s=%.3f · df=%i · %s=%.3f
## · %s=%.3f</td>'| v95r | v13 | Total | |||||||
|---|---|---|---|---|---|---|---|---|---|
|
|
|
|
憭折 |
|
|
|
|
||
| 1 |
371 89 % 25.3 % |
24 5.8 % 13.4 % |
3 0.7 % 14.3 % |
2 0.5 % 7.7 % |
2 0.5 % 2 % |
1 0.2 % 16.7 % |
1 0.2 % 9.1 % |
13 3.1 % 12.6 % |
417 100 % 21.8 % |
| 2 |
275 61 % 18.8 % |
58 12.9 % 32.4 % |
7 1.6 % 33.3 % |
16 3.5 % 61.5 % |
62 13.7 % 60.8 % |
2 0.4 % 33.3 % |
3 0.7 % 27.3 % |
28 6.2 % 27.2 % |
451 100 % 23.6 % |
| 3 |
819 78.4 % 55.9 % |
97 9.3 % 54.2 % |
11 1.1 % 52.4 % |
8 0.8 % 30.8 % |
38 3.6 % 37.3 % |
3 0.3 % 50 % |
7 0.7 % 63.6 % |
62 5.9 % 60.2 % |
1045 100 % 54.6 % |
| Total |
1465 76.6 % 100 % |
179 9.4 % 100 % |
21 1.1 % 100 % |
26 1.4 % 100 % |
102 5.3 % 100 % |
6 0.3 % 100 % |
11 0.6 % 100 % |
103 5.4 % 100 % |
1913 100 % 100 % |
χ2=147.689 · df=14 · Cramer’s V=0.196 · Fisher’s p=0.000 |
tab_xtab(tscs132r$v18ar, tscs132r$v17r, encoding = "UTF-8",
show.row.prc = TRUE,
show.col.prc = TRUE,
show.na=FALSE,
show.legend = FALSE,
show.exp = FALSE,
show.cell.prc = FALSE) #感到最自然的語言+想和孩子在家說的語言## Warning in sprintf(" <td class=\"summary tdata\" colspan=\"%i\">%s=%.3f ·
## df=%i · %s=%.3f · %s=%.3f</td>", : one argument not used by format
## ' <td class="summary tdata" colspan="%i">%s=%.3f · df=%i · %s=%.3f
## · %s=%.3f</td>'| v18a | v17 | Total | |||
|---|---|---|---|---|---|
|
|
|
摰Ｚ |
|
||
|
|
514 84 % 82 % |
50 8.2 % 6.7 % |
4 0.7 % 13.8 % |
44 7.2 % 37.9 % |
612 100 % 40.4 % |
|
|
101 11.7 % 16.1 % |
691 80.2 % 93.3 % |
1 0.1 % 3.4 % |
69 8 % 59.5 % |
862 100 % 57 % |
|
摰Ｚ |
12 31.6 % 1.9 % |
0 0 % 0 % |
24 63.2 % 82.8 % |
2 5.3 % 1.7 % |
38 100 % 2.5 % |
|
|
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 100 % 0.9 % |
1 100 % 0.1 % |
| Total |
627 41.4 % 100 % |
741 49 % 100 % |
29 1.9 % 100 % |
116 7.7 % 100 % |
1513 100 % 100 % |
χ2=1625.733 · df=9 · Cramer’s V=0.598 · Fisher’s p=0.000 |
結語
在上述資料分析的結果中，能大致觀察出語言和傳統的黨派分布與認同有關，但不能看出和排外傾向或對移民的態度有關。此外，原先我預期可能排外可能也會與道德價值觀有關，結果確有和我原先所認為不一致的部分：排外和道德價值觀不一定相關。草根綠民眾雖不認同權威和也不認同移民，以及知識藍族群認同權威、傳統，卻也認同外來移民的不分。我認為或許是因為少了宗教因素，讓台灣的社會中的群體認同不置於全部左落在光譜兩端，從資料中看出來的確有在道德、排外立場上偏美國保守派的群體，但要演變為歐洲極右派的程度或許還不至於。此外讓我好奇的也是對於較不接納移民的團體中，移民的語言是否會成為他們接納與否的原因目前似乎看不出來，因為即使語言和國家認同有關，但草根藍民眾仍不認為中國移民能認同台灣。在解讀完這個結果除了部分符合預期，部分和已知不符，也留下更多可供探索的材料，語言和認同有關，那麼草根泛藍民眾的認同為何？
因為本問卷中關於語言使用、偏好的問題較少，且大多著重在身分、祖國。我認為從外語的接受度、偏好也會是一個觀察排外傾向分布有趣的切入點，已及更豐富的“外來者”來檢測群眾的態度是否有大幅改變，抑或是從其他資訊如社會地位及世代作切入，有更多不同的視角來理解他們彼此間的關係。