report
chingting
2020/8/20
資料說明
在此使用的資料是台灣社會變遷基本調查計畫2013第六期第四次（國家認同組）的面訪資料（觀察值個數N=1,952）。調查執行期間為2013.09.22-2013.12.10。計畫主持人為傅仰止、章英華、杜素豪與廖培珊。計畫執行單位為中央研究院社會學研究所，經費補助單位為行政院國家科學委員會社會科學研究中心。
假設
認為台灣是祖國的受訪者(問題15)與不同意加強中華文化教育的政策(問題36)是有關聯的
資料讀入與編碼
## 第一階段：讀入原始資料並轉為rda檔
library(sjlabelled)
tscs2013 <- read_data("../tscs2013q2.sav")
# 存備份檔及清空暫存區
save(tscs2013, file = "../tscs2013.rda", compress = T)
rm(list=ls()) 變數編碼1
load("../tscs2013.rda")
library(sjmisc)## Install package "strengejacke" from GitHub (`devtools::install_github("strengejacke/strengejacke")`) to load all sj-packages at once!##
## Attaching package: 'sjmisc'## The following objects are masked from 'package:sjlabelled':
##
## to_character, to_factor, to_label, to_numeric# 15.如果有人問您的祖國是哪裡，請問您會怎麼回答？（訪員請唸選項）
# (01)台灣(02)中華民國 (03)中國(04)中華人民共和國
# (05)其他，請說明：____________
tscs2013$v15r <- rec(tscs2013$v15, rec="1=1[祖國為台灣]; else=0[祖國非台灣]", as.num = F)
table(tscs2013$v15r)##
## 0 1
## 454 1498# 0 1
# 438 1498
frq(tscs2013$v15r)##
## 15 如果有人問您的祖國是哪裡,請問您會怎麼回答? (x) <categorical>
## # total N=1952 valid N=1952 mean=0.77 sd=0.42
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ----------------------------------------------------
## 0 | 祖國非台灣 | 454 | 23.26 | 23.26 | 23.26
## 1 | 祖國為台灣 | 1498 | 76.74 | 76.74 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>圖表1
library(sjPlot)## Install package "strengejacke" from GitHub (`devtools::install_github("strengejacke/strengejacke")`) to load all sj-packages at once!plot_frq(tscs2013$v15r)
變數編碼2
load("../tscs2013.rda")
library(sjmisc)
# 36.有人說我國的國民教育，須要強調（台語：加強）中華文化的教育，請問您同不同意？
# (01)非常同意 (02)同意 (03)不同意 (04)非常不同意
table(tscs2013$v36)##
## 1 2 3 4 93 94 95 97 98
## 298 1086 372 32 84 17 11 50 2tscs2013$v36r <- rec(tscs2013$v36, rec="1,2=1;3,4=0;93:98=NA", as.num = F)圖表2
library(sjPlot)
plot_frq(tscs2013$v36r)
我的分析報告
根據圖表1，認為祖國是台灣的受訪者有百分之76.7，根據圖表2，同意加強中華文化教育的受訪者有百分77.4，與預期的情況不同，大多數雖然認為自己是的祖國是台灣，但卻認為要加強中華文化教育，推翻原本所訂的假設，是值得再深度探討的部分。