資料說明

在此使用的資料是台灣社會變遷基本調查計畫2013第六期第四次（國家認同組）的面訪資料（觀察值個數N=1,952）。調查執行期間為2013.09.22-2013.12.10。計畫主持人為傅仰止、章英華、杜素豪與廖培珊。計畫執行單位為中央研究院社會學研究所，經費補助單位為行政院國家科學委員會社會科學研究中心。

資料讀入與編碼

## 第一階段：讀入原始資料並轉為rda檔
library(sjlabelled)
tscs2013 <- read_data("../tscs2013q2.sav")  #這是最新版的用法，也可以使用read_spss()

# 存備份檔及清空暫存區
save(tscs2013, file = "tscs2013.rda", compress = T) 
rm(list=ls())

```{r初次查看資料檔內容,echo=T,eval=FALSE eval=FALSE, include=FALSE} load(“tscs2013.rda”)
nrow(tscs2013) # 看看有多少觀察值（多少列）–1,952 names(tscs2013) # 看看有那些變數，以及這些變數的名稱 str(tscs2013) # # # #



```r
load("tscs2013.rda")
library(sjmisc)
## 
## Attaching package: 'sjmisc'
## The following objects are masked from 'package:sjlabelled':
## 
##     to_character, to_factor, to_label, to_numeric
# 有人說我國的國民教育，須要強調（台語：加強）台灣本土文化的教育，請問您同不同意？
# (01)非常同意 (02)同意 (03)不同意 (04)非常不同意
frq(tscs2013$v37)
## 
## 37 有人說我國的國民教育,須要強調(台語:加強)台灣本土文化的教育,請問您同不同意? (x) <numeric>
## # total N=1952  valid N=1952  mean=7.04  sd=21.18
## 
## Value |      Label |    N | Raw % | Valid % | Cum. %
## ----------------------------------------------------
##     1 |   非常同意 |  462 | 23.67 |   23.67 |  23.67
##     2 |       同意 | 1093 | 55.99 |   55.99 |  79.66
##     3 |     不同意 |  266 | 13.63 |   13.63 |  93.29
##     4 | 非常不同意 |   23 |  1.18 |    1.18 |  94.47
##    93 |     無意見 |   56 |  2.87 |    2.87 |  97.34
##    94 |   無法決定 |   12 |  0.61 |    0.61 |  97.95
##    95 | 不瞭解題意 |    7 |  0.36 |    0.36 |  98.31
##    96 |       跳答 |    0 |  0.00 |    0.00 |  98.31
##    97 |     不知道 |   31 |  1.59 |    1.59 |  99.90
##    98 |       拒答 |    2 |  0.10 |    0.10 | 100.00
##    99 |     遺漏值 |    0 |  0.00 |    0.00 | 100.00
##  <NA> |       <NA> |    0 |  0.00 |    <NA> |   <NA>
tscs2013$v37r <- rec(tscs2013$v37, rec="1=4;2=3;3=2;4=1;else=NA", as.num = F)

我的分析報告

我們每天生活在這塊土地上，對於台灣本土的語言、人文風情、地理環境和歷史，瞭解多少呢？台灣民眾對於國民教育中加強本土教育是抱持認同看法，還是本土教育回家自己學（或教）就好呢？本研究結果顯示，59.3%的民眾認同需要在國民教育中強調（加強）台灣本土教育，表示非常同意強調台灣本土教育的民眾也高達25.1%，至於不同意或非常不同意者僅佔15.6％。

library(sjPlot)

plot_frq(tscs2013$v37r)

結果是…八成五的民眾是認同。