library(sjlabelled)
library(sjmisc)
#讀入本次使用資料檔，2024年中國印象調查研究
rotci2024 <- read_data("C:/Users/user/Documents/R4surveyresearch-master/04買菜_資料的取用與整理/data.sav")
# 用read.spss()處理亂碼
# library(foreign)
# rotci2024 <- read.spss("C:/Users/user/Documents/R4surveyresearch-master/04買菜_資料的取用與整理/data.sav",
# reencode="big5",
# to.data.frame=T,
# )
# 存備份檔
save(rotci2024, file = "rotci2024.rda", compress = T)
# 檢查觀察值（N）數量（應為 3,253）與資料欄位維度
nrow(rotci2024)
dim(rotci2024)
# 看資料的結構
str(rotci2024)作業二 家庭背景、民主制度的信任與臺灣民眾對中國的觀感：以2024年中國印象調查為例
一、研究問題
近年來，在美中兩國競爭與兩岸關係高度緊張的狀況下，「中國」在臺灣社會對民眾的觀感有著許多的不同。當我們觀察日常輿論、感受社會氛圍時會發現，同樣面對對岸的政治體制與社會現實，不同世代、背景或政治立場所解讀出對「中國」的印象往往存在巨大歧異。究竟是什麼樣的因素與心理，在形塑臺灣民眾眼中的中國？本研究正是基於這樣的疑問，試圖探討，每個人的出身背景不同，在成長過程中有著不同的經歷，是哪些因素導致彼此之間的認知及路線有所分歧。
二、研究假設
假設一：父親省籍背景不同的臺灣民眾，對中國大陸整體的信任程度有所差異。臺灣民眾對「中國大陸人」和「中國大陸政府」存在不同的印象及信任程度，有些人在評價「中國大陸整體」時會認為兩者是分開的，有些人則不。我認為家人的省籍背景會是臺灣民眾在前述問題中有不同看法的因素之一，問卷第60題問及受訪者父親的省籍背景，第51題則詢問受訪者「覺得哪些人是不能信任的」，選項包括臺灣人、中國人、美國人、德國人、香港人、韓國人、日本人，從這兩個問題可以從民眾的出身背景來測量該因素是否直接或間接影響其對中國大陸的整體看法。
假設二：臺灣民眾會認為中國大陸是經濟市場還是國家安全威脅?若民眾認為是威脅，則其對中國大陸整體印象呈現負面。 問卷第28題寫道，「有人認為中國是臺灣貿易出口和經濟成長的機會，也有人認為中國對臺灣的國家安全與民主自由構成威脅。哪種論述比較接近您的觀點？」本題以1至10分讓受訪者有回答的級距可選，可以從本題目瞭解其對經濟依賴、開拓市場中國大陸是否產生抗拒，也能與其他變項產生連結。
假設三：臺灣民眾若對我國現行的民主制度感到悲觀或是不滿意，則對於中國大陸整體的印象偏正面。 近年來民間常出現對於民主制度的失望，甚至認為「對岸專制比較好，社會穩定、經濟繁榮」。問卷第52題至55題探討談灣民眾對我國現行民主制度的滿意度，滿意及不滿意的程度各有不同，若民眾不認同民主，或是覺得「換個制度比較好」，這樣的人是否對於中國大陸有所期待或是抱持正面態度?也是此項假設想探討的問題。
三、資料來源
本研究所採用的資料庫為中央研究院政治學研究所，吳重禮主持之「2024年中國印象調查研究」(2024 Research on the China Image)研究計畫，資料編號為C00410。
該計畫之抽樣依照臺灣之年齡人口比例抽樣，分為20-29 歲、30-39 歲、40-49 歲、50-59 歲及60 歲以上共五群，並依照民國112 年台灣母體人口比例估算各群抽取人數；實際抽樣時，各分群以等距抽樣法（Systematic Sampling）進行抽樣，共抽出7,794 人。其中，成功寄發7,636 人；未成功寄達者，如電子郵件帳號不存在、信箱已滿等而造成的退信，或手機門號為電信黑名單、空號或停用中等狀況共158 人，寄發失敗率為2.03%。完成填答問卷總數共3,475 案，扣除填答正確性不一致者，最後完成問卷總數共3,253 案，粗完成率為42.60%。依照AAPOR 的計算方式，未加權的完成率（response rate，RR5）為41.74%，而拒訪率（refusal rate，REF3）為3.99%。
四、讀取資料
五、變項清理
## 清除無效值、重新編碼
#60題 省籍背景變項
rotci2024$Q60r <- rec(rotci2024$Q60,
rec="5=NA; else=copy",
as.num = F)
frq(rotci2024$Q60r)
rotci2024$Q60r <- rec(rotci2024$Q60r, rec="rev",
var.label="請問您父親是本省客家人，本省閩南人，中國各省市人，還是原住民？",
val.labels = c("本省客家人(1)",
"本省閩南人 (2)",
"中國各省市人 (3)",
"原住民 (4)"))
frq(rotci2024$Q60r)
# 將51題中「其他」的值清除
rotci2024$Q51_8r <- rec(rotci2024$Q51_8,
rec="1=NA; else=copy",
as.num = F)
#將28題，中國是威脅或經濟各變項編碼
frq(rotci2024$Q28_1)
rotci2024$Q28_1r <- rec(rotci2024$Q28_1, rec = "rev",
var.label="有人認為中國是臺灣貿易出口和經濟成長的機會，
也有人認為中國對臺灣的國家安全與民主自由構成威脅。哪種論述比較接近您的觀點？",
val.labels = c("中國對臺灣的國家安全與民主自由構成威脅(0)",
"中立 (5)",
"中國是臺灣貿易出口和經濟成長的機會 (10)",
"1(1)",
"2(2)",
"3(3)",
"4(4)",
"6(6)",
"7(7)",
"8(8)",
"9(9)"
),
as.num = F
)
frq(rotci2024$Q28_1r)
#52題變項清理，排除中立選項
frq(rotci2024$Q52)
rotci2024$Q52r <- rec(rotci2024$Q52,
rec="3=NA; else=copy",
as.num = F)
frq(rotci2024$Q52r)
rotci2024$Q52r <- rec(rotci2024$Q52r, rec="rev",
var.label="我們想請教您對於民主政治的看法。請問以下三種說法，您比較同意哪一種？",
val.labels = c("不管什麼情況下，民主政治都是最好的體制(1)",
"在有些情況下，威權的政治體制比民主政治好 (2)"))
frq(rotci2024$Q52r)
#53題民主實行滿意度各變項編碼
frq(rotci2024$Q53)
rotci2024$Q53r <- rec(rotci2024$Q53, rec = "rev",
var.label="整體而言，請問您對於目前臺灣民主政治實行的情形滿不滿意？",
val.labels = c("非常不滿意(1)",
"不滿意(2)",
"滿意(3)",
"非常滿意(4)"
),
as.num = F
)
frq(rotci2024$Q53r)
#54題，臺灣民主分數
frq(rotci2024$Q54_1)
rotci2024$Q54_1r <- rec(rotci2024$Q54_1, rec = "rev",
var.label="如果用0表示臺灣非常不民主，10表示臺灣非常民主，0到10之間請問您會給多少？",
val.labels = c("臺灣非常不民主(0)",
"中立 (5)",
"臺灣非常民主 (10)",
"1(1)",
"2(2)",
"3(3)",
"4(4)",
"6(6)",
"7(7)",
"8(8)",
"9(9)"
),
as.num = F
)
frq(rotci2024$Q54_1r)
#55題民主實行滿意度各變項編碼
frq(rotci2024$Q55)
rotci2024$Q55r <- rec(rotci2024$Q55, rec = "rev",
var.label="請問您對臺灣民主政治未來的發展是悲觀還是樂觀",
val.labels = c("非常悲觀(1)",
"悲觀(2)",
"樂觀(3)",
"非常樂觀(4)"
),
as.num = F
)
frq(rotci2024$Q55r)
# 存清除變項後的備份檔
save(rotci2024, file="rotci2024r.rda") 六、關聯假設
第60題中的省籍背景，第28題中調查民眾認為「中國是威脅還是經濟成長機會」，可以提出一個假設。有外省(父親為中國各省市人)背景的民眾會傾向將中國大陸視為機會而非威脅，但不代表本省民眾或原住民全部都覺得中國是威脅，但其必定有關聯。
第51題中若回答對「中國人」不信任者，代表其有較高的臺灣國家主體意識，會對於我國民主制度(第52-55題)有信心，也會認為民主是較好的制度，而非威權。
第52-55題中，受訪者對臺灣現行民主運作感到失望、不滿，容易轉而羨慕專制體制所帶來的社會穩定與經濟繁榮，進而在28題中，將中國定位為「經濟成長的機會」；相反地，高度認同民主價值且滿意我國民主體制者，會對專制中國抱持高度警惕，將其視為國家安全與民主自由的重大威脅