TEDS2020.R
Alice
2021-04-23
###《民意與政治行為研究期中作業》
###政經110 謝昀芸
###中間選民
##經過半個學期的學習與閱讀，決定選定中間選民的相關研究做為方向，而TEDS2020的資料針對總統大選做了詳盡的民意調查，題目多元且廣泛，問卷質量數量皆具高水準。
## 關於面訪資料
# 2016 年至 2020 年「台灣選舉與民主化調查」四年期研究規劃(4/4 )：2020 年總統與立法委員選舉面訪案(TEDS2020)
# 調查性質：面訪調查。
# 執行單位：國立政治大學選舉研究中心、中央研究院政治學研究所、世新大學行政管理學系、東吳大學政治學系、東海大學政治學系、淡江大學全球政治經濟學系、國立中正大學政治學系暨研究所、國立成功大學政治學系、國立中山大學政治學研究所
# 調查時間：民國 109 年 1 月 13 日～5 月 31 日。
# 成功樣本（N）=1,680。
## 資料的準備
# 第一步：讀入原始資料並轉為rda檔
library(sjlabelled)
TEDS2020 <- read_spss("TEDS2020_Q.sav")
str(TEDS2020) # 看看資料的結構## 'data.frame': 1680 obs. of 347 variables:
## $ ID : num 1.2e+11 1.2e+11 1.2e+11 1.2e+11 1.2e+11 ...
## ..- attr(*, "label")= chr "受訪者編號"
## ..- attr(*, "format.spss")= chr "F13.0"
## ..- attr(*, "display_width")= int 15
## $ Tau : num 1 1 1 1 1 1 1 1 1 1 ...
## ..- attr(*, "label")= chr "套號"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:13] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:13] "第01套" "第02套" "第03套" "第04套" ...
## $ City : num 2 2 2 2 2 2 2 2 2 2 ...
## ..- attr(*, "label")= chr "縣市"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 6
## ..- attr(*, "labels")= Named num [1:19] 2 4 5 7 8 9 10 13 14 15 ...
## .. ..- attr(*, "names")= chr [1:19] "宜蘭縣" "新竹縣" "苗栗縣" "彰化縣" ...
## $ Town : num 208 208 208 208 208 208 208 208 208 208 ...
## ..- attr(*, "label")= chr "鄉鎮市區"
## ..- attr(*, "format.spss")= chr "F4.0"
## ..- attr(*, "display_width")= int 6
## ..- attr(*, "labels")= Named num [1:70] 208 209 210 401 402 701 709 801 905 906 ...
## .. ..- attr(*, "names")= chr [1:70] "宜蘭縣冬山鄉" "宜蘭縣五結鄉" "宜蘭縣三星鄉" "新竹縣竹北市" ...
## $ Village : num 208008 208008 208008 208008 208008 ...
## ..- attr(*, "label")= chr "村里"
## ..- attr(*, "format.spss")= chr "F7.0"
## ..- attr(*, "display_width")= int 9
## ..- attr(*, "labels")= Named num [1:116] 208008 209002 210003 401001 401029 ...
## .. ..- attr(*, "names")= chr [1:116] "宜蘭縣冬山鄉南興村" "宜蘭縣五結鄉二結村" "宜蘭縣三星鄉天福村" "新竹縣竹北市斗崙里" ...
## $ A1 : num 1 3 2 2 2 2 3 1 3 2 ...
## ..- attr(*, "label")= chr "請問您對電視、廣播、報紙或網路上的政治新聞是非常注意、偶爾注意、不太注意，還是完全不注意?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 95 96 97 98
## .. ..- attr(*, "names")= chr [1:8] "非常注意" "偶爾注意" "不太注意" "完全不注意" ...
## $ A2 : num 92 92 92 92 10 10 92 10 92 92 ...
## ..- attr(*, "label")= chr "請問您最常看哪一份報紙?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:28] 1 2 4 5 7 8 9 10 11 13 ...
## .. ..- attr(*, "names")= chr [1:28] "中國時報" "聯合報" "工商時報" "民眾日報" ...
## $ A3 : num 9 98 6 7 6 11 5 6 92 5 ...
## ..- attr(*, "label")= chr "請問您最常看哪一臺電視新聞?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:28] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:28] "臺視" "中視" "華視" "民視" ...
## $ A4 : num 5 1 2 1 1 1 1 2 96 2 ...
## ..- attr(*, "label")= chr "有些人花很多時間去注意各種媒體的選舉新聞，有些人沒有時間注意，請問您那時平均每天花多少時間注意媒體(含電視、廣播"| __truncated__
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:10] 1 2 3 4 5 6 7 95 96 98
## .. ..- attr(*, "names")= chr [1:10] "30分鐘以下" "31-60分鐘" "超過一小時到一小時半" "超過一小時半到二小時" ...
## $ A5 : num 1 1 3 1 2 2 1 2 3 1 ...
## ..- attr(*, "label")= chr "現在網路直播的節目相當多，如果只考慮內容與政治有關的線上Lie網路直播，請問您多常看這一類的直播?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 95 96 97 98
## .. ..- attr(*, "names")= chr [1:9] "從來沒有" "很少" "有時" "經常" ...
## $ A5a : num 999 999 2 999 33 42 999 2 996 999 ...
## ..- attr(*, "label")= chr "這張卡片列出了經常談論政治的網紅或公眾人物，請問您最常觀看誰的線上Live直播節目?"
## ..- attr(*, "format.spss")= chr "F3.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:72] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:72] "統神" "博恩" "陳沂" "王大師" ...
## $ A5b : num 999 999 22 999 26 45 999 33 999 999 ...
## ..- attr(*, "label")= chr "那其次呢?"
## ..- attr(*, "format.spss")= chr "F3.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:73] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:73] "統神" "博恩" "陳沂" "王大師" ...
## $ A5c : num 999 999 30 999 39 33 999 41 999 999 ...
## ..- attr(*, "label")= chr "再其次呢?"
## ..- attr(*, "format.spss")= chr "F3.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:73] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:73] "統神" "博恩" "陳沂" "王大師" ...
## $ A6 : num 1 1 3 1 1 3 2 3 1 3 ...
## ..- attr(*, "label")= chr "請問您多常在網路上搜尋、瀏覽、點閱、觀看和政治與公共事務有關的新聞、訊息、影片?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 95 96 97 98
## .. ..- attr(*, "names")= chr [1:8] "從來沒有" "很少" "有時" "經常" ...
## $ A6am01 : num 99 99 0 99 99 1 1 0 99 0 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來搜尋、瀏覽、點閱、觀看和政治與公共事務有關的新聞、訊息、影片?(01) Facebook(臉書)"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6am02 : num 99 99 0 99 99 0 0 0 99 0 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來搜尋、瀏覽、點閱、觀看和政治與公共事務有關的新聞、訊息、影片?(02) Instagram(IG)"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6am03 : num 99 99 0 99 99 0 0 0 99 0 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來搜尋、瀏覽、點閱、觀看和政治與公共事務有關的新聞、訊息、影片?(03) Line"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6am04 : num 99 99 1 99 99 1 0 1 99 1 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來搜尋、瀏覽、點閱、觀看和政治與公共事務有關的新聞、訊息、影片?(04) YouTube"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6am05 : num 99 99 0 99 99 0 0 0 99 0 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來搜尋、瀏覽、點閱、觀看和政治與公共事務有關的新聞、訊息、影片?(05) 批踢踢(PTT)"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6am06 : num 99 99 0 99 99 0 0 0 99 0 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來搜尋、瀏覽、點閱、觀看和政治與公共事務有關的新聞、訊息、影片?(06) Dcard"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6am07 : num 99 99 0 99 99 0 0 0 99 0 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來搜尋、瀏覽、點閱、觀看和政治與公共事務有關的新聞、訊息、影片?(07) 微信(WeChat)"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6am08 : num 99 99 0 99 99 0 0 0 99 0 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來搜尋、瀏覽、點閱、觀看和政治與公共事務有關的新聞、訊息、影片?(08) 卡提諾"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6am09 : num 99 99 0 99 99 0 0 0 99 0 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來搜尋、瀏覽、點閱、觀看和政治與公共事務有關的新聞、訊息、影片?(09) 噗浪"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6am10 : num 99 99 0 99 99 0 0 0 99 0 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來搜尋、瀏覽、點閱、觀看和政治與公共事務有關的新聞、訊息、影片?(10) Google"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6am11 : num 99 99 0 99 99 0 0 0 99 0 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來搜尋、瀏覽、點閱、觀看和政治與公共事務有關的新聞、訊息、影片?(11) Yahoo"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6am12 : num 99 99 0 99 99 0 0 0 99 0 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來搜尋、瀏覽、點閱、觀看和政治與公共事務有關的新聞、訊息、影片?(12) 中時電子報網站"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6am13 : num 99 99 0 99 99 0 0 0 99 0 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來搜尋、瀏覽、點閱、觀看和政治與公共事務有關的新聞、訊息、影片?(13) 巴哈姆特"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6am14 : num 99 99 0 99 99 0 0 0 99 0 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來搜尋、瀏覽、點閱、觀看和政治與公共事務有關的新聞、訊息、影片?(14) 推特"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6am95 : num 99 99 0 99 99 0 0 0 99 0 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來搜尋、瀏覽、點閱、觀看和政治與公共事務有關的新聞、訊息、影片?(95) 拒答"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6am98 : num 99 99 0 99 99 0 0 0 99 0 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來搜尋、瀏覽、點閱、觀看和政治與公共事務有關的新聞、訊息、影片?(98) 不知道"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6aa : num 99 99 99 99 99 1 99 99 99 99 ...
## ..- attr(*, "label")= chr "那其中您最常使用的是哪一種?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 6
## ..- attr(*, "labels")= Named num [1:17] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:17] "Facebook(臉書)" "Instagram(IG)" "Line" "YouTube" ...
## $ A6a1 : num 99 99 3 99 99 3 1 3 99 1 ...
## ..- attr(*, "label")= chr "那請問您多常在網路上搜尋或瀏覽總統候選人的資訊?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 6
## ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 95 96 97 98 99
## .. ..- attr(*, "names")= chr [1:9] "從來沒有" "很少" "有時" "經常" ...
## $ A6a1am01 : num 99 99 1 99 99 0 99 1 99 99 ...
## ..- attr(*, "label")= chr "請問是哪幾位?(01) 宋楚瑜"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 10
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6a1am02 : num 99 99 1 99 99 0 99 1 99 99 ...
## ..- attr(*, "label")= chr "請問是哪幾位?(02) 韓國瑜"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 10
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6a1am03 : num 99 99 1 99 99 1 99 1 99 99 ...
## ..- attr(*, "label")= chr "請問是哪幾位?(03) 蔡英文"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 10
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6a1am95 : num 99 99 0 99 99 0 99 0 99 99 ...
## ..- attr(*, "label")= chr "請問是哪幾位?(95) 拒答"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 10
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6a1am98 : num 99 99 0 99 99 0 99 0 99 99 ...
## ..- attr(*, "label")= chr "請問是哪幾位?(98) 不知道"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 10
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A6a1aa : num 99 99 3 99 99 99 99 3 99 99 ...
## ..- attr(*, "label")= chr "那有關宋楚瑜的資訊是正面比較多還是負面比較多?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 5 95 98 99
## .. ..- attr(*, "names")= chr [1:8] "都是負面" "負面多於正面" "負面正面各半" "正面多於負面" ...
## $ A6a1ab : num 99 99 2 99 99 99 99 2 99 99 ...
## ..- attr(*, "label")= chr "那有關韓國瑜的資訊是正面比較多還是負面比較多?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 5 95 98 99
## .. ..- attr(*, "names")= chr [1:8] "都是負面" "負面多於正面" "負面正面各半" "正面多於負面" ...
## $ A6a1ac : num 99 99 4 99 99 4 99 4 99 99 ...
## ..- attr(*, "label")= chr "那有關蔡英文的資訊是正面比較多還是負面比較多?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 5 95 98 99
## .. ..- attr(*, "names")= chr [1:8] "都是負面" "負面多於正面" "負面正面各半" "正面多於負面" ...
## $ A7 : num 1 1 1 1 1 1 1 2 1 1 ...
## ..- attr(*, "label")= chr "除了瀏覽網路上的資訊外，請問您多常透過網路來轉貼(分享)或發文(留言、評論)和政治或公共議題有關的新聞、訊息、影片?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 95 96 97 98 99
## .. ..- attr(*, "names")= chr [1:9] "從來沒有" "很少" "有時" "經常" ...
## $ A7am01 : num 99 99 99 99 99 99 99 1 99 99 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來轉貼(分享)或發文(留言、評論)和政治與公共事務有關的新聞、訊息、影片?(01) Facebook(臉書)"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A7am02 : num 99 99 99 99 99 99 99 0 99 99 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來轉貼(分享)或發文(留言、評論)和政治與公共事務有關的新聞、訊息、影片?(02) Instagram(IG)"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A7am03 : num 99 99 99 99 99 99 99 0 99 99 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來轉貼(分享)或發文(留言、評論)和政治與公共事務有關的新聞、訊息、影片?(03) Line"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A7am04 : num 99 99 99 99 99 99 99 0 99 99 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來轉貼(分享)或發文(留言、評論)和政治與公共事務有關的新聞、訊息、影片?(04) YouTube"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A7am05 : num 99 99 99 99 99 99 99 0 99 99 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來轉貼(分享)或發文(留言、評論)和政治與公共事務有關的新聞、訊息、影片?(05) 批踢踢(PTT)"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A7am06 : num 99 99 99 99 99 99 99 0 99 99 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來轉貼(分享)或發文(留言、評論)和政治與公共事務有關的新聞、訊息、影片?(06) Dcard"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A7am07 : num 99 99 99 99 99 99 99 0 99 99 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來轉貼(分享)或發文(留言、評論)和政治與公共事務有關的新聞、訊息、影片?(07) 微信(WeChat)"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A7am08 : num 99 99 99 99 99 99 99 0 99 99 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來轉貼(分享)或發文(留言、評論)和政治與公共事務有關的新聞、訊息、影片?(08) 卡提諾"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A7am09 : num 99 99 99 99 99 99 99 0 99 99 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來轉貼(分享)或發文(留言、評論)和政治與公共事務有關的新聞、訊息、影片?(09) 噗浪"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A7am10 : num 99 99 99 99 99 99 99 0 99 99 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來轉貼(分享)或發文(留言、評論)和政治與公共事務有關的新聞、訊息、影片?(10) Google"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A7am11 : num 99 99 99 99 99 99 99 0 99 99 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來轉貼(分享)或發文(留言、評論)和政治與公共事務有關的新聞、訊息、影片?(11) Yahoo"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A7am12 : num 99 99 99 99 99 99 99 0 99 99 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來轉貼(分享)或發文(留言、評論)和政治與公共事務有關的新聞、訊息、影片?(12) 中時電子報網站"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A7am13 : num 99 99 99 99 99 99 99 0 99 99 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來轉貼(分享)或發文(留言、評論)和政治與公共事務有關的新聞、訊息、影片?(13) 巴哈姆特"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A7am14 : num 99 99 99 99 99 99 99 0 99 99 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來轉貼(分享)或發文(留言、評論)和政治與公共事務有關的新聞、訊息、影片?(14) 推特"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A7am95 : num 99 99 99 99 99 99 99 0 99 99 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來轉貼(分享)或發文(留言、評論)和政治與公共事務有關的新聞、訊息、影片?(95) 拒答"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A7am98 : num 99 99 99 99 99 99 99 0 99 99 ...
## ..- attr(*, "label")= chr "請問您是透過下列哪些平台來轉貼(分享)或發文(留言、評論)和政治與公共事務有關的新聞、訊息、影片?(98) 不知道"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 98 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "不知道" ...
## $ A7aa : num 99 99 99 99 99 99 99 99 99 99 ...
## ..- attr(*, "label")= chr "那其中您最常使用的是哪一種?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 6
## ..- attr(*, "labels")= Named num [1:17] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:17] "Facebook(臉書)" "Instagram(IG)" "Line" "YouTube" ...
## $ A7a1 : num 99 99 99 99 99 99 99 1 99 99 ...
## ..- attr(*, "label")= chr "那請問您有沒有轉貼(分享)或發文(留言、評論)有關總統候選人的資訊?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 6
## ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 95 96 97 98 99
## .. ..- attr(*, "names")= chr [1:9] "從來沒有" "很少" "有時" "經常" ...
## $ A7a1a : num 99 99 99 99 99 99 99 99 99 99 ...
## ..- attr(*, "label")= chr "請問是哪一位總統候選人的資訊最多?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:6] 1 2 3 95 98 99
## .. ..- attr(*, "names")= chr [1:6] "宋楚瑜" "韓國瑜" "蔡英文" "拒答" ...
## $ A7a1aa : num 99 99 99 99 99 99 99 99 99 99 ...
## ..- attr(*, "label")= chr "那您針對他所轉貼或發文的訊息是正面多還是負面多?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 5 95 98 99
## .. ..- attr(*, "names")= chr [1:8] "都是負面" "負面多於正面" "負面正面各半" "正面多於負面" ...
## $ B1 : num 1 2 4 3 3 4 4 2 4 3 ...
## ..- attr(*, "label")= chr "整體來說，請問您對政治的事情，感不感興趣?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 95 96 97 98
## .. ..- attr(*, "names")= chr [1:8] "非常有興趣" "有興趣" "不太有興趣" "完全沒興趣" ...
## $ B2 : num 1 4 3 4 3 3 3 3 2 3 ...
## ..- attr(*, "label")= chr "請問您平時會不會與人討論有關政治或選舉方面的議題?是時常討論、有時討論、很少討論、還是從來不討論?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:5] 1 2 3 4 95
## .. ..- attr(*, "names")= chr [1:5] "時常討論" "有時討論" "很少討論" "從來不討論" ...
## $ B2am01 : num 1 99 1 99 1 1 1 0 1 1 ...
## ..- attr(*, "label")= chr "請問平時與您討論政治或選舉問題的人是您的什麼人?家人、親戚、朋友、鄰居、工作同事、社團組織、同學或網友?或是其他人?(01) 家人"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 96 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "很難說" ...
## $ B2am02 : num 1 99 0 99 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問平時與您討論政治或選舉問題的人是您的什麼人?家人、親戚、朋友、鄰居、工作同事、社團組織、同學或網友?或是其他人?(02) 親戚"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 96 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "很難說" ...
## $ B2am03 : num 1 99 1 99 0 0 0 1 0 0 ...
## ..- attr(*, "label")= chr "請問平時與您討論政治或選舉問題的人是您的什麼人?家人、親戚、朋友、鄰居、工作同事、社團組織、同學或網友?或是其他人?(03) 朋友"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 96 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "很難說" ...
## $ B2am04 : num 0 99 0 99 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問平時與您討論政治或選舉問題的人是您的什麼人?家人、親戚、朋友、鄰居、工作同事、社團組織、同學或網友?或是其他人?(04) 鄰居"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 96 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "很難說" ...
## $ B2am05 : num 0 99 0 99 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問平時與您討論政治或選舉問題的人是您的什麼人?家人、親戚、朋友、鄰居、工作同事、社團組織、同學或網友?或是其他人?(05) 工作同事"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 96 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "很難說" ...
## $ B2am06 : num 0 99 0 99 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問平時與您討論政治或選舉問題的人是您的什麼人?家人、親戚、朋友、鄰居、工作同事、社團組織、同學或網友?或是其他人?(06) 社團組織"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 96 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "很難說" ...
## $ B2am07 : num 0 99 0 99 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問平時與您討論政治或選舉問題的人是您的什麼人?家人、親戚、朋友、鄰居、工作同事、社團組織、同學或網友?或是其他人?(07) 同學"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 96 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "很難說" ...
## $ B2am08 : num 0 99 0 99 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問平時與您討論政治或選舉問題的人是您的什麼人?家人、親戚、朋友、鄰居、工作同事、社團組織、同學或網友?或是其他人?(08) 網友"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 96 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "很難說" ...
## $ B2am09 : num 0 99 0 99 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問平時與您討論政治或選舉問題的人是您的什麼人?家人、親戚、朋友、鄰居、工作同事、社團組織、同學或網友?或是其他人?(09) 客人"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 96 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "很難說" ...
## $ B2am10 : num 0 99 0 99 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問平時與您討論政治或選舉問題的人是您的什麼人?家人、親戚、朋友、鄰居、工作同事、社團組織、同學或網友?或是其他人?(10) 學生"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 96 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "很難說" ...
## $ B2am11 : num 0 99 0 99 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問平時與您討論政治或選舉問題的人是您的什麼人?家人、親戚、朋友、鄰居、工作同事、社團組織、同學或網友?或是其他人?(11) 老師"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 96 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "很難說" ...
## $ B2am95 : num 0 99 0 99 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問平時與您討論政治或選舉問題的人是您的什麼人?家人、親戚、朋友、鄰居、工作同事、社團組織、同學或網友?或是其他人?(95)拒答"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "labels")= Named num [1:5] 0 1 95 96 99
## .. ..- attr(*, "names")= chr [1:5] "不是" "是" "拒答" "很難說" ...
## $ B2b : num 2 99 2 99 2 2 2 2 1 3 ...
## ..- attr(*, "label")= chr "這些比較常與您討論有關政治或選舉議題的人，他們所支持的政黨是不是一樣?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 6 95 98 99
## .. ..- attr(*, "names")= chr [1:9] "完全相同" "大部份相同" "一半一半" "少有相同" ...
## $ B2c : num 2 99 2 99 91 91 91 12 91 99 ...
## ..- attr(*, "label")= chr "請問是哪一個政黨?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 5
## ..- attr(*, "labels")= Named num [1:72] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:72] "中國國民黨" "民主進步黨" "新黨" "親民黨" ...
## $ B3 : num 1 2 2 2 2 3 2 1 2 2 ...
## ..- attr(*, "label")= chr "請問您對這次選舉的競選過程關不關心?是非常關心、還算關心、不太關心，還是非常不關心?"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 4
## ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 95 96 97 98
## .. ..- attr(*, "names")= chr [1:8] "非常關心" "還算關心" "不太關心" "非常不關心" ...
## $ B4m01 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(01) 助選人員或義工"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m02 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(02) 服務機構或公司的上司"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m03 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(03) 地方宗教團體"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m04 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(04) 地方上有名望的人或家族"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m05 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(05) 村里長、村里幹事或鄰長"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m06 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(06) 候選人後援會"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m07 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(07) 社區發展協會"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m08 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(08) 農、漁、水利會幹部"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m09 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(09) 派系"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m10 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(10) 地方民意代表"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m11 : num 0 0 0 0 1 1 1 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(11) 電話語音"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m12 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(12) 朋友"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m13 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(13) 鄰居"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m14 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(14) 工會幹部"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m15 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(15) 廣告文宣"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m16 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(16) 公會組織"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m17 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(17) 親戚"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m18 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(18) 客人"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m92 : num 1 1 1 1 0 0 0 1 1 1 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(92) 都沒有"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m95 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(95) 拒答"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## $ B4m98 : num 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "label")= chr "請問總統候選人或政黨有沒有透過這些人向您拉票?(98) 不知道"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## ..- attr(*, "labels")= Named num [1:4] 0 1 95 98
## .. ..- attr(*, "names")= chr [1:4] "不是" "是" "拒答" "不知道"
## [list output truncated]nrow(TEDS2020) # 確定是1680個觀察值## [1] 1680# 將這個原始資料轉存為R專屬的rda格式
save(TEDS2020, file = "TEDS2020.rda", compress = T)
# 第二步：使用sjmisc::rec()做變數編碼
load("TEDS2020.rda")
library(sjPlot)## Install package "strengejacke" from GitHub (`devtools::install_github("strengejacke/strengejacke")`) to load all sj-packages at once!library(sjmisc)
##選定的Y
#Ｂ１．整體來說，請問您對政治的事情，感不感（臺：咁有）興趣？
# (01)非常有興趣(02)有 興 趣(03)不太有興趣(04)完全沒興趣(96)看 情 形(97)無 意 見(98)不知道(95)拒答
frq(TEDS2020$B1)##
## 整體來說，請問您對政治的事情，感不感興趣? (x) <numeric>
## # total N=1680 valid N=1680 mean=3.07 sd=5.64
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ---------------------------------------------------
## 1 | 非常有興趣 | 103 | 6.13 | 6.13 | 6.13
## 2 | 有興趣 | 512 | 30.48 | 30.48 | 36.61
## 3 | 不太有興趣 | 786 | 46.79 | 46.79 | 83.39
## 4 | 完全沒興趣 | 273 | 16.25 | 16.25 | 99.64
## 95 | 拒答 | 0 | 0.00 | 0.00 | 99.64
## 96 | 看情形 | 5 | 0.30 | 0.30 | 99.94
## 97 | 無意見 | 0 | 0.00 | 0.00 | 99.94
## 98 | 不知道 | 1 | 0.06 | 0.06 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>TEDS2020$Ymed <- rec(TEDS2020$B1, as.num = F, rec="95:98=NA; else=copy",
var.label ="B1中間選民",
val.labels = c("非常有興趣","有 興 趣","不太有興趣","完全沒興趣"))
str(TEDS2020$Ymed)## Factor w/ 4 levels "1","2","3","4": 1 2 4 3 3 4 4 2 4 3 ...
## - attr(*, "labels")= Named num [1:4] 1 2 3 4
## ..- attr(*, "names")= chr [1:4] "非常有興趣" "有 興 趣" "不太有興趣" "完全沒興趣"
## - attr(*, "label")= chr "B1中間選民"frq(TEDS2020$Ymed)##
## B1中間選民 (x) <categorical>
## # total N=1680 valid N=1674 mean=2.73 sd=0.80
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ---------------------------------------------------
## 1 | 非常有興趣 | 103 | 6.13 | 6.15 | 6.15
## 2 | 有 興 趣 | 512 | 30.48 | 30.59 | 36.74
## 3 | 不太有興趣 | 786 | 46.79 | 46.95 | 83.69
## 4 | 完全沒興趣 | 273 | 16.25 | 16.31 | 100.00
## <NA> | <NA> | 6 | 0.36 | <NA> | <NA>#政黨認同
#(01)國民黨(02)民進黨(03)新黨(04)親民黨(05)臺聯(06)時代力量(07)台灣民眾黨(09)中立無反應或其他政黨
frq(TEDS2020$PartyID)##
## 政黨認同 (x) <numeric>
## # total N=1680 valid N=1680 mean=4.82 sd=3.50
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -------------------------------------------------------------
## 1 | 國民黨 | 339 | 20.18 | 20.18 | 20.18
## 2 | 民進黨 | 552 | 32.86 | 32.86 | 53.04
## 3 | 新黨 | 1 | 0.06 | 0.06 | 53.10
## 4 | 親民黨 | 9 | 0.54 | 0.54 | 53.63
## 5 | 臺聯 | 0 | 0.00 | 0.00 | 53.63
## 6 | 時代力量 | 66 | 3.93 | 3.93 | 57.56
## 7 | 台灣民眾黨 | 101 | 6.01 | 6.01 | 63.57
## 9 | 中立無反應或其他政黨 | 612 | 36.43 | 36.43 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>TEDS2020$part0 <- rec(TEDS2020$PartyID, rec="1,3,4,7=1;2,5,6=2;9=3",as.num = F,
var.label ="PartID政黨認同",
val.labels = c("泛藍","泛綠","其他"))
str(TEDS2020$part0)## Factor w/ 3 levels "1","2","3": 2 3 2 3 2 3 3 2 3 3 ...
## - attr(*, "labels")= Named num [1:3] 1 2 3
## ..- attr(*, "names")= chr [1:3] "泛藍" "泛綠" "其他"
## - attr(*, "label")= chr "PartID政黨認同"frq(TEDS2020$part0)##
## PartID政黨認同 (x) <categorical>
## # total N=1680 valid N=1680 mean=2.10 sd=0.79
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ----------------------------------------------
## 1 | 泛藍 | 450 | 26.79 | 26.79 | 26.79
## 2 | 泛綠 | 618 | 36.79 | 36.79 | 63.57
## 3 | 其他 | 612 | 36.43 | 36.43 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>##對政治資訊的敏感度
#Ａ１．請問您對電視、廣播、報紙或網路上的政治新聞是非常注意、偶爾（臺：有時陣）注意、不太注意，還是完全不注意？
# (01)非常注意(02)偶爾注意(03)不太注意(04)完全不注意(96)看 情 形(97)無 意 見(98)不知道(95)拒答
frq(TEDS2020$A1)##
## 請問您對電視、廣播、報紙或網路上的政治新聞是非常注意、偶爾注意、不太注意，還是完全不注意? (x) <numeric>
## # total N=1680 valid N=1680 mean=2.17 sd=3.40
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ----------------------------------------------------
## 1 | 非常注意 | 334 | 19.88 | 19.88 | 19.88
## 2 | 偶爾注意 | 1015 | 60.42 | 60.42 | 80.30
## 3 | 不太注意 | 224 | 13.33 | 13.33 | 93.63
## 4 | 完全不注意 | 105 | 6.25 | 6.25 | 99.88
## 95 | 拒答 | 0 | 0.00 | 0.00 | 99.88
## 96 | 看情形 | 0 | 0.00 | 0.00 | 99.88
## 97 | 無意見 | 0 | 0.00 | 0.00 | 99.88
## 98 | 不知道 | 2 | 0.12 | 0.12 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>TEDS2020$ifm <- rec(TEDS2020$A1, rec="95:98=NA; else=copy",as.num = F,
var.label ="A1政治資訊",
val.labels = c("非常注意","偶爾注意","不太注意","完全不注意"))
str(TEDS2020$ifm)## Factor w/ 4 levels "1","2","3","4": 1 3 2 2 2 2 3 1 3 2 ...
## - attr(*, "labels")= Named num [1:4] 1 2 3 4
## ..- attr(*, "names")= chr [1:4] "非常注意" "偶爾注意" "不太注意" "完全不注意"
## - attr(*, "label")= chr "A1政治資訊"frq(TEDS2020$ifm)##
## A1政治資訊 (x) <categorical>
## # total N=1680 valid N=1678 mean=2.06 sd=0.76
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ----------------------------------------------------
## 1 | 非常注意 | 334 | 19.88 | 19.90 | 19.90
## 2 | 偶爾注意 | 1015 | 60.42 | 60.49 | 80.39
## 3 | 不太注意 | 224 | 13.33 | 13.35 | 93.74
## 4 | 完全不注意 | 105 | 6.25 | 6.26 | 100.00
## <NA> | <NA> | 2 | 0.12 | <NA> | <NA>#Ａ４．有些人花（臺：用）很多時間去注意各種媒體的選舉新聞，有些人沒有時間注意，請問您那時平均每天花（臺：用）多少時間注意媒體（含電視、廣播、報紙及電子報）上的選舉新聞？
# (01)３０分鐘以下(02)３１－６０分鐘(03)超過一小時到一小時半(04)超過一小時半到二小時(05)超過二小時(06)偶爾注意(07)完全不注意(96)看情形、不一定(98)不知道(95)拒答
frq(TEDS2020$A4)##
## 有些人花很多時間去注意各種媒體的選舉新聞，有些人沒有時間注意，請問您那時平均每天花多少時間注意媒體(含電視、廣播、報紙及電子報)上的選舉新聞? (x) <numeric>
## # total N=1680 valid N=1680 mean=3.18 sd=4.94
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -------------------------------------------------------------
## 1 | 30分鐘以下 | 532 | 31.67 | 31.67 | 31.67
## 2 | 31-60分鐘 | 418 | 24.88 | 24.88 | 56.55
## 3 | 超過一小時到一小時半 | 173 | 10.30 | 10.30 | 66.85
## 4 | 超過一小時半到二小時 | 97 | 5.77 | 5.77 | 72.62
## 5 | 超過二小時 | 139 | 8.27 | 8.27 | 80.89
## 6 | 偶爾注意 | 229 | 13.63 | 13.63 | 94.52
## 7 | 完全不注意 | 88 | 5.24 | 5.24 | 99.76
## 95 | 拒答 | 1 | 0.06 | 0.06 | 99.82
## 96 | 看情形、不一定 | 3 | 0.18 | 0.18 | 100.00
## 98 | 不知道 | 0 | 0.00 | 0.00 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>TEDS2020$ifmT <- rec(TEDS2020$A4, rec="95:98=NA; else=copy",as.num = F,
var.label ="A4政治資訊時長",
val.labels = c("0~30min","31~60min","1hr~1.5hr","1.5hr~2hr","2hr以上","偶爾注意","完全不注意"))
str(TEDS2020$ifmT)## Factor w/ 7 levels "1","2","3","4",..: 5 1 2 1 1 1 1 2 NA 2 ...
## - attr(*, "labels")= Named num [1:7] 1 2 3 4 5 6 7
## ..- attr(*, "names")= chr [1:7] "0~30min" "31~60min" "1hr~1.5hr" "1.5hr~2hr" ...
## - attr(*, "label")= chr "A4政治資訊時長"frq(TEDS2020$ifmT)##
## A4政治資訊時長 (x) <categorical>
## # total N=1680 valid N=1676 mean=2.96 sd=1.99
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ---------------------------------------------------
## 1 | 0~30min | 532 | 31.67 | 31.74 | 31.74
## 2 | 31~60min | 418 | 24.88 | 24.94 | 56.68
## 3 | 1hr~1.5hr | 173 | 10.30 | 10.32 | 67.00
## 4 | 1.5hr~2hr | 97 | 5.77 | 5.79 | 72.79
## 5 | 2hr以上 | 139 | 8.27 | 8.29 | 81.09
## 6 | 偶爾注意 | 229 | 13.63 | 13.66 | 94.75
## 7 | 完全不注意 | 88 | 5.24 | 5.25 | 100.00
## <NA> | <NA> | 4 | 0.24 | <NA> | <NA>##議題
#Ｋ８．請問您認為邦交國減少的問題嚴不嚴重（臺：咁有嚴重）？
# (01)非常嚴重(02)還算嚴重(03)不太嚴重(04)非常不嚴重(05)無 所 謂(96)看 情 形(97)無 意 見(98)不知道(95)拒答
frq(TEDS2020$K8)##
## 請問您認為邦交國減少的問題嚴不嚴重? (x) <numeric>
## # total N=1680 valid N=1680 mean=6.17 sd=18.98
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ---------------------------------------------------
## 1 | 非常嚴重 | 493 | 29.35 | 29.35 | 29.35
## 2 | 還算嚴重 | 573 | 34.11 | 34.11 | 63.45
## 3 | 不太嚴重 | 350 | 20.83 | 20.83 | 84.29
## 4 | 非常不嚴重 | 40 | 2.38 | 2.38 | 86.67
## 5 | 無所謂 | 155 | 9.23 | 9.23 | 95.89
## 95 | 拒答 | 4 | 0.24 | 0.24 | 96.13
## 96 | 看情形 | 3 | 0.18 | 0.18 | 96.31
## 97 | 無意見 | 3 | 0.18 | 0.18 | 96.49
## 98 | 不知道 | 59 | 3.51 | 3.51 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>TEDS2020$friend <- rec(TEDS2020$K8, rec="95:98=NA; else=copy",as.num = F,
var.label ="K8邦交國",
val.labels = c("非常嚴重","還算嚴重","不太嚴重","非常不嚴重","無 所 謂"))
str(TEDS2020$friend)## Factor w/ 5 levels "1","2","3","4",..: 2 1 3 1 5 2 2 5 3 2 ...
## - attr(*, "labels")= Named num [1:5] 1 2 3 4 5
## ..- attr(*, "names")= chr [1:5] "非常嚴重" "還算嚴重" "不太嚴重" "非常不嚴重" ...
## - attr(*, "label")= chr "K8邦交國"frq(TEDS2020$friend)##
## K8邦交國 (x) <categorical>
## # total N=1680 valid N=1611 mean=2.25 sd=1.19
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ---------------------------------------------------
## 1 | 非常嚴重 | 493 | 29.35 | 30.60 | 30.60
## 2 | 還算嚴重 | 573 | 34.11 | 35.57 | 66.17
## 3 | 不太嚴重 | 350 | 20.83 | 21.73 | 87.90
## 4 | 非常不嚴重 | 40 | 2.38 | 2.48 | 90.38
## 5 | 無 所 謂 | 155 | 9.23 | 9.62 | 100.00
## <NA> | <NA> | 69 | 4.11 | <NA> | <NA>#Ｋ１１．去年 5 月 17 日立法院通過同性婚姻專法(司法院釋字第 748 號解釋施行法)，請問您對政府推動的這個立法支持還是不支持?
# (01)非常支持(02)支 持(03)不 支 持(04)非常不支持(96)很 難 說(97)無 意 見(98)不知道(95)拒答
frq(TEDS2020$K11)##
## 去年5月17日立法院通過同性婚姻專法(司法院釋字第748號解釋施行法)，請問您對政府推動的這個立法支持還是不支持? (x) <numeric>
## # total N=1680 valid N=1680 mean=7.33 sd=20.32
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ---------------------------------------------------
## 1 | 非常支持 | 187 | 11.13 | 11.13 | 11.13
## 2 | 支持 | 502 | 29.88 | 29.88 | 41.01
## 3 | 不支持 | 462 | 27.50 | 27.50 | 68.51
## 4 | 非常不支持 | 447 | 26.61 | 26.61 | 95.12
## 95 | 拒答 | 5 | 0.30 | 0.30 | 95.42
## 96 | 很難說 | 16 | 0.95 | 0.95 | 96.37
## 97 | 無意見 | 45 | 2.68 | 2.68 | 99.05
## 98 | 不知道 | 16 | 0.95 | 0.95 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>TEDS2020$marry <- rec(TEDS2020$K11, rec="95:98=NA; else=copy",as.num = F,
var.label ="K11同婚",
val.labels = c("非常支持","支 持","不 支 持","非常不支持"))
str(TEDS2020$marry)## Factor w/ 4 levels "1","2","3","4": 3 4 2 NA 2 4 3 2 3 NA ...
## - attr(*, "labels")= Named num [1:4] 1 2 3 4
## ..- attr(*, "names")= chr [1:4] "非常支持" "支 持" "不 支 持" "非常不支持"
## - attr(*, "label")= chr "K11同婚"frq(TEDS2020$marry)##
## K11同婚 (x) <categorical>
## # total N=1680 valid N=1598 mean=2.73 sd=1.00
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ---------------------------------------------------
## 1 | 非常支持 | 187 | 11.13 | 11.70 | 11.70
## 2 | 支 持 | 502 | 29.88 | 31.41 | 43.12
## 3 | 不 支 持 | 462 | 27.50 | 28.91 | 72.03
## 4 | 非常不支持 | 447 | 26.61 | 27.97 | 100.00
## <NA> | <NA> | 82 | 4.88 | <NA> | <NA>#Ｋ１２．在能源政策上，政府改採火力、風力以及太陽能發電，來取代核能電廠。請問您對這樣的做法同不同意?
# (01)非常同意(02)同 意(03)不 同 意(04)非常不同意(96)很 難 說(97)無 意 見(98)不知道(95)拒答
frq(TEDS2020$K12)##
## 在能源政策上，政府改採火力、風力以及太陽能發電，來取代核能電廠。請問您對這樣的做法同不同意? (x) <numeric>
## # total N=1680 valid N=1680 mean=10.48 sd=26.45
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ---------------------------------------------------
## 1 | 非常同意 | 139 | 8.27 | 8.27 | 8.27
## 2 | 同意 | 787 | 46.85 | 46.85 | 55.12
## 3 | 不同意 | 435 | 25.89 | 25.89 | 81.01
## 4 | 非常不同意 | 176 | 10.48 | 10.48 | 91.49
## 95 | 拒答 | 11 | 0.65 | 0.65 | 92.14
## 96 | 很難說 | 35 | 2.08 | 2.08 | 94.23
## 97 | 無意見 | 21 | 1.25 | 1.25 | 95.48
## 98 | 不知道 | 76 | 4.52 | 4.52 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>TEDS2020$eng <- rec(TEDS2020$K12, rec="95:98=NA; else=copy",as.num = F,
var.label ="K12能源",
val.labels = c("非常同意","同 意","不 同 意","非常不同意"))
str(TEDS2020$eng)## Factor w/ 4 levels "1","2","3","4": 1 NA 2 3 2 3 2 1 3 2 ...
## - attr(*, "labels")= Named num [1:4] 1 2 3 4
## ..- attr(*, "names")= chr [1:4] "非常同意" "同 意" "不 同 意" "非常不同意"
## - attr(*, "label")= chr "K12能源"frq(TEDS2020$eng)##
## K12能源 (x) <categorical>
## # total N=1680 valid N=1537 mean=2.42 sd=0.81
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ---------------------------------------------------
## 1 | 非常同意 | 139 | 8.27 | 9.04 | 9.04
## 2 | 同 意 | 787 | 46.85 | 51.20 | 60.25
## 3 | 不 同 意 | 435 | 25.89 | 28.30 | 88.55
## 4 | 非常不同意 | 176 | 10.48 | 11.45 | 100.00
## <NA> | <NA> | 143 | 8.51 | <NA> | <NA>#Ｋ１３．政府自 2018 年七月起執行軍公教年金改革，請問您對政府處理軍公教年金改革的表現滿不滿意?
# (01)非常滿意(02)有點滿意(03)不太滿意(04)非常不滿意(96)很 難 說(97)無 意 見(98)不知道(95)拒答
frq(TEDS2020$K13)##
## 政府自2018年七月起執行軍公教年金改革，請問您對政府處理軍公教年金改革的表現滿不滿意? (x) <numeric>
## # total N=1680 valid N=1680 mean=11.20 sd=27.80
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ---------------------------------------------------
## 1 | 非常滿意 | 314 | 18.69 | 18.69 | 18.69
## 2 | 有點滿意 | 661 | 39.35 | 39.35 | 58.04
## 3 | 不太滿意 | 399 | 23.75 | 23.75 | 81.79
## 4 | 非常不滿意 | 148 | 8.81 | 8.81 | 90.60
## 95 | 拒答 | 7 | 0.42 | 0.42 | 91.01
## 96 | 很難說 | 11 | 0.65 | 0.65 | 91.67
## 97 | 無意見 | 47 | 2.80 | 2.80 | 94.46
## 98 | 不知道 | 93 | 5.54 | 5.54 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>TEDS2020$revM <- rec(TEDS2020$K13, rec="95:98=NA; else=copy",as.num = F,
var.label ="K13年改",
val.labels = c("非常滿意","有點滿意","不太滿意","非常不滿意"))
str(TEDS2020$revM)## Factor w/ 4 levels "1","2","3","4": 2 2 2 NA 2 3 2 2 3 3 ...
## - attr(*, "labels")= Named num [1:4] 1 2 3 4
## ..- attr(*, "names")= chr [1:4] "非常滿意" "有點滿意" "不太滿意" "非常不滿意"
## - attr(*, "label")= chr "K13年改"frq(TEDS2020$revM)##
## K13年改 (x) <categorical>
## # total N=1680 valid N=1522 mean=2.25 sd=0.89
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ---------------------------------------------------
## 1 | 非常滿意 | 314 | 18.69 | 20.63 | 20.63
## 2 | 有點滿意 | 661 | 39.35 | 43.43 | 64.06
## 3 | 不太滿意 | 399 | 23.75 | 26.22 | 90.28
## 4 | 非常不滿意 | 148 | 8.81 | 9.72 | 100.00
## <NA> | <NA> | 158 | 9.40 | <NA> | <NA>#Ｋ１４．請問您對於政府「一例一休」的政策滿意還是不滿意?
# (01)非常滿意(02)有點滿意(03)不太滿意(04)非常不滿意(96)很 難 說(97)無 意 見(98)不知道(95)拒答
frq(TEDS2020$K14)##
## 請問您對於政府「一例一休」的政策滿意還是不滿意? (x) <numeric>
## # total N=1680 valid N=1680 mean=14.01 sd=30.88
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ---------------------------------------------------
## 1 | 非常滿意 | 100 | 5.95 | 5.95 | 5.95
## 2 | 有點滿意 | 567 | 33.75 | 33.75 | 39.70
## 3 | 不太滿意 | 629 | 37.44 | 37.44 | 77.14
## 4 | 非常不滿意 | 182 | 10.83 | 10.83 | 87.98
## 95 | 拒答 | 6 | 0.36 | 0.36 | 88.33
## 96 | 很難說 | 14 | 0.83 | 0.83 | 89.17
## 97 | 無意見 | 59 | 3.51 | 3.51 | 92.68
## 98 | 不知道 | 123 | 7.32 | 7.32 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>TEDS2020$vac <- rec(TEDS2020$K14, rec="95:98=NA; else=copy",as.num = F,
var.label ="K14一例一休",
val.labels = c("非常滿意","有點滿意","不太滿意","非常不滿意"))
str(TEDS2020$vac)## Factor w/ 4 levels "1","2","3","4": 2 2 2 3 2 3 2 NA 2 3 ...
## - attr(*, "labels")= Named num [1:4] 1 2 3 4
## ..- attr(*, "names")= chr [1:4] "非常滿意" "有點滿意" "不太滿意" "非常不滿意"
## - attr(*, "label")= chr "K14一例一休"frq(TEDS2020$vac)##
## K14一例一休 (x) <categorical>
## # total N=1680 valid N=1478 mean=2.60 sd=0.79
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ---------------------------------------------------
## 1 | 非常滿意 | 100 | 5.95 | 6.77 | 6.77
## 2 | 有點滿意 | 567 | 33.75 | 38.36 | 45.13
## 3 | 不太滿意 | 629 | 37.44 | 42.56 | 87.69
## 4 | 非常不滿意 | 182 | 10.83 | 12.31 | 100.00
## <NA> | <NA> | 202 | 12.02 | <NA> | <NA>##政黨
#Ｑ１．在目前國內的政黨中，請問您有沒有（臺：咁有）偏向哪一個政黨？
# (01)有(02)沒有(98)不知道(95)拒答
frq(TEDS2020$Q1)##
## 在目前國內的政黨中，請問您有沒有偏向哪一個政黨? (x) <numeric>
## # total N=1680 valid N=1680 mean=2.01 sd=6.99
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------
## 1 | 有 | 843 | 50.18 | 50.18 | 50.18
## 2 | 沒有 | 828 | 49.29 | 49.29 | 99.46
## 95 | 拒答 | 3 | 0.18 | 0.18 | 99.64
## 98 | 不知道 | 6 | 0.36 | 0.36 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>TEDS2020$partyYN <- rec(TEDS2020$Q1, rec="1=1; 2=0;95:98=NA" ,as.num = F,
var.label ="Q1政黨偏向",
val.labels = c("沒有","有"))
str(TEDS2020$partyYN)## Factor w/ 2 levels "0","1": 2 1 2 1 1 1 1 2 1 1 ...
## - attr(*, "labels")= Named num [1:2] 0 1
## ..- attr(*, "names")= chr [1:2] "沒有" "有"
## - attr(*, "label")= chr "Q1政黨偏向"frq(TEDS2020$partyYN)##
## Q1政黨偏向 (x) <categorical>
## # total N=1680 valid N=1671 mean=0.50 sd=0.50
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ----------------------------------------------
## 0 | 沒有 | 828 | 49.29 | 49.55 | 49.55
## 1 | 有 | 843 | 50.18 | 50.45 | 100.00
## <NA> | <NA> | 9 | 0.54 | <NA> | <NA>#Ｑ３．請問您認為國內有沒有哪一個政黨可以代表您的想法？
# (01)有(02)沒有(98)不知道(95)拒答
frq(TEDS2020$Q3)##
## 請問您認為國內有沒有哪一個政黨可以代表您的想法? (x) <numeric>
## # total N=1680 valid N=1680 mean=3.87 sd=14.64
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------
## 1 | 有 | 686 | 40.83 | 40.83 | 40.83
## 2 | 沒有 | 954 | 56.79 | 56.79 | 97.62
## 95 | 拒答 | 6 | 0.36 | 0.36 | 97.98
## 98 | 不知道 | 34 | 2.02 | 2.02 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>TEDS2020$partyTK <- rec(TEDS2020$Q3, rec="1=1; 2=0;95:98=NA" ,as.num = F,
var.label ="Q3政黨代表度",
val.labels = c("沒有","有"))
str(TEDS2020$partyTK)## Factor w/ 2 levels "0","1": 2 1 2 1 2 1 1 2 1 1 ...
## - attr(*, "labels")= Named num [1:2] 0 1
## ..- attr(*, "names")= chr [1:2] "沒有" "有"
## - attr(*, "label")= chr "Q3政黨代表度"frq(TEDS2020$partyTK)##
## Q3政黨代表度 (x) <categorical>
## # total N=1680 valid N=1640 mean=0.42 sd=0.49
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ----------------------------------------------
## 0 | 沒有 | 954 | 56.79 | 58.17 | 58.17
## 1 | 有 | 686 | 40.83 | 41.83 | 100.00
## <NA> | <NA> | 40 | 2.38 | <NA> | <NA>##統獨
#Ｐ４．關於臺灣和大陸的關係，這張卡片上有幾種不同的看法：
#1：儘快（臺：卡緊）統一；2：儘快（臺：卡緊）獨立；3：維持現狀，以後走向統一；4：維持現狀，以後走向獨立；5：維持現狀，看情形再決定獨立或統一；6：永遠維持現狀
#請問您比較（臺：卡）偏向哪一種？
# (01)儘快統一(02)儘快獨立(03)維持現狀，以後走向統一(04)維持現狀，以後走向獨立(05)維持現狀，看情形再決定獨立或統一(06)永遠維持現狀(96)看 情 形(97)無 意 見(98)不知道(95)拒答
frq(TEDS2020$P4)##
## 關於臺灣和大陸的關係，請問您比較偏向哪一種? (x) <numeric>
## # total N=1680 valid N=1680 mean=7.28 sd=15.95
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -------------------------------------------------------------------------
## 1 | 儘快統一 | 17 | 1.01 | 1.01 | 1.01
## 2 | 儘快獨立 | 126 | 7.50 | 7.50 | 8.51
## 3 | 維持現狀，以後走向統一 | 143 | 8.51 | 8.51 | 17.02
## 4 | 維持現狀，以後走向獨立 | 499 | 29.70 | 29.70 | 46.73
## 5 | 維持現狀，看情形再決定獨立或統一 | 488 | 29.05 | 29.05 | 75.77
## 6 | 永遠維持現狀 | 356 | 21.19 | 21.19 | 96.96
## 95 | 拒答 | 7 | 0.42 | 0.42 | 97.38
## 96 | 看情形 | 6 | 0.36 | 0.36 | 97.74
## 97 | 無意見 | 11 | 0.65 | 0.65 | 98.39
## 98 | 不知道 | 27 | 1.61 | 1.61 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>TEDS2020$ind <- rec(TEDS2020$P4, rec="1,3=1;2,4=2;5,6=3;95:98=NA",as.num = F,
var.label ="P4統獨",
val.labels = c("統一","獨立","維持現狀"))
str(TEDS2020$ind)## Factor w/ 3 levels "1","2","3": 2 3 3 3 2 3 3 2 3 3 ...
## - attr(*, "labels")= Named num [1:3] 1 2 3
## ..- attr(*, "names")= chr [1:3] "統一" "獨立" "維持現狀"
## - attr(*, "label")= chr "P4統獨"frq(TEDS2020$ind)##
## P4統獨 (x) <categorical>
## # total N=1680 valid N=1629 mean=2.42 sd=0.66
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -------------------------------------------------
## 1 | 統一 | 160 | 9.52 | 9.82 | 9.82
## 2 | 獨立 | 625 | 37.20 | 38.37 | 48.19
## 3 | 維持現狀 | 844 | 50.24 | 51.81 | 100.00
## <NA> | <NA> | 51 | 3.04 | <NA> | <NA>#年齡
# (01)20至29歲(02)30至39歲(03)40至49歲(04)50至59歲(05)60歲及以上(09)無反應
frq(TEDS2020$age)##
## 年齡 (x) <numeric>
## # total N=1680 valid N=1680 mean=3.46 sd=1.43
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ---------------------------------------------------
## 1 | 20至29歲 | 204 | 12.14 | 12.14 | 12.14
## 2 | 30至39歲 | 243 | 14.46 | 14.46 | 26.61
## 3 | 40至49歲 | 373 | 22.20 | 22.20 | 48.81
## 4 | 50至59歲 | 337 | 20.06 | 20.06 | 68.87
## 5 | 60歲及以上 | 513 | 30.54 | 30.54 | 99.40
## 9 | 無反應 | 10 | 0.60 | 0.60 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>TEDS2020$age0 <- rec(TEDS2020$age, rec="9=NA; else=copy" ,as.num = F,
var.label ="age年齡",
val.labels = c("20至29歲","30至39歲","40至49歲","50至59歲","60歲及以上"))
str(TEDS2020$age0)## Factor w/ 5 levels "1","2","3","4",..: 5 5 4 3 4 4 2 4 2 1 ...
## - attr(*, "labels")= Named num [1:5] 1 2 3 4 5
## ..- attr(*, "names")= chr [1:5] "20至29歲" "30至39歲" "40至49歲" "50至59歲" ...
## - attr(*, "label")= chr "age年齡"frq(TEDS2020$age0)##
## age年齡 (x) <categorical>
## # total N=1680 valid N=1670 mean=3.43 sd=1.37
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ---------------------------------------------------
## 1 | 20至29歲 | 204 | 12.14 | 12.22 | 12.22
## 2 | 30至39歲 | 243 | 14.46 | 14.55 | 26.77
## 3 | 40至49歲 | 373 | 22.20 | 22.34 | 49.10
## 4 | 50至59歲 | 337 | 20.06 | 20.18 | 69.28
## 5 | 60歲及以上 | 513 | 30.54 | 30.72 | 100.00
## <NA> | <NA> | 10 | 0.60 | <NA> | <NA>#教育程度
# (01)小學及以下(02)國、初中(03)高中、職(04)專科(05)大學及以上(09)無反應
frq(TEDS2020$edu)##
## 教育程度 (x) <numeric>
## # total N=1680 valid N=1680 mean=3.51 sd=1.43
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ---------------------------------------------------
## 1 | 小學及以下 | 214 | 12.74 | 12.74 | 12.74
## 2 | 國、初中 | 205 | 12.20 | 12.20 | 24.94
## 3 | 高中、職 | 411 | 24.46 | 24.46 | 49.40
## 4 | 專科 | 227 | 13.51 | 13.51 | 62.92
## 5 | 大學及以上 | 620 | 36.90 | 36.90 | 99.82
## 9 | 無反應 | 3 | 0.18 | 0.18 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>TEDS2020$edu0 <- rec(TEDS2020$edu, rec="9=NA; else=copy" ,as.num = F,
var.label ="edu教育程度",
val.labels = c("小學及以下","國、初中","高中、職","專科","大學及以上"))
str(TEDS2020$edu0)## Factor w/ 5 levels "1","2","3","4",..: 2 2 3 3 5 5 3 5 3 5 ...
## - attr(*, "labels")= Named num [1:5] 1 2 3 4 5
## ..- attr(*, "names")= chr [1:5] "小學及以下" "國、初中" "高中、職" "專科" ...
## - attr(*, "label")= chr "edu教育程度"frq(TEDS2020$edu0)##
## edu教育程度 (x) <categorical>
## # total N=1680 valid N=1677 mean=3.50 sd=1.41
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ---------------------------------------------------
## 1 | 小學及以下 | 214 | 12.74 | 12.76 | 12.76
## 2 | 國、初中 | 205 | 12.20 | 12.22 | 24.99
## 3 | 高中、職 | 411 | 24.46 | 24.51 | 49.49
## 4 | 專科 | 227 | 13.51 | 13.54 | 63.03
## 5 | 大學及以上 | 620 | 36.90 | 36.97 | 100.00
## <NA> | <NA> | 3 | 0.18 | <NA> | <NA>## 第三步：視覺化核心變數之間的關係
#（1）用sjPlot套件製類別變數關聯圖
library(sjPlot)
tab_xtab(TEDS2020$Ymed , TEDS2020$edu0,
show.obs = T,
show.row.prc = T,
show.col.prc = T,
remove.spaces = T)| B1銝剝<96>瘞<91> |
edu |
Total | ||||
|---|---|---|---|---|---|---|
|
撠飛 |
|
擃葉 |
撠 |
憭批飛 |
||
|
|
8 7.8 % 3.8 % |
6 5.8 % 2.9 % |
23 22.3 % 5.6 % |
14 13.6 % 6.2 % |
52 50.5 % 8.4 % |
103 100 % 6.2 % |
|
|
47 9.2 % 22.1 % |
52 10.2 % 25.4 % |
107 20.9 % 26.2 % |
72 14.1 % 31.7 % |
234 45.7 % 37.9 % |
512 100 % 30.6 % |
|
銝云 |
82 10.4 % 38.5 % |
97 12.4 % 47.3 % |
210 26.8 % 51.5 % |
114 14.5 % 50.2 % |
282 35.9 % 45.6 % |
785 100 % 47 % |
| 摰瘝<88>閎 |
76 28 % 35.7 % |
50 18.5 % 24.4 % |
68 25.1 % 16.7 % |
27 10 % 11.9 % |
50 18.5 % 8.1 % |
271 100 % 16.2 % |
| Total |
213 12.7 % 100 % |
205 12.3 % 100 % |
408 24.4 % 100 % |
227 13.6 % 100 % |
618 37 % 100 % |
1671 100 % 100 % |
χ2=122.724 · df=12 · Cramer’s V=0.156 · p=0.000 |
#（2）用VCD套件製類別變數關聯圖
library(vcd)## Loading required package: gridcotabplot(~ TEDS2020$ind + TEDS2020$Ymed , shade=TRUE) 
cotabplot(~ TEDS2020$part0+TEDS2020$partyTK,
shade=TRUE, compress=FALSE, alternate=F)