homework1

社會階層與環保意識之關聯分析

在全球暖化、氣候變遷逐漸擴大的時代，環保意識逐漸抬頭，這不僅攸關著我們現在所處的生活環境，也是防止後代子孫免於受到環境威脅的議題。在這種情況下，政府也制定許多環保政策防止環境持續遭到破壞的法案及制度。一般我們會認為「環保」是有錢人的專利，只有他們才做得到，但筆者想探究究竟事實是否如此？難道社會基層較低的民眾對環保議題就毫無概念和作為嗎？

本研究採取的獨立變數（社會階層）包含了：性別、教育程度、工作收入和支持的政黨等變項。在應變數（環保意識）上採取環境態度、環境行為等變數來作為測量標準。

Running Code

資料讀取:

#民意與政治行為第一次作業
library(sjlabelled)
homework<- read_spss("tscs202.sav")

Converting atomic to factors. Please wait...

nrow(homework)

[1] 1839

ncol(homework)

[1] 293

View(homework)
names(homework)

  [1] "id"            "zip"           "zipr"          "r_stratum2014"
  [5] "stratum2"      "region"        "stratum2014"   "region2014"   
  [9] "psu"           "ssu"           "wsel0"         "wsel"         
 [13] "wr4"           "wr4_all"       "wr4_var"       "wr14"         
 [17] "wave"          "qtype"         "year"          "year_m"       
 [21] "sdt1"          "sdt2"          "a1"            "a2y"          
 [25] "a2m"           "a2r"           "a3a"           "a3azip"       
 [29] "a3b"           "ka3b"          "a4"            "a5"           
 [33] "ka5"           "a6"            "ka6"           "a7"           
 [37] "ka7"           "a8"            "ka8"           "a9"           
 [41] "ka9"           "a10"           "ka10"          "a11"          
 [45] "ka11"          "a12"           "a13"           "ka13"         
 [49] "a14"           "a15"           "ka15"          "a16"          
 [53] "a17"           "a18"           "a19"           "a20a"         
 [57] "a20b"          "a20c"          "b1a"           "b1b"          
 [61] "b2a"           "b2b"           "b2c"           "b2d"          
 [65] "b2e"           "b3a"           "b3b"           "b4"           
 [69] "b5a"           "b5b"           "b5c"           "b5d"          
 [73] "b6"            "b7"            "b8"            "b9a"          
 [77] "b9b"           "b10a"          "b10b"          "b10c"         
 [81] "b10d"          "b10e"          "b10f"          "b11a"         
 [85] "b11b"          "b11c"          "b11d"          "b12a"         
 [89] "b12b"          "b12c"          "b12d"          "b12e"         
 [93] "b12f"          "b12g"          "b13a"          "b13b"         
 [97] "b13c"          "b13d"          "b13e"          "b13f"         
[101] "b13g"          "b14a"          "b14b"          "b15"          
[105] "b16"           "b17a"          "b17b"          "b17c"         
[109] "b18"           "b19a"          "b19b"          "b20"          
[113] "b21a"          "b21b"          "b21c"          "b22a"         
[117] "b22b"          "b22c"          "c1a"           "c1b"          
[121] "c1c"           "c1d"           "c1e"           "c1f"          
[125] "c1g"           "c1h"           "c1i"           "c2a"          
[129] "c2b"           "c2c"           "c2d"           "c2e"          
[133] "c2f"           "c3a"           "c3b"           "c3c"          
[137] "c4a"           "c4b"           "c4c"           "d11a"         
[141] "d11b"          "d12"           "d21"           "d22"          
[145] "d23"           "d24"           "d3"            "d4"           
[149] "d5"            "d61"           "d62"           "d63"          
[153] "d64"           "d65"           "e1"            "e2"           
[157] "e3"            "e4"            "e5"            "ke5"          
[161] "e6"            "e7a"           "e7b"           "e7c"          
[165] "e7d"           "e7e"           "e7f"           "e7g"          
[169] "e7h"           "e8"            "e9"            "e10"          
[173] "e11a"          "e11b"          "e11c"          "e11d"         
[177] "f1"            "f2"            "f3"            "f41"          
[181] "f42"           "f43"           "f44"           "f45"          
[185] "f46"           "f5"            "f6"            "kf6"          
[189] "f7"            "f8"            "f8a"           "f8b"          
[193] "f8c"           "kf8c"          "f91"           "f92"          
[197] "f93"           "f94"           "f95"           "f10"          
[201] "f11"           "f12"           "g1"            "g2"           
[205] "g3"            "g4"            "g5"            "g6a"          
[209] "g6b"           "g6c"           "g6d"           "g6e"          
[213] "g6f"           "g6g"           "g6h"           "g6i"          
[217] "g7a"           "g7b"           "g8"            "h1"           
[221] "kh1"           "h2"            "h3"            "h4a3"         
[225] "h4b4"          "h4b5"          "h4b5r"         "h4c"          
[229] "h5"            "kh5"           "h5a"           "h6"           
[233] "h7"            "h8"            "kh8"           "h9"           
[237] "h10"           "h11a3"         "h11b4"         "h11b5"        
[241] "h11b5r"        "h11c"          "h12"           "kh12"         
[245] "h12a"          "h13"           "h14"           "h15"          
[249] "kh15"          "h16"           "kh16"          "h17"          
[253] "h17a"          "h17b"          "h17c"          "h18"          
[257] "h19"           "h20"           "h21"           "h22"          
[261] "h23"           "h24"           "h25"           "h26"          
[265] "h27zip"        "edt1"          "edt2"          "time"         
[269] "ra2y"          "ra15"          "rb17a"         "rb17b"        
[273] "rb18"          "rg7a"          "rg7b"          "rh3"          
[277] "rh4a3"         "rh4b4"         "rh4b5"         "rh4b5r"       
[281] "rh5a"          "rh6"           "rh10"          "rh11a3"       
[285] "rh11b4"        "rh11b5"        "rh11b5r"       "rh12a"        
[289] "rh17"          "rh17a"         "rh17b"         "rh17c"        
[293] "rh27zip"      

str(homework)

'data.frame':   1839 obs. of  293 variables:
 $ id           : num  1062041 1062097 1062042 1062059 1062021 ...
  ..- attr(*, "label")= chr "id 樣本編號"
  ..- attr(*, "format.spss")= chr "F7.0"
  ..- attr(*, "display_width")= int 12
 $ zip          : Factor w/ 70 levels "103","104","105",..: 4 4 4 4 4 4 48 19 19 12 ...
  ..- attr(*, "labels")= Named num [1:365] 100 103 104 105 106 108 110 111 112 114 ...
  .. ..- attr(*, "names")= chr [1:365] "100 台北市中正區" "103 台北市大同區" "104 台北市中山區" "105 台北市松山區" ...
  ..- attr(*, "label")= chr "zip (抽樣地區)郵遞區號"
 $ zipr         : Factor w/ 70 levels "103","104","105",..: 4 4 4 4 4 4 46 19 19 12 ...
  ..- attr(*, "labels")= Named num [1:368] 100 103 104 105 106 108 110 111 112 114 ...
  .. ..- attr(*, "names")= chr [1:368] "100 台北市中正區" "103 台北市大同區" "104 台北市中山區" "105 台北市松山區" ...
  ..- attr(*, "label")= chr "zipr (抽樣地區)郵遞區號重新編碼"
 $ r_stratum2014: Factor w/ 19 levels "11","12","13",..: 1 1 1 1 1 1 12 2 2 3 ...
  ..- attr(*, "labels")= Named num [1:19] 11 12 13 14 21 22 23 31 32 33 ...
  .. ..- attr(*, "names")= chr [1:19] "北北基宜之第1分層" "北北基宜之第2分層" "北北基宜之第3分層" "北北基宜之第4分層" ...
  ..- attr(*, "label")= chr "r_stratum2014 2014地理區與層別代碼"
 $ stratum2     : Factor w/ 6 levels "1","2","3","4",..: 1 1 1 1 1 1 1 3 3 2 ...
  ..- attr(*, "labels")= Named num [1:6] 1 2 3 4 5 6
  .. ..- attr(*, "names")= chr [1:6] "都會核心" "工商市區" "新興市鎮" "傳統產業市鎮" ...
  ..- attr(*, "label")= chr "stratum2 2005層別代碼"
 $ region       : Factor w/ 6 levels "1","2","3","4",..: 1 1 1 1 1 1 4 1 1 1 ...
  ..- attr(*, "labels")= Named num [1:6] 1 2 3 4 5 6
  .. ..- attr(*, "names")= chr [1:6] "北北基" "桃竹苗" "中彰投" "雲嘉南" ...
  ..- attr(*, "label")= chr "region 2005地理區代碼"
 $ stratum2014  : num  1 1 1 1 1 1 1 2 2 3 ...
  ..- attr(*, "label")= chr "stratum2014 2014層別代碼"
  ..- attr(*, "format.spss")= chr "F1.0"
  ..- attr(*, "display_width")= int 12
 $ region2014   : Factor w/ 6 levels "1","2","3","4",..: 1 1 1 1 1 1 4 1 1 1 ...
  ..- attr(*, "labels")= Named num [1:6] 1 2 3 4 5 6
  .. ..- attr(*, "names")= chr [1:6] "北北基宜" "桃竹苗" "中彰投" "雲嘉南" ...
  ..- attr(*, "label")= chr "region2014 2014地理區代碼"
 $ psu          : num  3 3 3 3 3 3 1 8 8 3 ...
  ..- attr(*, "label")= chr "psu 第一抽出單位"
  ..- attr(*, "format.spss")= chr "F2.0"
  ..- attr(*, "display_width")= int 12
 $ ssu          : num  3 5 3 4 2 1 2 5 5 1 ...
  ..- attr(*, "label")= chr "ssu 第二抽出單位"
  ..- attr(*, "format.spss")= chr "F1.0"
  ..- attr(*, "display_width")= int 12
 $ wsel0        : num  0.689 0.689 0.689 0.689 0.689 ...
  ..- attr(*, "label")= chr "wsel0 不等機率加權權值(抽樣)"
  ..- attr(*, "format.spss")= chr "F20.16"
  ..- attr(*, "display_width")= int 16
 $ wsel         : num  0.659 0.659 0.659 0.659 0.659 ...
  ..- attr(*, "label")= chr "wsel 不等機率加權權值 加權變項"
  ..- attr(*, "format.spss")= chr "F20.16"
  ..- attr(*, "display_width")= int 16
 $ wr4          : num  0.854 0.854 0.948 0.841 1.124 ...
  ..- attr(*, "label")= chr "wr4 建立在初始權值等於不等機率加權權值，且以教育程度4分類進行加權之多變項反覆加權權值 加權變項：排除2018年時17歲受訪者"
  ..- attr(*, "format.spss")= chr "F20.16"
  ..- attr(*, "display_width")= int 16
  ..- attr(*, "labels")= Named num 96
  .. ..- attr(*, "names")= chr "沒有計算權值"
 $ wr4_all      : num  0.867 0.867 0.909 0.863 1.07 ...
  ..- attr(*, "label")= chr "wr4_all 建立在初始權值等於不等機率加權權值，且以教育程度4分類進行加權之多變項反覆加權權值 加權變項：包含2018年時17歲受訪者"
  ..- attr(*, "format.spss")= chr "F20.16"
  ..- attr(*, "display_width")= int 16
 $ wr4_var      : num  -0.0127 -0.0127 0.0385 -0.0223 0.0532 ...
  ..- attr(*, "label")= chr "wr4_var wr4減去wr4_all：排除2018年時17歲受訪者"
  ..- attr(*, "format.spss")= chr "F20.16"
  ..- attr(*, "display_width")= int 16
 $ wr14         : num  0.896 0.896 1.032 0.861 1.259 ...
  ..- attr(*, "label")= chr "wr14 建立在初始權值為1，且以教育程度4分類進行加權之多變項反覆加權權值 加權變項：排除2018年時17歲受訪者"
  ..- attr(*, "format.spss")= chr "F20.16"
  ..- attr(*, "display_width")= int 16
  ..- attr(*, "labels")= Named num 96
  .. ..- attr(*, "names")= chr "沒有計算權值"
 $ wave         : chr  "0801" "0801" "0801" "0801" ...
  ..- attr(*, "label")= chr "wave 波次"
  ..- attr(*, "format.spss")= chr "A8"
  ..- attr(*, "display_width")= int 12
 $ qtype        : chr  "卷二" "卷二" "卷二" "卷二" ...
  ..- attr(*, "label")= chr "qtype 問卷別"
  ..- attr(*, "format.spss")= chr "A8"
  ..- attr(*, "display_width")= int 12
 $ year         : num  2020 2020 2020 2020 2021 ...
  ..- attr(*, "label")= chr "year 調查年(西元年)"
  ..- attr(*, "format.spss")= chr "F4.0"
  ..- attr(*, "display_width")= int 12
 $ year_m       : num  109 109 109 109 110 110 109 109 109 109 ...
  ..- attr(*, "label")= chr "year_m 調查年(民國年)"
  ..- attr(*, "format.spss")= chr "F3.0"
  ..- attr(*, "display_width")= int 12
 $ sdt1         : num  1227 1226 1228 1229 104 ...
  ..- attr(*, "label")= chr "sdt1 訪問開始時間：__月__日"
  ..- attr(*, "format.spss")= chr "F4.0"
  ..- attr(*, "display_width")= int 12
 $ sdt2         : num  1629 1633 1725 1636 1519 ...
  ..- attr(*, "label")= chr "sdt2 訪問開始時間：__時__分"
  ..- attr(*, "format.spss")= chr "F4.0"
  ..- attr(*, "display_width")= int 12
 $ a1           : Factor w/ 2 levels "1","2": 2 2 2 2 2 2 2 1 2 1 ...
  ..- attr(*, "labels")= Named num [1:2] 1 2
  .. ..- attr(*, "names")= chr [1:2] "男" "女"
  ..- attr(*, "label")= chr "a1 性別"
 $ a2y          : num  44 41 79 36 78 58 67 60 87 88 ...
  ..- attr(*, "label")= chr "a2y 您是什麼時候出生的?民國年"
  ..- attr(*, "format.spss")= chr "F2.0"
  ..- attr(*, "display_width")= int 12
  ..- attr(*, "labels")= Named num [1:3] 97 98 99
  .. ..- attr(*, "names")= chr [1:3] "不知道" "拒答" "遺漏值"
 $ a2m          : num  8 11 8 5 3 8 7 1 3 1 ...
  ..- attr(*, "label")= chr "a2m 您是什麼時候出生的?月"
  ..- attr(*, "format.spss")= chr "F2.0"
  ..- attr(*, "display_width")= int 12
  ..- attr(*, "labels")= Named num [1:3] 97 98 99
  .. ..- attr(*, "names")= chr [1:3] "不知道" "拒答" "遺漏值"
 $ a2r          : num  996 996 996 996 996 996 996 996 996 996 ...
  ..- attr(*, "label")= chr "a2r 忘記出生年/月，回答歲數(實歲)"
  ..- attr(*, "format.spss")= chr "F3.0"
  ..- attr(*, "display_width")= int 12
  ..- attr(*, "labels")= Named num [1:4] 996 997 998 999
  .. ..- attr(*, "names")= chr [1:4] "跳答" "不知道" "拒答" "遺漏值"
 $ a3a          : Factor w/ 4 levels "1","2","3","4": 1 1 1 1 4 1 2 3 1 1 ...
  ..- attr(*, "labels")= Named num [1:4] 1 2 3 4
  .. ..- attr(*, "names")= chr [1:4] "是(跳答a4)" "否，但戶籍所在地與現住地址位於同一鄉鎮市區" "否，戶籍所在地為__縣/市__鄉/鎮/市/區" "否，在國內沒有戶籍(跳答a4)"
  ..- attr(*, "label")= chr "a3a 您自己的戶籍是不是設在這個地址(樣本名單上的門牌地址)?"
 $ a3azip       : Factor w/ 158 levels "100","103","104",..: 157 157 157 157 157 157 157 69 157 157 ...
  ..- attr(*, "labels")= Named num [1:372] 100 103 104 105 106 108 110 111 112 114 ...
  .. ..- attr(*, "names")= chr [1:372] "100 台北市中正區" "103 台北市大同區" "104 台北市中山區" "105 台北市松山區" ...
  ..- attr(*, "label")= chr "a3azip 請輸入戶籍地的「縣市」與「鄉鎮市區」(國外請填國名)"
 $ a3b          : Factor w/ 9 levels "1","2","3","4",..: 8 8 8 8 8 8 2 4 8 8 ...
  ..- attr(*, "labels")= Named num [1:11] 1 2 3 4 5 6 7 96 97 98 ...
  .. ..- attr(*, "names")= chr [1:11] "工作因素" "自己或子女就學因素" "戶籍地的政府福利較好" "在戶籍地有房子" ...
  ..- attr(*, "label")= chr "a3b 您的戶籍所在地跟現住地址不同，主要的原因是?"
 $ ka3b         : chr  "" "" "" "" ...
  ..- attr(*, "label")= chr "a3b 您的戶籍所在地跟現住地址不同，主要的原因是?(07)其他，請說明"
  ..- attr(*, "format.spss")= chr "A80"
  ..- attr(*, "display_width")= int 12
 $ a4           : Factor w/ 6 levels "1","2","3","4",..: 1 1 1 1 1 1 1 3 2 2 ...
  ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 5 97 98 99
  .. ..- attr(*, "names")= chr [1:8] "大都市" "大都市旁的郊區" "小都市或小鎮" "農村地區" ...
  ..- attr(*, "label")= chr "a4 您覺得現在所居住的地方是都市或鄉村?"
 $ a5           : Factor w/ 9 levels "1","2","3","4",..: 2 7 3 2 3 2 2 2 1 1 ...
  ..- attr(*, "labels")= Named num [1:11] 1 2 3 4 5 6 7 8 97 98 ...
  .. ..- attr(*, "names")= chr [1:11] "單身且從沒結過婚" "已婚且與配偶同住" "已婚但沒有與配偶同住" "同居" ...
  ..- attr(*, "label")= chr "a5 您目前的婚姻狀況是?"
 $ ka5          : chr  "" "" "" "" ...
  ..- attr(*, "label")= chr "a5 您目前的婚姻狀況是?(08)其他，請說明"
  ..- attr(*, "format.spss")= chr "A20"
  ..- attr(*, "display_width")= int 12
 $ a6           : Factor w/ 9 levels "1","2","3","4",..: 2 1 5 3 6 5 1 2 1 1 ...
  ..- attr(*, "labels")= Named num [1:10] 1 2 3 4 5 6 7 97 98 99
  .. ..- attr(*, "names")= chr [1:10] "台灣閩南人" "台灣客家人" "大陸各省市(外省人)" "台灣原住民" ...
  ..- attr(*, "label")= chr "a6 您父親是哪裡人?"
 $ ka6          : chr  "" "" "" "" ...
  ..- attr(*, "label")= chr "a6 您父親是哪裡人?(07)其他，請說明"
  ..- attr(*, "format.spss")= chr "A80"
  ..- attr(*, "display_width")= int 12
 $ a7           : Factor w/ 5 levels "1","2","3","97",..: 1 1 2 2 3 2 1 1 1 1 ...
  ..- attr(*, "labels")= Named num [1:6] 1 2 3 97 98 99
  .. ..- attr(*, "names")= chr [1:6] "台灣" "中國大陸" "其他國家，請說明" "不知道" ...
  ..- attr(*, "label")= chr "a7 您父親是在哪一個國家出生的?"
 $ ka7          : chr  "" "" "" "" ...
  ..- attr(*, "label")= chr "a7 您父親是在哪一個國家出生的?(03)其他，請說明"
  ..- attr(*, "format.spss")= chr "A20"
  ..- attr(*, "display_width")= int 12
 $ a8           : Factor w/ 9 levels "1","2","3","4",..: 2 1 5 3 6 5 1 2 1 2 ...
  ..- attr(*, "labels")= Named num [1:10] 1 2 3 4 5 6 7 97 98 99
  .. ..- attr(*, "names")= chr [1:10] "台灣閩南人" "台灣客家人" "大陸各省市(外省人)" "台灣原住民" ...
  ..- attr(*, "label")= chr "a8 您母親是哪裡人?"
 $ ka8          : chr  "" "" "" "" ...
  ..- attr(*, "label")= chr "a8 您母親是哪裡人?(07)其他，請說明"
  ..- attr(*, "format.spss")= chr "A20"
  ..- attr(*, "display_width")= int 12
 $ a9           : Factor w/ 5 levels "1","2","3","97",..: 1 1 2 2 3 2 1 1 1 1 ...
  ..- attr(*, "labels")= Named num [1:6] 1 2 3 97 98 99
  .. ..- attr(*, "names")= chr [1:6] "台灣" "中國大陸" "其他國家，請說明" "不知道" ...
  ..- attr(*, "label")= chr "a9 您母親是在哪一個國家出生的?"
 $ ka9          : chr  "" "" "" "" ...
  ..- attr(*, "label")= chr "a9 您母親是在哪一個國家出生的?(03)其他，請說明"
  ..- attr(*, "format.spss")= chr "A20"
  ..- attr(*, "display_width")= int 12
 $ a10          : Factor w/ 9 levels "1","2","3","4",..: 2 1 5 1 6 1 1 2 1 1 ...
  ..- attr(*, "labels")= Named num [1:10] 1 2 3 4 5 6 7 97 98 99
  .. ..- attr(*, "names")= chr [1:10] "台灣閩南人" "台灣客家人" "大陸各省市(外省人)" "台灣原住民" ...
  ..- attr(*, "label")= chr "a10 您是哪裡人?"
 $ ka10         : chr  "" "" "" "" ...
  ..- attr(*, "label")= chr "a10 您是哪裡人?(07)其他，請說明"
  ..- attr(*, "format.spss")= chr "A80"
  ..- attr(*, "display_width")= int 12
 $ a11          : Factor w/ 11 levels "1","2","3","4",..: 4 5 9 9 6 4 9 9 8 7 ...
  ..- attr(*, "labels")= Named num [1:13] 1 2 3 4 5 6 7 8 9 10 ...
  .. ..- attr(*, "names")= chr [1:13] "佛教，有皈依" "佛教，未皈依" "道教" "民間信仰" ...
  ..- attr(*, "label")= chr "a11 您目前的宗教信仰?"
 $ ka11         : chr  "" "" "" "" ...
  ..- attr(*, "label")= chr "a11 您目前的宗教信仰?(10)其他，請說明"
  ..- attr(*, "format.spss")= chr "A20"
  ..- attr(*, "display_width")= int 12
 $ a12          : Factor w/ 9 levels "1","2","3","4",..: 6 4 8 8 7 7 8 7 1 7 ...
  ..- attr(*, "labels")= Named num [1:11] 1 2 3 4 5 6 7 8 97 98 ...
  .. ..- attr(*, "names")= chr [1:11] "每星期好幾次" "每星期一次" "一個月兩、三次" "一個月一次" ...
  ..- attr(*, "label")= chr "a12 您常不常參加宗教活動(例如：進香、禪修、做禮拜、靈修聚會、宗教志工服務)，大概多久一次?(「沒有宗教信仰」者也請回答此題)"
 $ a13          : Factor w/ 23 levels "1","2","3","4",..: 8 8 18 21 4 3 11 8 19 19 ...
  ..- attr(*, "labels")= Named num [1:25] 1 2 3 4 5 6 7 8 9 10 ...
  .. ..- attr(*, "names")= chr [1:25] "無/不識字(跳答A16)" "自修/識字/私塾(跳答A16)" "小學" "國(初 )中" ...
  ..- attr(*, "label")= chr "a13 您的教育程度是"
 $ ka13         : chr  "" "" "" "" ...
  ..- attr(*, "label")= chr "a13 您的教育程度是：(22)其他，請說明"
  ..- attr(*, "format.spss")= chr "A20"
  ..- attr(*, "display_width")= int 12
 $ a14          : Factor w/ 5 levels "1","2","3","96",..: 3 3 3 3 3 3 3 3 3 2 ...
  ..- attr(*, "labels")= Named num [1:7] 1 2 3 96 97 98 99
  .. ..- attr(*, "names")= chr [1:7] "沒有，肄業" "沒有，就學中" "有，畢業" "跳答" ...
  ..- attr(*, "label")= chr "a14 您有沒有完成學業?"
 $ a15          : num  12 12 14 22 9 5 15 12 16 15 ...
  ..- attr(*, "label")= chr "a15 從國小一年級算起，您總共受幾年的學校教育?年"
  ..- attr(*, "format.spss")= chr "F2.0"
  ..- attr(*, "display_width")= int 12
  ..- attr(*, "labels")= Named num [1:4] 96 97 98 99
  .. ..- attr(*, "names")= chr [1:4] "跳答" "不知道" "拒答" "遺漏值"
 $ ka15         : chr  "0" "0" "6+3+3+2（大專）" "6+3+3+3+2+5" ...
  ..- attr(*, "label")= chr "a15 從國小一年級算起，您總共受幾年的學校教育?特殊狀況"
  ..- attr(*, "format.spss")= chr "A100"
  ..- attr(*, "display_width")= int 12
 $ a16          : Factor w/ 6 levels "1","2","3","4",..: 1 3 1 1 2 1 5 5 4 3 ...
  ..- attr(*, "labels")= Named num [1:7] 1 2 3 4 5 98 99
  .. ..- attr(*, "names")= chr [1:7] "總是" "經常" "有時" "偶爾" ...
  ..- attr(*, "label")= chr "a16 您外出買東西時，常不常加購購物袋或索取提袋?"
 $ a17          : Factor w/ 5 levels "1","2","3","4",..: 4 3 2 1 3 2 4 3 3 1 ...
  ..- attr(*, "labels")= Named num [1:7] 1 2 3 4 5 98 99
  .. ..- attr(*, "names")= chr [1:7] "總是" "經常" "有時" "偶爾" ...
  ..- attr(*, "label")= chr "a17 您用餐時，常不常使用店家所提供的免洗餐具?"
 $ a18          : Factor w/ 5 levels "1","2","3","4",..: 4 3 3 3 2 3 5 3 5 4 ...
  ..- attr(*, "labels")= Named num [1:7] 1 2 3 4 5 98 99
  .. ..- attr(*, "names")= chr [1:7] "總是" "經常" "有時" "偶爾" ...
  ..- attr(*, "label")= chr "a18 您在外喝水時，常不常使用瓶裝水或紙杯?"
 $ a19          : Factor w/ 5 levels "1","2","3","4",..: 1 1 5 1 2 3 5 5 5 5 ...
  ..- attr(*, "labels")= Named num [1:7] 1 2 3 4 5 98 99
  .. ..- attr(*, "names")= chr [1:7] "總是" "經常" "有時" "偶爾" ...
  ..- attr(*, "label")= chr "a19 您用餐時，常不常以手帕代替面紙或濕紙巾之使用?"
 $ a20a         : Factor w/ 9 levels "1","2","3","4",..: 1 2 1 1 2 2 4 4 2 8 ...
  ..- attr(*, "labels")= Named num [1:10] 1 2 3 4 5 94 95 97 98 99
  .. ..- attr(*, "names")= chr [1:10] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "a20a 您同不同意?紙製的餐具可以回收再利用，對環境是友善的"
 $ a20b         : Factor w/ 9 levels "1","2","3","4",..: 1 2 1 1 2 2 4 4 4 8 ...
  ..- attr(*, "labels")= Named num [1:10] 1 2 3 4 5 94 95 97 98 99
  .. ..- attr(*, "names")= chr [1:10] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "a20b 您同不同意?有回收標章的塑膠製餐具可以回收再利用，對環境是友善的"
 $ a20c         : Factor w/ 9 levels "1","2","3","4",..: 1 2 1 1 2 2 5 2 2 2 ...
  ..- attr(*, "labels")= Named num [1:10] 1 2 3 4 5 94 95 97 98 99
  .. ..- attr(*, "names")= chr [1:10] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "a20c 您同不同意?塑膠若可以分解，就不會成為萬年塑膠，對環境是友善的"
 $ b1a          : Factor w/ 11 levels "1","2","3","4",..: 1 3 4 2 1 1 4 2 3 2 ...
  ..- attr(*, "labels")= Named num [1:13] 1 2 3 4 5 6 7 8 9 94 ...
  .. ..- attr(*, "names")= chr [1:13] "健康照顧" "教育" "犯罪" "環境" ...
  ..- attr(*, "label")= chr "b1a 您認為哪個項目是目前台灣社會最重要的議題?"
 $ b1b          : Factor w/ 11 levels "1","2","3","4",..: 2 1 1 4 5 2 2 6 6 6 ...
  ..- attr(*, "labels")= Named num [1:13] 1 2 3 4 5 6 7 8 9 94 ...
  .. ..- attr(*, "names")= chr [1:13] "健康照顧" "教育" "犯罪" "環境" ...
  ..- attr(*, "label")= chr "b1b 您認為哪個項目是目前台灣社會第二重要的議題?"
 $ b2a          : Factor w/ 7 levels "1","2","3","4",..: 2 4 2 2 2 2 3 2 4 2 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "b2a 有人說，解決台灣經濟問題最好的方法是民間企業(市場經濟)，您同不同意?"
 $ b2b          : Factor w/ 7 levels "1","2","3","4",..: 2 4 2 2 4 2 2 4 7 4 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "b2b 有人說，減少高收入與低收入之間的差距，是政府的責任，您同不同意?"
 $ b2c          : Factor w/ 7 levels "1","2","3","4",..: 2 3 4 4 4 4 2 4 4 4 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "b2c 有人說，台灣應該限制外國商品進口，來保護我國經濟，您同不同意?"
 $ b2d          : Factor w/ 7 levels "1","2","3","4",..: 2 3 4 4 4 4 2 4 2 4 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "b2d 有人說，我們應該限制外國人移民來台灣，以保護我國的生活方式，您同不同意?"
 $ b2e          : Factor w/ 8 levels "1","2","3","4",..: 3 3 3 4 3 2 2 2 7 2 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "b2e 有人說，國際組織從台灣政府拿走太多決策權力，您同不同意?"
 $ b3a          : Factor w/ 7 levels "1","2","3","4",..: 1 1 3 4 6 2 2 2 1 1 ...
  ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 94 97 98 99
  .. ..- attr(*, "names")= chr [1:8] "保持國家的運作秩序" "讓人民對政府決策多表達意見" "對抗物價上升" "保障言論自由" ...
  ..- attr(*, "label")= chr "b3a 您認為下列哪一項是對台灣最重要且應列為最高優先的事?"
 $ b3b          : Factor w/ 7 levels "1","2","3","4",..: 2 2 2 1 6 4 1 3 2 4 ...
  ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 94 97 98 99
  .. ..- attr(*, "names")= chr [1:8] "保持國家的運作秩序" "讓人民對政府決策多表達意見" "對抗物價上升" "保障言論自由" ...
  ..- attr(*, "label")= chr "b3b 您認為下列哪一項是對台灣第二重要且第二優先的事?"
 $ b4           : Factor w/ 7 levels "1","2","3","4",..: 3 4 3 1 4 4 4 4 4 2 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "1 要盡量小心" "2" "3" "4" ...
  ..- attr(*, "label")= chr "b4 一般來說，您認為大多數人是可以信任的，還是與人來往時要盡量小心(1指「要盡量小心」，5指「可以信任」)?"
 $ b5a          : Factor w/ 13 levels "0","1","2","3",..: 5 11 9 6 8 8 5 8 9 6 ...
  ..- attr(*, "labels")= Named num [1:15] 0 1 2 3 4 5 6 7 8 9 ...
  .. ..- attr(*, "names")= chr [1:15] "0 完全不信任" "1" "2" "3" ...
  ..- attr(*, "label")= chr "b5a 您個人對大學研究中心的信任程度，從0分到10分，您會給幾分(0分\"完全不信任\"，10分\"完全信任\")?"
 $ b5b          : Factor w/ 13 levels "0","1","2","3",..: 2 6 6 2 11 5 6 6 7 2 ...
  ..- attr(*, "labels")= Named num [1:15] 0 1 2 3 4 5 6 7 8 9 ...
  .. ..- attr(*, "names")= chr [1:15] "0 完全不信任" "1" "2" "3" ...
  ..- attr(*, "label")= chr "b5b 您個人對新聞媒體的信任程度，從0分到10分，您會給幾分(0分\"完全不信任\"，10分\"完全信任\")?"
 $ b5c          : Factor w/ 14 levels "0","1","2","3",..: 3 9 8 4 8 7 6 6 7 3 ...
  ..- attr(*, "labels")= Named num [1:15] 0 1 2 3 4 5 6 7 8 9 ...
  .. ..- attr(*, "names")= chr [1:15] "0 完全不信任" "1" "2" "3" ...
  ..- attr(*, "label")= chr "b5c 您個人對工商業界的信任程度，從0分到10分，您會給幾分(0分\"完全不信任\"，10分\"完全信任\")?"
 $ b5d          : Factor w/ 14 levels "0","1","2","3",..: 2 8 6 1 13 2 6 6 8 2 ...
  ..- attr(*, "labels")= Named num [1:15] 0 1 2 3 4 5 6 7 8 9 ...
  .. ..- attr(*, "names")= chr [1:15] "0 完全不信任" "1" "2" "3" ...
  ..- attr(*, "label")= chr "b5d 您個人對立法院的信任程度，從0分到10分，您會給幾分(0分\"完全不信任\"，10分\"完全信任\")?"
 $ b6           : Factor w/ 7 levels "1","2","3","4",..: 4 4 5 5 3 4 5 5 5 3 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "1 一點也不關心" "2" "3" "4" ...
  ..- attr(*, "label")= chr "b6 一般來說，您對環境問題的關心程度為何(1指「一點也不關心」，5指「非常關心」)?"
 $ b7           : Factor w/ 12 levels "1","2","3","4",..: 2 4 8 2 1 7 7 6 1 11 ...
  ..- attr(*, "labels")= Named num [1:14] 1 2 3 4 5 6 7 8 9 10 ...
  .. ..- attr(*, "names")= chr [1:14] "空氣污染" "農藥和化學肥料" "水資源短缺" "水質污染" ...
  ..- attr(*, "label")= chr "b7 您認為對台灣整體來說最重要的環境問題是哪一項?"
 $ b8           : Factor w/ 6 levels "1","2","3","4",..: 3 2 3 4 3 3 4 4 4 4 ...
  ..- attr(*, "labels")= Named num [1:8] 1 2 3 4 94 97 98 99
  .. ..- attr(*, "names")= chr [1:8] "沒有氣候變遷(跳答b10a)" "主要是自然過程的影響" "自然過程和人類行為都有影響" "主要受到人類行為的影響" ...
  ..- attr(*, "label")= chr "b8 關於氣候變遷有很多不同的說法，您比較同意哪一種說法?"
 $ b9a          : Factor w/ 14 levels "0","1","2","3",..: 3 5 7 1 1 2 2 4 4 3 ...
  ..- attr(*, "labels")= Named num [1:16] 0 1 2 3 4 5 6 7 8 9 ...
  .. ..- attr(*, "names")= chr [1:16] "0 非常壞" "1" "2" "3" ...
  ..- attr(*, "label")= chr "b9a 您認為氣候變遷對全球會有怎麼樣的影響?從0分到10分，您會給幾分(0分\"非常壞\"，10分\"非常好\")?"
 $ b9b          : Factor w/ 14 levels "0","1","2","3",..: 6 8 7 2 1 2 2 6 5 6 ...
  ..- attr(*, "labels")= Named num [1:16] 0 1 2 3 4 5 6 7 8 9 ...
  .. ..- attr(*, "names")= chr [1:16] "0 非常壞" "1" "2" "3" ...
  ..- attr(*, "label")= chr "b9b 您認為氣候變遷對臺灣會有怎麼樣的影響?從0分到10分，您會給幾分(0分\"非常壞\"，10分\"非常好\")?"
 $ b10a         : Factor w/ 7 levels "1","2","3","4",..: 4 2 4 2 2 2 4 5 5 4 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "b10a 您同不同意?現代科學可以解決環境問題，而且對我們的生活方式不會改變太多"
 $ b10b         : Factor w/ 7 levels "1","2","3","4",..: 3 3 4 2 2 2 4 4 3 2 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "b10b 您同不同意?我們太過擔心未來的環境問題，卻不夠關切眼前的工作及物價"
 $ b10c         : Factor w/ 7 levels "1","2","3","4",..: 4 4 2 1 2 2 2 2 3 2 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "b10c 您同不同意?在現代生活中，我們所做的事幾乎都會對環境造成傷害"
 $ b10d         : Factor w/ 8 levels "1","2","3","4",..: 2 4 2 2 2 3 2 4 4 2 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "b10d 您同不同意?人們太過擔心人類的進步會傷害環境"
 $ b10e         : Factor w/ 7 levels "1","2","3","4",..: 4 2 2 4 2 2 4 2 7 2 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "b10e 您同不同意?台灣需要經濟成長來保護環境"
 $ b10f         : Factor w/ 7 levels "1","2","3","4",..: 4 2 2 4 2 2 2 2 2 4 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "b10f 您同不同意?經濟成長總是會傷害環境"
 $ b11a         : Factor w/ 8 levels "1","2","3","4",..: 4 2 4 2 2 2 2 2 4 5 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "很願意" "還算願意" "無所謂願不願意" "不太願意" ...
  ..- attr(*, "label")= chr "b11a 您願不願意為了保護環境而支付高出很多的物價?"
 $ b11b         : Factor w/ 7 levels "1","2","3","4",..: 4 2 4 2 4 3 2 4 4 5 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "很願意" "還算願意" "無所謂願不願意" "不太願意" ...
  ..- attr(*, "label")= chr "b11b 您願不願意為了保護環境而支付高出很多的稅?"
 $ b11c         : Factor w/ 8 levels "1","2","3","4",..: 4 2 2 2 2 2 1 5 1 5 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "很願意" "還算願意" "無所謂願不願意" "不太願意" ...
  ..- attr(*, "label")= chr "b11c 您願不願意為了保護環境而降低生活水準?"
 $ b11d         : Factor w/ 8 levels "1","2","3","4",..: 4 4 3 4 2 4 4 5 5 5 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "很願意" "還算願意" "無所謂願不願意" "不太願意" ...
  ..- attr(*, "label")= chr "b11d 您願不願意減少台灣的自然保護區，讓這些地方可以開放，進行經濟活動?"
 $ b12a         : Factor w/ 7 levels "1","2","3","4",..: 4 4 2 4 2 4 4 4 4 2 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "b12a 您同不同意?對您而言，要為環境做些事太困難"
 $ b12b         : Factor w/ 7 levels "1","2","3","4",..: 2 2 3 2 2 2 2 1 1 2 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "b12b 您同不同意?就算要多花些金錢或時間，您也願意為環境做些正確的事"
 $ b12c         : Factor w/ 7 levels "1","2","3","4",..: 2 3 2 4 2 3 2 1 4 2 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "b12c 您同不同意?生活中有比保護環境更重要的事"
 $ b12d         : Factor w/ 8 levels "1","2","3","4",..: 2 2 2 4 2 2 1 2 2 1 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "b12d 您同不同意?除非大家都一起為環境盡力，否則您一個人做沒有用"
 $ b12e         : Factor w/ 8 levels "1","2","3","4",..: 2 2 4 4 2 3 4 4 4 2 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "b12e 您同不同意?許多環境危機的報導或主張，都是過度誇大"
 $ b12f         : Factor w/ 7 levels "1","2","3","4",..: 4 4 4 4 2 3 2 4 2 4 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "b12f 您同不同意?您很難知道自己生活的方式是對環境有幫助還是有傷害"
 $ b12g         : Factor w/ 7 levels "1","2","3","4",..: 2 2 2 2 2 2 2 1 2 4 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "非常同意" "同意" "無所謂同不同意" "不同意" ...
  ..- attr(*, "label")= chr "b12g 您同不同意?環境問題對您的日常生活有直接影響"
 $ b13a         : Factor w/ 7 levels "1","2","3","4",..: 3 4 2 2 2 3 2 2 2 3 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "極度危險" "非常危險" "有點危險" "不太危險" ...
  ..- attr(*, "label")= chr "b13a 一般而言，您覺得汽車造成的空氣污染對環境來說危不危險?"
 $ b13b         : Factor w/ 7 levels "1","2","3","4",..: 1 3 2 2 2 2 2 1 1 3 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "極度危險" "非常危險" "有點危險" "不太危險" ...
  ..- attr(*, "label")= chr "b13b 一般而言，您覺得工業造成的空氣污染對環境來說危不危險?"
 $ b13c         : Factor w/ 7 levels "1","2","3","4",..: 2 2 2 2 3 2 2 3 3 3 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "極度危險" "非常危險" "有點危險" "不太危險" ...
  ..- attr(*, "label")= chr "b13c 您覺得農藥和化學肥料對環境來說危不危險?"
 $ b13d         : Factor w/ 7 levels "1","2","3","4",..: 2 2 2 2 3 3 2 2 1 2 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "極度危險" "非常危險" "有點危險" "不太危險" ...
  ..- attr(*, "label")= chr "b13d 您覺得台灣的河流和湖泊的污染對環境來說危不危險?"
 $ b13e         : Factor w/ 7 levels "1","2","3","4",..: 2 3 1 1 2 2 1 1 1 2 ...
  ..- attr(*, "labels")= Named num [1:9] 1 2 3 4 5 94 97 98 99
  .. ..- attr(*, "names")= chr [1:9] "極度危險" "非常危險" "有點危險" "不太危險" ...
  ..- attr(*, "label")= chr "b13e 一般而言，您覺得由氣候變遷所造成的全球溫度上升對環境來說危不危險?"
  [list output truncated]

報表輸出：

# 取出變數名稱當作變數標籤
varlabels <- colnames(homework)
# 為變數名稱裝上標籤
sjlabelled::set_label(homework) <- varlabels 
# 批次清理無效值
homework <- sjmisc::set_na(homework, na="NA")

library(sjmisc)
library(sjPlot)

Learn more about sjPlot with 'browseVignettes("sjPlot")'.

sjPlot::set_theme(theme.font="PingFang TC") 

#1.性別
#性別:□(01)男 □(02)女
table(homework$a1)

   1    2 
 781 1058 

#2.教育程度
#A13. 請問您的教育程度是: (提示卡 4)
#□(01)無/不識字 □(04)國(初)中 □(07)高中職業科 □(10)五專 □(13)軍警校專修班 □(16)空中大學 □(19)大學 □(22)其他，請說明
#□(02)自修/識字/私塾(跳答 A16) □(05)初職
#□(03)小學 □(06)高中普通科 □(09)士官學校 □(12)三專 □(15)空中行專/商專 □(18)技術學院、科大 □(21)博士
#□(08)高職
#□(11)二專
#□(14)軍警校專科班 □(17)軍警官校/軍警官大學 □(20)碩士
table(homework$a13)

  1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17  18  19  20 
 64   5 261 213   1  67 106 306   2  56 106  18   2   1   4   4   1 195 290 115 
 21  22  98 
 18   1   3 

The echo: false option disables the printing of code (only output is displayed).