#民意與政治行為第一次作業
library(sjlabelled)
homework<- read_spss("tscs202.sav")Converting atomic to factors. Please wait...homework1
社會階層與環保意識之關聯分析
在全球暖化、氣候變遷逐漸擴大的時代，環保意識逐漸抬頭，這不僅攸關著我們現在所處的生活環境，也是防止後代子孫免於受到環境威脅的議題。在這種情況下，政府也制定許多環保政策防止環境持續遭到破壞的法案及制度。一般我們會認為「環保」是有錢人的專利，只有他們才做得到，但筆者想探究究竟事實是否如此？難道社會基層較低的民眾對環保議題就毫無概念和作為嗎？
本研究採取的獨立變數（社會階層）包含了：性別、教育程度、工作收入和支持的政黨等變項。在應變數（環保意識）上採取環境態度、環境行為等變數來作為測量標準。
Running Code
資料讀取:
報表輸出：
#民意與政治行為第一次作業
library(sjlabelled)
homework<- read_spss("tscs202.sav")Converting atomic to factors. Please wait...# 取出變數名稱當作變數標籤
varlabels <- colnames(homework)
# 為變數名稱裝上標籤
sjlabelled::set_label(homework) <- varlabels
# 批次清理無效值
homework <- sjmisc::set_na(homework, na="NA")
library(sjmisc)
library(sjPlot)
sjPlot::set_theme(theme.font="PingFang TC")
#清理無效值
homework <- set_na(homework , na=c(94:99, "NA"))
##社會階層
#1.性別
#性別:□(01)男 □(02)女
table(homework$a1, exclude=NULL)
1 2
781 1058 library(gmodels)
CrossTable(homework$a1)
Cell Contents
|-------------------------|
| N |
| N / Table Total |
|-------------------------|
Total Observations in Table: 1839
| 1 | 2 |
|-----------|-----------|
| 781 | 1058 |
| 0.425 | 0.575 |
|-----------|-----------|
sjPlot::set_theme(theme.font="PingFang TC")
sjmisc::frq(homework$a1)a1 (x) <categorical>
# total N=1839 valid N=1839 mean=1.58 sd=0.49
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------
1 | 男 | 781 | 42.47 | 42.47 | 42.47
2 | 女 | 1058 | 57.53 | 57.53 | 100.00
<NA> | <NA> | 0 | 0.00 | <NA> | <NA>plot_frq(homework$a1, wrap.title=50,
sort.frq = "asc", geom.colors = "pink")
#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
18 1 sjmisc::frq(homework$a13)a13 (x) <categorical>
# total N=1839 valid N=1836 mean=10.44 sd=6.57
Value | Label | N | Raw % | Valid % | Cum. %
----------------------------------------------------------------
1 | 無/不識字(跳答A16) | 64 | 3.48 | 3.49 | 3.49
2 | 自修/識字/私塾(跳答A16) | 5 | 0.27 | 0.27 | 3.76
3 | 小學 | 261 | 14.19 | 14.22 | 17.97
4 | 國(初 )中 | 213 | 11.58 | 11.60 | 29.58
5 | 初職 | 1 | 0.05 | 0.05 | 29.63
6 | 高中普通科 | 67 | 3.64 | 3.65 | 33.28
7 | 高中職業科 | 106 | 5.76 | 5.77 | 39.05
8 | 高職 | 306 | 16.64 | 16.67 | 55.72
9 | 士官學校 | 2 | 0.11 | 0.11 | 55.83
10 | 五專 | 56 | 3.05 | 3.05 | 58.88
11 | 二專 | 106 | 5.76 | 5.77 | 64.65
12 | 三專 | 18 | 0.98 | 0.98 | 65.63
13 | 軍警校專修班 | 2 | 0.11 | 0.11 | 65.74
14 | 軍警校專科班 | 1 | 0.05 | 0.05 | 65.80
15 | 空中行專/商專 | 4 | 0.22 | 0.22 | 66.01
16 | 空中大學 | 4 | 0.22 | 0.22 | 66.23
17 | 軍警官校/軍警官大學 | 1 | 0.05 | 0.05 | 66.29
18 | 技術學院、科大 | 195 | 10.60 | 10.62 | 76.91
19 | 大學 | 290 | 15.77 | 15.80 | 92.70
20 | 碩士 | 115 | 6.25 | 6.26 | 98.97
21 | 博士 | 18 | 0.98 | 0.98 | 99.95
22 | 其他，請說明 | 1 | 0.05 | 0.05 | 100.00
<NA> | <NA> | 3 | 0.16 | <NA> | <NA>plot_frq(homework$a13, wrap.title=30,
sort.frq = "none", geom.colors = "pink", coord.flip = T)
#性別學歷
library(sjPlot)
library(sjlabelled)
frq(homework$a1)a1 (x) <categorical>
# total N=1839 valid N=1839 mean=1.58 sd=0.49
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------
1 | 男 | 781 | 42.47 | 42.47 | 42.47
2 | 女 | 1058 | 57.53 | 57.53 | 100.00
<NA> | <NA> | 0 | 0.00 | <NA> | <NA>plot_grpfrq(homework$a13, homework$a1, coord.flip = T)
#工作與收入
#個人每月收入
#□(01)無收入(例如:為家庭事業工作，但沒有領薪水) □(02)1 萬元以下
#□(03)1-2 萬元以下 □(04)2-3 萬元以下□(05)3-4 萬元以下 □(06)4-5 萬元以下 □(07)5-6 萬元以下
#□(08)6-7 萬元以下□(09)7-8 萬元以下□(10)8-9 萬元以下 □(11)9-10 萬元以下
#□(12)10-11 萬元以下 □(13)11-12 萬元以下□(14)12-13 萬元以下 □(15)13-14 萬元以下 □(16)14-15 萬元以下
#□ (17)15-16 萬元以下 □(18)16-17 萬元以下 □(19)17-18 萬元以下□ (20)18-19 萬元以下 □(21)19-20 萬元以下
#□(22)20-30 萬元以下23)30 萬元以上
frq(homework$h18)h18 (x) <categorical>
# total N=1839 valid N=1685 mean=4.55 sd=3.19
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------------------------------------------
1 | 無收入(例如：為家庭事業工作，但沒有領薪水) | 219 | 11.91 | 13.00 | 13.00
2 | 1萬元以下 | 240 | 13.05 | 14.24 | 27.24
3 | 1-2萬元以下 | 206 | 11.20 | 12.23 | 39.47
4 | 2-3萬元以下 | 301 | 16.37 | 17.86 | 57.33
5 | 3-4萬元以下 | 248 | 13.49 | 14.72 | 72.05
6 | 4-5萬元以下 | 169 | 9.19 | 10.03 | 82.08
7 | 5-6萬元以下 | 112 | 6.09 | 6.65 | 88.72
8 | 6-7萬元以下 | 63 | 3.43 | 3.74 | 92.46
9 | 7-8萬元以下 | 30 | 1.63 | 1.78 | 94.24
10 | 8-9萬元以下 | 18 | 0.98 | 1.07 | 95.31
11 | 9-10萬元以下 | 17 | 0.92 | 1.01 | 96.32
12 | 10-11萬元以下 | 17 | 0.92 | 1.01 | 97.33
13 | 11-12萬元以下 | 9 | 0.49 | 0.53 | 97.86
14 | 12-13萬元以下 | 3 | 0.16 | 0.18 | 98.04
15 | 13-14萬元以下 | 6 | 0.33 | 0.36 | 98.40
16 | 14-15萬元以下 | 4 | 0.22 | 0.24 | 98.64
17 | 15-16萬元以下 | 6 | 0.33 | 0.36 | 98.99
18 | 16-17萬元以下 | 2 | 0.11 | 0.12 | 99.11
19 | 17-18萬元以下 | 1 | 0.05 | 0.06 | 99.17
20 | 18-19萬元以下 | 4 | 0.22 | 0.24 | 99.41
21 | 19-20萬元以下 | 3 | 0.16 | 0.18 | 99.58
22 | 20-30萬元以下 | 3 | 0.16 | 0.18 | 99.76
23 | 30萬元以上 | 4 | 0.22 | 0.24 | 100.00
<NA> | <NA> | 154 | 8.37 | <NA> | <NA>plot_frq(homework$h18, sort.frq= "none", coord.flip = T)
#全家每月收入
#□(01)無收入(例如:為家庭事業工作，但沒有領薪水)□(02)1 萬元以下
#□(03)1-2 萬元以下 □(04)2-3 萬元以下 □(05)3-4 萬元以下
#□(06)4-5 萬元以下 □(07)5-6 萬元以下 □(08)6-7 萬元以下
#□(09)7-8 萬元以下 □(10)8-9 萬元以下 □(11)9-10 萬元以下
#□(12)10-11 萬元以下 □(13)11-12 萬元以下 □(14)12-13 萬元以下
#□(15)13-14 萬元以下 □(16)14-15 萬元以下 □(17)15-16 萬元以下
#□(18)16-17 萬元以下 □(19)17-18 萬元以下 □(20)18-19 萬元以下
#□(21)19-20 萬元以下 □(22)20-30 萬元以下 □(23)30 萬元以上
plot_frq(homework$h19, sort.frq= "none", coord.flip = T)
#政黨偏好
#□(01)國民黨 □(02)民進黨 □(03)新黨
#□(04)親民黨 □(05)台聯 □(06)時代力量
#□(07)台灣民眾黨 □(08)綠黨 □(09)台灣基進
#□(10)無黨籍 □(11)其他，請說明 □(12)泛藍
#□(13)泛綠 □(14)有支持政黨，但不回答
frq(homework$h16)h16 (x) <categorical>
# total N=1839 valid N=1682 mean=8.00 sd=4.51
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------------
1 | 國民黨 | 233 | 12.67 | 13.85 | 13.85
2 | 民進黨 | 282 | 15.33 | 16.77 | 94.77
3 | 新黨 | 3 | 0.16 | 0.18 | 94.95
4 | 親民黨 | 6 | 0.33 | 0.36 | 95.30
5 | 台聯 | 0 | 0.00 | 0.00 | 95.30
6 | 時代力量 | 24 | 1.31 | 1.43 | 96.73
7 | 台灣民眾黨 | 36 | 1.96 | 2.14 | 98.87
8 | 綠黨 | 7 | 0.38 | 0.42 | 99.29
9 | 台灣基進 | 12 | 0.65 | 0.71 | 100.00
10 | 無黨籍 | 234 | 12.72 | 13.91 | 27.76
11 | 其他，請說明 | 674 | 36.65 | 40.07 | 67.84
12 | 泛藍 | 24 | 1.31 | 1.43 | 69.26
13 | 泛綠 | 33 | 1.79 | 1.96 | 71.22
14 | 有支持政黨，但不回答 | 114 | 6.20 | 6.78 | 78.00
<NA> | <NA> | 157 | 8.54 | <NA> | <NA>plot_frq(homework$h16, sort.frq= "none", coord.flip = T)
plot_grpfrq(homework$h16, homework$a1, coord.flip = T)
##環保意識
#請問您外出買東西時，常不常加購購物袋或索取提袋?
#□(01)總是 □(02)經常 □(03)有時 □(04)偶爾 □(05)從不
frq(homework$a16)a16 (x) <categorical>
# total N=1839 valid N=1838 mean=3.84 sd=1.07
Value | Label | N | Raw % | Valid % | Cum. %
----------------------------------------------
1 | 總是 | 70 | 3.81 | 3.81 | 3.81
2 | 經常 | 166 | 9.03 | 9.03 | 12.84
3 | 有時 | 300 | 16.31 | 16.32 | 29.16
4 | 偶爾 | 762 | 41.44 | 41.46 | 70.62
5 | 從不 | 540 | 29.36 | 29.38 | 100.00
<NA> | <NA> | 1 | 0.05 | <NA> | <NA>plot_frq(homework$a16, sort.frq= "none",geom.colors = "red" )
plot_grpfrq(homework$a16, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#請問您用餐時，常不常使用店家所提供的免洗餐具?
#□(01)總是 □(02)經常 □(03)有時 □(04)偶爾 □(05)從不
frq(homework$a17)a17 (x) <categorical>
# total N=1839 valid N=1839 mean=3.24 sd=1.29
Value | Label | N | Raw % | Valid % | Cum. %
----------------------------------------------
1 | 總是 | 220 | 11.96 | 11.96 | 11.96
2 | 經常 | 366 | 19.90 | 19.90 | 31.87
3 | 有時 | 336 | 18.27 | 18.27 | 50.14
4 | 偶爾 | 586 | 31.87 | 31.87 | 82.00
5 | 從不 | 331 | 18.00 | 18.00 | 100.00
<NA> | <NA> | 0 | 0.00 | <NA> | <NA>plot_frq(homework$a17, sort.frq= "none",geom.colors = "red" )
plot_grpfrq(homework$a17, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#請問您在外喝水時，常不常使用瓶裝水或紙杯?
#□(01)總是 □(02)經常 □(03)有時 □(04)偶爾 □(05)從不
frq(homework$a18)a18 (x) <categorical>
# total N=1839 valid N=1839 mean=3.46 sd=1.30
Value | Label | N | Raw % | Valid % | Cum. %
----------------------------------------------
1 | 總是 | 172 | 9.35 | 9.35 | 9.35
2 | 經常 | 342 | 18.60 | 18.60 | 27.95
3 | 有時 | 258 | 14.03 | 14.03 | 41.98
4 | 偶爾 | 611 | 33.22 | 33.22 | 75.20
5 | 從不 | 456 | 24.80 | 24.80 | 100.00
<NA> | <NA> | 0 | 0.00 | <NA> | <NA>plot_frq(homework$a18, sort.frq= "none",geom.colors = "red" )
plot_grpfrq(homework$a18, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#請問您用餐時，常不常以手帕代替面紙或濕紙巾之使用?
#□(01)總是 □(02)經常 □(03)有時 □(04)偶爾 □(05)從不
homework$a1 <- set_label(homework$a1, label="性別")
homework$a19r <- rec(homework$a19, rec="rev",
var.label="請問您用餐時，常不常以手帕代替面紙或濕紙巾之使用?",
val.labels = c("(01)總是 ",
"(02)經常 ",
"(03)有時",
"(04)偶爾", "(05)從不"))
frq(homework$a19r)請問您用餐時，常不常以手帕代替面紙或濕紙巾之使用? (x) <numeric>
# total N=1839 valid N=1839 mean=1.60 sd=1.12
Value | Label | N | Raw % | Valid % | Cum. %
---------------------------------------------------
1 | (01)總是 | 1308 | 71.13 | 71.13 | 71.13
2 | (02)經常 | 236 | 12.83 | 12.83 | 83.96
3 | (03)有時 | 113 | 6.14 | 6.14 | 90.10
4 | (04)偶爾 | 94 | 5.11 | 5.11 | 95.21
5 | (05)從不 | 88 | 4.79 | 4.79 | 100.00
<NA> | <NA> | 0 | 0.00 | <NA> | <NA>plot_frq(homework$a19r, sort.frq= "none",geom.colors = "red")
plot_grpfrq(homework$a19r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#請問您同不同意以下的說法?
##a.紙製的餐具可以回收再利用，對環境是友善的。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意 □(05)非常不同意
library(sjmisc)
homework$a1 <- set_label(homework$a1, label="性別")
homework$a20ar <- rec(homework$a20a, rec="rev",
var.label="紙製的餐具可以回收再利用，對環境是友善的。",
val.labels = c("(01)總是 ",
"(02)經常 ",
"(03)有時",
"(04)偶爾", "(05)從不"))
frq(homework$a20ar)紙製的餐具可以回收再利用，對環境是友善的。 (x) <numeric>
# total N=1839 valid N=1788 mean=3.58 sd=1.00
Value | Label | N | Raw % | Valid % | Cum. %
---------------------------------------------------
1 | (01)總是 | 36 | 1.96 | 2.01 | 2.01
2 | (02)經常 | 388 | 21.10 | 21.70 | 23.71
3 | (03)有時 | 52 | 2.83 | 2.91 | 26.62
4 | (04)偶爾 | 1124 | 61.12 | 62.86 | 89.49
5 | (05)從不 | 188 | 10.22 | 10.51 | 100.00
<NA> | <NA> | 51 | 2.77 | <NA> | <NA>plot_frq(homework$a20ar, sort.frq= "none",geom.colors = "red")
plot_grpfrq(homework$a20ar, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##b.有回收標章的塑膠製餐具可以回收再利用，對環境是友善的。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意 □(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$a20br <- rec(homework$a20b, rec="rev",
var.label="有回收標章的塑膠製餐具可以回收再利用，對環境是友善的。",
val.labels = c("(01)總是 ",
"(02)經常 ",
"(03)有時",
"(04)偶爾", "(05)從不"))
frq(homework$a20br)有回收標章的塑膠製餐具可以回收再利用，對環境是友善的。 (x) <numeric>
# total N=1839 valid N=1771 mean=3.74 sd=0.90
Value | Label | N | Raw % | Valid % | Cum. %
---------------------------------------------------
1 | (01)總是 | 22 | 1.20 | 1.24 | 1.24
2 | (02)經常 | 284 | 15.44 | 16.04 | 17.28
3 | (03)有時 | 29 | 1.58 | 1.64 | 18.92
4 | (04)偶爾 | 1238 | 67.32 | 69.90 | 88.82
5 | (05)從不 | 198 | 10.77 | 11.18 | 100.00
<NA> | <NA> | 68 | 3.70 | <NA> | <NA>plot_frq(homework$a20br, sort.frq= "none",geom.colors = "red")
plot_grpfrq(homework$a20br, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##c.塑膠若可以分解，就不會成為萬年塑膠，對環境是友善的。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$a20cr <- rec(homework$a20c, rec="rev",
var.label="塑膠若可以分解，就不會成為萬年塑膠，對環境是友善的。",
val.labels = c("(01)總是 ",
"(02)經常 ",
"(03)有時",
"(04)偶爾", "(05)從不"))
frq(homework$a20cr)塑膠若可以分解，就不會成為萬年塑膠，對環境是友善的。 (x) <numeric>
# total N=1839 valid N=1773 mean=3.71 sd=0.92
Value | Label | N | Raw % | Valid % | Cum. %
---------------------------------------------------
1 | (01)總是 | 25 | 1.36 | 1.41 | 1.41
2 | (02)經常 | 299 | 16.26 | 16.86 | 18.27
3 | (03)有時 | 27 | 1.47 | 1.52 | 19.80
4 | (04)偶爾 | 1235 | 67.16 | 69.66 | 89.45
5 | (05)從不 | 187 | 10.17 | 10.55 | 100.00
<NA> | <NA> | 66 | 3.59 | <NA> | <NA>plot_frq(homework$a20cr, sort.frq= "none",geom.colors = "red")
plot_grpfrq(homework$a20cr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#一般來說，您對環境問題的關心程度為何?請從 1 到 5 當中選一項，1 指「一點也不關心」; 5 指「非常關心」。
homework$a1 <- set_label(homework$a1, label="性別")
homework$b6r <- rec(homework$b6, rec="rev",
var.label="一般來說，您對環境問題的關心程度為何?",
val.labels = c("(01)總是 ",
"(02)經常 ",
"(03)有時",
"(04)偶爾", "(05)從不"))
frq(homework$b6r)一般來說，您對環境問題的關心程度為何? (x) <numeric>
# total N=1839 valid N=1828 mean=2.13 sd=0.94
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------
1 | (01)總是 | 538 | 29.26 | 29.43 | 29.43
2 | (02)經常 | 651 | 35.40 | 35.61 | 65.04
3 | (03)有時 | 540 | 29.36 | 29.54 | 94.58
4 | (04)偶爾 | 64 | 3.48 | 3.50 | 98.09
5 | (05)從不 | 35 | 1.90 | 1.91 | 100.00
<NA> | <NA> | 11 | 0.60 | <NA> | <NA>plot_frq(homework$b6r, sort.frq= "none",geom.colors = "red")
plot_grpfrq(homework$b6r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#請問您認為對台灣整體來說最重要的環境問題是哪一項?
#□(01)空氣污染 □(02)農藥和化學肥料 □(03)水資源短缺
#□(04)水質污染 □(05)核廢料 □(06)家庭廢棄物
#□(07)氣候變遷 □(08)基因改造食品 □(09)自然資源耗盡 □(10)以上皆非
homework$a1 <- set_label(homework$a1, label="性別")
homework$b7r <- rec(homework$b7, rec="rev",
var.label="請問您認為對台灣整體來說最重要的環境問題是哪一項?")
frq(homework$b7r)請問您認為對台灣整體來說最重要的環境問題是哪一項? (x) <numeric>
# total N=1839 valid N=1711 mean=7.69 sd=2.79
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 以上皆非 | 11 | 0.60 | 0.64 | 0.64
2 | 自然資源耗盡 | 99 | 5.38 | 5.79 | 6.43
3 | 基因改造食品 | 47 | 2.56 | 2.75 | 9.18
4 | 氣候變遷 | 187 | 10.17 | 10.93 | 20.11
5 | 家庭廢棄物 | 136 | 7.40 | 7.95 | 28.05
6 | 核廢料 | 81 | 4.40 | 4.73 | 32.79
7 | 水質污染 | 129 | 7.01 | 7.54 | 40.33
8 | 水資源短缺 | 60 | 3.26 | 3.51 | 43.83
9 | 農藥和化學肥料 | 101 | 5.49 | 5.90 | 49.74
10 | 空氣污染 | 860 | 46.76 | 50.26 | 100.00
<NA> | <NA> | 128 | 6.96 | <NA> | <NA>plot_frq(homework$b7r, sort.frq= "none",geom.colors = "red")
plot_grpfrq(homework$b7r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#關於氣候變遷有很多不同的說法;請問您比較同意哪一種說法?
#□(01) 沒有氣候變遷 □(02)主要是自然過程的影響 □
#(03)自然過程和人類行為都有影響 □(04)主要受到人類行為的影響 □(08)無法選擇
homework$a1 <- set_label(homework$a1, label="性別")
homework$b8r <- rec(homework$b8, rec="rev",
var.label="請問您認為對台灣整體來說最重要的環境問題是哪一項?")
frq(homework$b8r)請問您認為對台灣整體來說最重要的環境問題是哪一項? (x) <numeric>
# total N=1839 valid N=1755 mean=1.65 sd=0.62
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------------------
1 | 主要受到人類行為的影響 | 754 | 41.00 | 42.96 | 42.96
2 | 自然過程和人類行為都有影響 | 876 | 47.63 | 49.91 | 92.88
3 | 主要是自然過程的影響 | 119 | 6.47 | 6.78 | 99.66
4 | 沒有氣候變遷(跳答b10a) | 6 | 0.33 | 0.34 | 100.00
<NA> | <NA> | 84 | 4.57 | <NA> | <NA>plot_frq(homework$b8r, sort.frq= "none", coord.flip = T, geom.colors = "red")
plot_grpfrq(homework$b8r, homework$a1, coord.flip = T, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#請問您認為氣候變遷對全球會有怎麼樣的影響?從 0 分到 10 分之間，您會給幾分?其中 0 分代表“非常壞"，10 分代表“非常好"。
homework$a1 <- set_label(homework$a1, label="性別")
homework$b9ar <- rec(homework$b9a, rec="rev",
var.label="請問您認為氣候變遷對全球會有怎麼樣的影響?")
frq(homework$b9ar)請問您認為氣候變遷對全球會有怎麼樣的影響? (x) <numeric>
# total N=1839 valid N=1733 mean=7.89 sd=2.08
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------
0 | 10 非常好 | 5 | 0.27 | 0.29 | 0.29
1 | 9 | 3 | 0.16 | 0.17 | 0.46
2 | 8 | 18 | 0.98 | 1.04 | 1.50
3 | 7 | 37 | 2.01 | 2.14 | 3.64
4 | 6 | 36 | 1.96 | 2.08 | 5.71
5 | 5 | 184 | 10.01 | 10.62 | 16.33
6 | 4 | 104 | 5.66 | 6.00 | 22.33
7 | 3 | 302 | 16.42 | 17.43 | 39.76
8 | 2 | 266 | 14.46 | 15.35 | 55.11
9 | 1 | 185 | 10.06 | 10.68 | 65.78
10 | 0 非常壞 | 593 | 32.25 | 34.22 | 100.00
<NA> | <NA> | 106 | 5.76 | <NA> | <NA>plot_frq(homework$b9ar, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b9ar, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#請問您認為氣候變遷對臺灣會有怎麼樣的影響?從 0 分到 10 分之間，您會給幾分?其中 0分代表“非常壞"，10 分代表“非常好"。
homework$a1 <- set_label(homework$a1, label="性別")
homework$b9br <- rec(homework$b9b, rec="rev",
var.label="請問您認為氣候變遷對全球會有怎麼樣的影響?")
frq(homework$b9br)請問您認為氣候變遷對全球會有怎麼樣的影響? (x) <numeric>
# total N=1839 valid N=1747 mean=7.49 sd=2.19
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------
0 | 10 非常好 | 7 | 0.38 | 0.40 | 0.40
1 | 9 | 4 | 0.22 | 0.23 | 0.63
2 | 8 | 24 | 1.31 | 1.37 | 2.00
3 | 7 | 34 | 1.85 | 1.95 | 3.95
4 | 6 | 64 | 3.48 | 3.66 | 7.61
5 | 5 | 258 | 14.03 | 14.77 | 22.38
6 | 4 | 159 | 8.65 | 9.10 | 31.48
7 | 3 | 310 | 16.86 | 17.74 | 49.23
8 | 2 | 225 | 12.23 | 12.88 | 62.11
9 | 1 | 154 | 8.37 | 8.82 | 70.92
10 | 0 非常壞 | 508 | 27.62 | 29.08 | 100.00
<NA> | <NA> | 92 | 5.00 | <NA> | <NA>plot_frq(homework$b9br, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b9br, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#請問您同不同意以下說法?
##a. 現代科學可以解決環境問題，而且對我們的生活方式不會改變太多。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$b10ar <- rec(homework$b10a, rec="rev",
var.label="現代科學可以解決環境問題，而且對我們的生活方式不會改變太多。")
frq(homework$b10ar)現代科學可以解決環境問題，而且對我們的生活方式不會改變太多。 (x) <numeric>
# total N=1839 valid N=1707 mean=2.80 sd=1.04
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 非常不同意 | 87 | 4.73 | 5.10 | 5.10
2 | 不同意 | 847 | 46.06 | 49.62 | 54.72
3 | 無所謂同不同意 | 120 | 6.53 | 7.03 | 61.75
4 | 同意 | 629 | 34.20 | 36.85 | 98.59
5 | 非常同意 | 24 | 1.31 | 1.41 | 100.00
<NA> | <NA> | 132 | 7.18 | <NA> | <NA>plot_frq(homework$b10ar, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b10ar, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##b. 我們太過擔心未來的環境問題，卻不夠關切眼前的工作及物價。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$b10br <- rec(homework$b10b, rec="rev",
var.label="我們太過擔心未來的環境問題，卻不夠關切眼前的工作及物價。")
frq(homework$b10br)我們太過擔心未來的環境問題，卻不夠關切眼前的工作及物價。 (x) <numeric>
# total N=1839 valid N=1732 mean=2.97 sd=1.05
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 非常不同意 | 42 | 2.28 | 2.42 | 2.42
2 | 不同意 | 791 | 43.01 | 45.67 | 48.09
3 | 無所謂同不同意 | 138 | 7.50 | 7.97 | 56.06
4 | 同意 | 700 | 38.06 | 40.42 | 96.48
5 | 非常同意 | 61 | 3.32 | 3.52 | 100.00
<NA> | <NA> | 107 | 5.82 | <NA> | <NA>plot_frq(homework$b10br, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b10br, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##c. 在現代生活中，我們所做的事幾乎都會對環境造成傷害。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$b10cr <- rec(homework$b10c, rec="rev",
var.label="在現代生活中，我們所做的事幾乎都會對環境造成傷害。")
frq(homework$b10cr)在現代生活中，我們所做的事幾乎都會對環境造成傷害。 (x) <numeric>
# total N=1839 valid N=1757 mean=3.67 sd=0.88
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 5 | 0.27 | 0.28 | 0.28
2 | 不同意 | 312 | 16.97 | 17.76 | 18.04
3 | 無所謂同不同意 | 100 | 5.44 | 5.69 | 23.73
4 | 同意 | 1176 | 63.95 | 66.93 | 90.67
5 | 非常同意 | 164 | 8.92 | 9.33 | 100.00
<NA> | <NA> | 82 | 4.46 | <NA> | <NA>plot_frq(homework$b10cr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b10cr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##d. 人們太過擔心人類的進步會傷害環境。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□ㄥ(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$b10dr <- rec(homework$b10d, rec="rev",
var.label="人們太過擔心人類的進步會傷害環境。")
frq(homework$b10dr)人們太過擔心人類的進步會傷害環境。 (x) <numeric>
# total N=1839 valid N=1727 mean=3.25 sd=1.01
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 非常不同意 | 22 | 1.20 | 1.27 | 1.27
2 | 不同意 | 589 | 32.03 | 34.11 | 35.38
3 | 無所謂同不同意 | 123 | 6.69 | 7.12 | 42.50
4 | 同意 | 928 | 50.46 | 53.73 | 96.24
5 | 非常同意 | 65 | 3.53 | 3.76 | 100.00
<NA> | <NA> | 112 | 6.09 | <NA> | <NA>plot_frq(homework$b10dr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b10dr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##e. 台灣需要經濟成長來保護環境。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$b10er <- rec(homework$b10e, rec="rev",
var.label="台灣需要經濟成長來保護環境。")
frq(homework$b10er)台灣需要經濟成長來保護環境。 (x) <numeric>
# total N=1839 valid N=1750 mean=3.27 sd=1.01
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 非常不同意 | 27 | 1.47 | 1.54 | 1.54
2 | 不同意 | 570 | 31.00 | 32.57 | 34.11
3 | 無所謂同不同意 | 132 | 7.18 | 7.54 | 41.66
4 | 同意 | 954 | 51.88 | 54.51 | 96.17
5 | 非常同意 | 67 | 3.64 | 3.83 | 100.00
<NA> | <NA> | 89 | 4.84 | <NA> | <NA>plot_frq(homework$b10er, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b10er, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##f. 經濟成長總是會傷害環境。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$b10fr <- rec(homework$b10f, rec="rev",
var.label="經濟成長總是會傷害環境。")
frq(homework$b10fr)經濟成長總是會傷害環境。 (x) <numeric>
# total N=1839 valid N=1757 mean=3.51 sd=0.95
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 11 | 0.60 | 0.63 | 0.63
2 | 不同意 | 424 | 23.06 | 24.13 | 24.76
3 | 無所謂同不同意 | 106 | 5.76 | 6.03 | 30.79
4 | 同意 | 1092 | 59.38 | 62.15 | 92.94
5 | 非常同意 | 124 | 6.74 | 7.06 | 100.00
<NA> | <NA> | 82 | 4.46 | <NA> | <NA>plot_frq(homework$b10fr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b10fr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#B11
##a. 請問您願不願意為了保護環境而支付高出很多的物價?
##□(01)很願意 □(02)還算願意 □(03)無所謂願不願意 □(04)不太願意 □(05)很不願意
homework$a1 <- set_label(homework$a1, label="性別")
homework$b11ar <- rec(homework$b11a, rec="rev",
var.label="請問您願不願意為了保護環境而支付高出很多的物價?")
frq(homework$b11ar)請問您願不願意為了保護環境而支付高出很多的物價? (x) <numeric>
# total N=1839 valid N=1805 mean=2.92 sd=1.17
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 很不願意 | 189 | 10.28 | 10.47 | 10.47
2 | 不太願意 | 659 | 35.83 | 36.51 | 46.98
3 | 無所謂願不願意 | 131 | 7.12 | 7.26 | 54.24
4 | 還算願意 | 753 | 40.95 | 41.72 | 95.96
5 | 很願意 | 73 | 3.97 | 4.04 | 100.00
<NA> | <NA> | 34 | 1.85 | <NA> | <NA>plot_frq(homework$b11ar, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b11ar, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##b. 請問您願不願意為了保護環境而支付高出很多的稅?
##□(01)很願意 □(02)還算願意 □(03)無所謂願不願意 □(04)不太願意 □(05)很不願意
homework$a1 <- set_label(homework$a1, label="性別")
homework$b11br <- rec(homework$b11b, rec="rev",
var.label="請問您願不願意為了保護環境而支付高出很多的稅?")
frq(homework$b11br)請問您願不願意為了保護環境而支付高出很多的稅? (x) <numeric>
# total N=1839 valid N=1807 mean=2.64 sd=1.15
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 很不願意 | 274 | 14.90 | 15.16 | 15.16
2 | 不太願意 | 768 | 41.76 | 42.50 | 57.66
3 | 無所謂願不願意 | 143 | 7.78 | 7.91 | 65.58
4 | 還算願意 | 578 | 31.43 | 31.99 | 97.57
5 | 很願意 | 44 | 2.39 | 2.43 | 100.00
<NA> | <NA> | 32 | 1.74 | <NA> | <NA>plot_frq(homework$b11br, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b11br, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##c. 請問您願不願意為了保護環境而降低生活水準?
##□(01)很願意 □(02)還算願意 □(03)無所謂願不願意 □(04)不太願意 □(05)很不願意
homework$a1 <- set_label(homework$a1, label="性別")
homework$b11cr <- rec(homework$b11c, rec="rev",
var.label="請問您願不願意為了保護環境而降低生活水準?")
frq(homework$b11cr)請問您願不願意為了保護環境而降低生活水準? (x) <numeric>
# total N=1839 valid N=1824 mean=3.46 sd=1.10
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 很不願意 | 61 | 3.32 | 3.34 | 3.34
2 | 不太願意 | 462 | 25.12 | 25.33 | 28.67
3 | 無所謂願不願意 | 105 | 5.71 | 5.76 | 34.43
4 | 還算願意 | 973 | 52.91 | 53.34 | 87.77
5 | 很願意 | 223 | 12.13 | 12.23 | 100.00
<NA> | <NA> | 15 | 0.82 | <NA> | <NA>plot_frq(homework$b11cr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b11cr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##d. 請問您願不願意減少台灣的自然保護區，讓這些地方可以開放，進行經濟活動?
##□(01)很願意 □(02)還算願意 □(03)無所謂願不願意 □(04)不太願意 □(05)很不願意
homework$a1 <- set_label(homework$a1, label="性別")
homework$b11dr <- rec(homework$b11d, rec="rev",
var.label="請問您願不願意減少台灣的自然保護區，讓這些地方可以開放，進行經濟活動?")
frq(homework$b11dr)請問您願不願意減少台灣的自然保護區，讓這些地方可以開放，進行經濟活動? (x) <numeric>
# total N=1839 valid N=1722 mean=2.23 sd=1.16
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 很不願意 | 510 | 27.73 | 29.62 | 29.62
2 | 不太願意 | 742 | 40.35 | 43.09 | 72.71
3 | 無所謂願不願意 | 73 | 3.97 | 4.24 | 76.95
4 | 還算願意 | 350 | 19.03 | 20.33 | 97.27
5 | 很願意 | 47 | 2.56 | 2.73 | 100.00
<NA> | <NA> | 117 | 6.36 | <NA> | <NA>plot_frq(homework$b11dr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b11dr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
plot_grpfrq(homework$b11dr, homework$a1, geom.colors = "green", bar.pos = "stack")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#請問您同不同意以下說法?
##a. 對您而言，要為環境做些事太困難。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$b12ar <- rec(homework$b12a, rec="rev",
var.label="對您而言，要為環境做些事太困難。")
frq(homework$b12ar)對您而言，要為環境做些事太困難。 (x) <numeric>
# total N=1839 valid N=1809 mean=2.38 sd=0.89
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 126 | 6.85 | 6.97 | 6.97
2 | 不同意 | 1231 | 66.94 | 68.05 | 75.01
3 | 無所謂同不同意 | 118 | 6.42 | 6.52 | 81.54
4 | 同意 | 315 | 17.13 | 17.41 | 98.95
5 | 非常同意 | 19 | 1.03 | 1.05 | 100.00
<NA> | <NA> | 30 | 1.63 | <NA> | <NA>plot_frq(homework$b12ar, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b12ar, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##b. 就算要多花些金錢或時間，您也願意為環境做些正確的事。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$b12br <- rec(homework$b12b, rec="rev",
var.label="就算要多花些金錢或時間，您也願意為環境做些正確的事。")
frq(homework$b12br)就算要多花些金錢或時間，您也願意為環境做些正確的事。 (x) <numeric>
# total N=1839 valid N=1803 mean=3.87 sd=0.68
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 5 | 0.27 | 0.28 | 0.28
2 | 不同意 | 134 | 7.29 | 7.43 | 7.71
3 | 無所謂同不同意 | 113 | 6.14 | 6.27 | 13.98
4 | 同意 | 1383 | 75.20 | 76.71 | 90.68
5 | 非常同意 | 168 | 9.14 | 9.32 | 100.00
<NA> | <NA> | 36 | 1.96 | <NA> | <NA>plot_frq(homework$b12br, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b12br, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##c. 生活中有比保護環境更重要的事。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$b12cr <- rec(homework$b12c, rec="rev",
var.label="生活中有比保護環境更重要的事。")
frq(homework$b12cr)生活中有比保護環境更重要的事。 (x) <numeric>
# total N=1839 valid N=1778 mean=3.51 sd=0.89
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 7 | 0.38 | 0.39 | 0.39
2 | 不同意 | 377 | 20.50 | 21.20 | 21.60
3 | 無所謂同不同意 | 170 | 9.24 | 9.56 | 31.16
4 | 同意 | 1147 | 62.37 | 64.51 | 95.67
5 | 非常同意 | 77 | 4.19 | 4.33 | 100.00
<NA> | <NA> | 61 | 3.32 | <NA> | <NA>plot_frq(homework$b12cr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b12cr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##d. 除非大家都一起為環境盡力，否則您一個人做沒有用。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$b12dr <- rec(homework$b12d, rec="rev",
var.label="除非大家都一起為環境盡力，否則您一個人做沒有用。")
frq(homework$b12dr)除非大家都一起為環境盡力，否則您一個人做沒有用。 (x) <numeric>
# total N=1839 valid N=1826 mean=3.75 sd=1.05
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 35 | 1.90 | 1.92 | 1.92
2 | 不同意 | 354 | 19.25 | 19.39 | 21.30
3 | 無所謂同不同意 | 31 | 1.69 | 1.70 | 23.00
4 | 同意 | 1024 | 55.68 | 56.08 | 79.08
5 | 非常同意 | 382 | 20.77 | 20.92 | 100.00
<NA> | <NA> | 13 | 0.71 | <NA> | <NA>plot_frq(homework$b12dr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b12dr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##e. 許多環境危機的報導或主張，都是過度誇大。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$b12er <- rec(homework$b12e, rec="rev",
var.label="許多環境危機的報導或主張，都是過度誇大。")
frq(homework$b12er)許多環境危機的報導或主張，都是過度誇大。 (x) <numeric>
# total N=1839 valid N=1713 mean=2.89 sd=1.05
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 非常不同意 | 57 | 3.10 | 3.33 | 3.33
2 | 不同意 | 827 | 44.97 | 48.28 | 51.61
3 | 無所謂同不同意 | 118 | 6.42 | 6.89 | 58.49
4 | 同意 | 667 | 36.27 | 38.94 | 97.43
5 | 非常同意 | 44 | 2.39 | 2.57 | 100.00
<NA> | <NA> | 126 | 6.85 | <NA> | <NA>plot_frq(homework$b12er, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b12er, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##f. 您很難知道自己生活的方式是對環境有幫助還是有傷害。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$b12fr <- rec(homework$b12f, rec="rev",
var.label="您很難知道自己生活的方式是對環境有幫助還是有傷害。")
frq(homework$b12fr)您很難知道自己生活的方式是對環境有幫助還是有傷害。 (x) <numeric>
# total N=1839 valid N=1772 mean=2.84 sd=1.01
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 非常不同意 | 42 | 2.28 | 2.37 | 2.37
2 | 不同意 | 928 | 50.46 | 52.37 | 54.74
3 | 無所謂同不同意 | 104 | 5.66 | 5.87 | 60.61
4 | 同意 | 675 | 36.70 | 38.09 | 98.70
5 | 非常同意 | 23 | 1.25 | 1.30 | 100.00
<NA> | <NA> | 67 | 3.64 | <NA> | <NA>plot_frq(homework$b12fr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b12fr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##g. 環境問題對您的日常生活有直接影響。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$b12gr <- rec(homework$b12g, rec="rev",
var.label="您很難知道自己生活的方式是對環境有幫助還是有傷害。")
frq(homework$b12gr)您很難知道自己生活的方式是對環境有幫助還是有傷害。 (x) <numeric>
# total N=1839 valid N=1798 mean=3.80 sd=0.82
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 7 | 0.38 | 0.39 | 0.39
2 | 不同意 | 233 | 12.67 | 12.96 | 13.35
3 | 無所謂同不同意 | 73 | 3.97 | 4.06 | 17.41
4 | 同意 | 1281 | 69.66 | 71.25 | 88.65
5 | 非常同意 | 204 | 11.09 | 11.35 | 100.00
<NA> | <NA> | 41 | 2.23 | <NA> | <NA>plot_frq(homework$b12gr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b12gr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#B13
##a. 一般而言，請問您覺得汽車造成的空氣污染對環境來說危不危險?
##□(01)極度危險 □(02)非常危險 □(03)有點危險 □(04)不太危險 □(05)根本沒有危險
homework$a1 <- set_label(homework$a1, label="性別")
homework$b13ar <- rec(homework$b13a, rec="rev",
var.label="一般而言，請問您覺得汽車造成的空氣污染對環境來說危不危險?")
frq(homework$b13ar)一般而言，請問您覺得汽車造成的空氣污染對環境來說危不危險? (x) <numeric>
# total N=1839 valid N=1805 mean=3.49 sd=0.75
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------------
1 | 根本沒有危險 | 6 | 0.33 | 0.33 | 0.33
2 | 不太危險 | 110 | 5.98 | 6.09 | 6.43
3 | 有點危險 | 836 | 45.46 | 46.32 | 52.74
4 | 非常危險 | 700 | 38.06 | 38.78 | 91.52
5 | 極度危險 | 153 | 8.32 | 8.48 | 100.00
<NA> | <NA> | 34 | 1.85 | <NA> | <NA>plot_frq(homework$b13ar, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b13ar, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##b. 一般而言，請問您覺得工業造成的空氣污染對環境來說危不危險?
##□(01)極度危險 □(02)非常危險 □(03)有點危險 □(04)不太危險 □(05)根本沒有危險
homework$a1 <- set_label(homework$a1, label="性別")
homework$b13br <- rec(homework$b13b, rec="rev",
var.label="一般而言，請問您覺得工業造成的空氣污染對環境來說危不危險?")
frq(homework$b13br)一般而言，請問您覺得工業造成的空氣污染對環境來說危不危險? (x) <numeric>
# total N=1839 valid N=1812 mean=4.23 sd=0.68
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------------
1 | 根本沒有危險 | 1 | 0.05 | 0.06 | 0.06
2 | 不太危險 | 12 | 0.65 | 0.66 | 0.72
3 | 有點危險 | 219 | 11.91 | 12.09 | 12.80
4 | 非常危險 | 916 | 49.81 | 50.55 | 63.36
5 | 極度危險 | 664 | 36.11 | 36.64 | 100.00
<NA> | <NA> | 27 | 1.47 | <NA> | <NA>plot_frq(homework$b13br, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b13br, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##c. 請問您覺得農藥和化學肥料對環境來說危不危險?
##□(01)極度危險 □(02)非常危險 □(03)有點危險 □(04)不太危險 □(05)根本沒有危險
homework$a1 <- set_label(homework$a1, label="性別")
homework$b13cr <- rec(homework$b13c, rec="rev",
var.label="請問您覺得農藥和化學肥料對環境來說危不危險?")
frq(homework$b13cr)請問您覺得農藥和化學肥料對環境來說危不危險? (x) <numeric>
# total N=1839 valid N=1803 mean=3.87 sd=0.84
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------------
1 | 根本沒有危險 | 13 | 0.71 | 0.72 | 0.72
2 | 不太危險 | 77 | 4.19 | 4.27 | 4.99
3 | 有點危險 | 460 | 25.01 | 25.51 | 30.50
4 | 非常危險 | 836 | 45.46 | 46.37 | 76.87
5 | 極度危險 | 417 | 22.68 | 23.13 | 100.00
<NA> | <NA> | 36 | 1.96 | <NA> | <NA>plot_frq(homework$b13cr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b13cr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##d. 請問您覺得台灣的河流和湖泊的污染對環境來說危不危險?
##□(01)極度危險 □(02)非常危險 □(03)有點危險 □(04)不太危險 □(05)根本沒有危險
homework$a1 <- set_label(homework$a1, label="性別")
homework$b13dr <- rec(homework$b13d, rec="rev",
var.label="請問您覺得台灣的河流和湖泊的污染對環境來說危不危險?")
frq(homework$b13dr)請問您覺得台灣的河流和湖泊的污染對環境來說危不危險? (x) <numeric>
# total N=1839 valid N=1777 mean=3.91 sd=0.75
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------------
1 | 根本沒有危險 | 5 | 0.27 | 0.28 | 0.28
2 | 不太危險 | 43 | 2.34 | 2.42 | 2.70
3 | 有點危險 | 423 | 23.00 | 23.80 | 26.51
4 | 非常危險 | 937 | 50.95 | 52.73 | 79.23
5 | 極度危險 | 369 | 20.07 | 20.77 | 100.00
<NA> | <NA> | 62 | 3.37 | <NA> | <NA>plot_frq(homework$b13dr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b13dr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##e. 一般而言，請問您覺得由氣候變遷所造成的全球溫度上升對環境來說危不危險?
##□(01)極度危險 □(02)非常危險 □(03)有點危險 □(04)不太危險 □(05)根本沒有危險
homework$a1 <- set_label(homework$a1, label="性別")
homework$b13er <- rec(homework$b13e, rec="rev",
var.label="一般而言，請問您覺得由氣候變遷所造成的全球溫度上升對環境來說危不危險?")
frq(homework$b13er)一般而言，請問您覺得由氣候變遷所造成的全球溫度上升對環境來說危不危險? (x) <numeric>
# total N=1839 valid N=1765 mean=4.15 sd=0.74
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------------
1 | 根本沒有危險 | 6 | 0.33 | 0.34 | 0.34
2 | 不太危險 | 16 | 0.87 | 0.91 | 1.25
3 | 有點危險 | 281 | 15.28 | 15.92 | 17.17
4 | 非常危險 | 868 | 47.20 | 49.18 | 66.35
5 | 極度危險 | 594 | 32.30 | 33.65 | 100.00
<NA> | <NA> | 74 | 4.02 | <NA> | <NA>plot_frq(homework$b13er, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b13er, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##f. 請問您覺得某些農作物的基因改造對環境來說危不危險?
##□(01)極度危險 □(02)非常危險 □(03)有點危險 □(04)不太危險 □(05)根本沒有危險
homework$a1 <- set_label(homework$a1, label="性別")
homework$b13fr <- rec(homework$b13f, rec="rev",
var.label="請問您覺得某些農作物的基因改造對環境來說危不危險?")
frq(homework$b13fr)請問您覺得某些農作物的基因改造對環境來說危不危險? (x) <numeric>
# total N=1839 valid N=1610 mean=3.45 sd=0.91
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------------
1 | 根本沒有危險 | 33 | 1.79 | 2.05 | 2.05
2 | 不太危險 | 180 | 9.79 | 11.18 | 13.23
3 | 有點危險 | 619 | 33.66 | 38.45 | 51.68
4 | 非常危險 | 589 | 32.03 | 36.58 | 88.26
5 | 極度危險 | 189 | 10.28 | 11.74 | 100.00
<NA> | <NA> | 229 | 12.45 | <NA> | <NA>plot_frq(homework$b13fr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b13fr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##g. 請問您覺得核能電廠對環境來說危不危險?
##□(01)極度危險 □(02)非常危險 □(03)有點危險 □(04)不太危險 □(05)根本沒有危險
homework$a1 <- set_label(homework$a1, label="性別")
homework$b13gr <- rec(homework$b13g, rec="rev",
var.label="請問您覺得核能電廠對環境來說危不危險?")
frq(homework$b13gr)請問您覺得核能電廠對環境來說危不危險? (x) <numeric>
# total N=1839 valid N=1657 mean=3.59 sd=1.04
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------------
1 | 根本沒有危險 | 36 | 1.96 | 2.17 | 2.17
2 | 不太危險 | 218 | 11.85 | 13.16 | 15.33
3 | 有點危險 | 515 | 28.00 | 31.08 | 46.41
4 | 非常危險 | 512 | 27.84 | 30.90 | 77.31
5 | 極度危險 | 376 | 20.45 | 22.69 | 100.00
<NA> | <NA> | 182 | 9.90 | <NA> | <NA>plot_frq(homework$b13gr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b13gr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#B14
##a. 請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法?
##□(01)對於破壞環境的企業處以高額罰金。 □(02)保護環境的企業可以繳比較少的稅。 □(03)對企業提供更多關於保護環境之好處的資訊與教育。
homework$a1 <- set_label(homework$a1, label="性別")
homework$b14ar <- rec(homework$b14a, rec="rev",
var.label="請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法?")
frq(homework$b14ar)請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法? (x) <numeric>
# total N=1839 valid N=1727 mean=2.12 sd=0.86
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------------------------------------
1 | 對企業提供更多關於保護環境之好處的資訊與教育 | 546 | 29.69 | 31.62 | 31.62
2 | 保護環境的企業可以繳比較少的稅 | 421 | 22.89 | 24.38 | 55.99
3 | 對於破壞環境的企業處以高額罰金 | 760 | 41.33 | 44.01 | 100.00
<NA> | <NA> | 112 | 6.09 | <NA> | <NA>plot_frq(homework$b14ar, sort.frq= "none", coord.flip = T, geom.colors = "red")
plot_grpfrq(homework$b14ar, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##b. 請問您認為以下哪一個方法是促使台灣民眾保護環境的最好方法?
##□(01)對於破壞環境的民眾處以高額罰金。□(02)保護環境的民眾可以繳比較少的稅。 □(03)對民眾提供更多關於保護環境之好處的資訊與教育。
homework$a1 <- set_label(homework$a1, label="性別")
homework$b14br <- rec(homework$b14b, rec="rev",
var.label="請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法?")
frq(homework$b14br)請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法? (x) <numeric>
# total N=1839 valid N=1758 mean=1.91 sd=0.90
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------------------------------------
1 | 對民眾提供更多關於保護環境之好處的資訊與教育 | 796 | 43.28 | 45.28 | 45.28
2 | 保護環境的民眾可以繳比較少的稅 | 329 | 17.89 | 18.71 | 63.99
3 | 對於破壞環境的民眾處以高額罰金 | 633 | 34.42 | 36.01 | 100.00
<NA> | <NA> | 81 | 4.40 | <NA> | <NA>plot_frq(homework$b14br, sort.frq= "none", coord.flip = T, geom.colors = "red")
plot_grpfrq(homework$b14br, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#B15. 請問您喜不喜愛到大自然從事戶外活動?
#□(01)一點也不喜愛 □(02)有點喜愛 □(03)還算喜愛 □(04)相當喜愛 □(05)非常喜愛
homework$a1 <- set_label(homework$a1, label="性別")
homework$b15r <- rec(homework$b15, rec="rev",
var.label="請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法?")
frq(homework$b15r)請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法? (x) <numeric>
# total N=1839 valid N=1838 mean=2.50 sd=1.21
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------------
1 | 非常喜愛 | 477 | 25.94 | 25.95 | 25.95
2 | 相當喜愛 | 471 | 25.61 | 25.63 | 51.58
3 | 還算喜愛 | 495 | 26.92 | 26.93 | 78.51
4 | 有點喜愛 | 278 | 15.12 | 15.13 | 93.63
5 | 一點也不喜愛 | 117 | 6.36 | 6.37 | 100.00
<NA> | <NA> | 1 | 0.05 | <NA> | <NA>plot_frq(homework$b15r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b15r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#B16. 在過去 12 個月裡，請問您常不常到大自然從事戶外休閒活動，例如登山、賞鳥、健行等、或是 單純放鬆的自然戶外活動?
#□(01)每天 □(02)一週好幾次 □(03)一個月好幾次 □(04)一年好幾次 □(05)從來沒有
homework$a1 <- set_label(homework$a1, label="性別")
homework$b16r <- rec(homework$b16, rec="rev",
var.label="在過去 12 個月裡，請問您常不常到大自然從事戶外休閒活動，例如登山、賞鳥、健行等、或是 單純放鬆的自然戶外活動?")
frq(homework$b16r)在過去 12 個月裡，請問您常不常到大自然從事戶外休閒活動，例如登山、賞鳥、健行等、或是 單純放鬆的自然戶外活動? (x) <numeric>
# total N=1839 valid N=1835 mean=2.36 sd=0.92
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------------
1 | 從來沒有 | 281 | 15.28 | 15.31 | 15.31
2 | 一年好幾次 | 847 | 46.06 | 46.16 | 61.47
3 | 一個月好幾次 | 505 | 27.46 | 27.52 | 88.99
4 | 一週好幾次 | 162 | 8.81 | 8.83 | 97.82
5 | 每天 | 40 | 2.18 | 2.18 | 100.00
<NA> | <NA> | 4 | 0.22 | <NA> | <NA>plot_frq(homework$b16r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b16r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#B19
##a. 請問您常不常為了資源回收特地對玻璃、鋁罐、塑膠或報紙做分類?
##□(01)總是 □(02)經常 □(03)有時 □(04)從不 □(08)我住的地區沒有資源回收
homework$a1 <- set_label(homework$a1, label="性別")
homework$b19ar <- rec(homework$b19a, rec="rev",
var.label="請問您常不常為了資源回收特地對玻璃、鋁罐、塑膠或報紙做分類?")
frq(homework$b19ar)請問您常不常為了資源回收特地對玻璃、鋁罐、塑膠或報紙做分類? (x) <numeric>
# total N=1839 valid N=1839 mean=6.55 sd=2.09
Value | Label | N | Raw % | Valid % | Cum. %
----------------------------------------------------------------
1 | 我住的地區沒有資源回收 | 5 | 0.27 | 0.27 | 0.27
2 | 從不 | 46 | 2.50 | 2.50 | 2.77
3 | 有時 | 118 | 6.42 | 6.42 | 9.19
4 | 經常 | 443 | 24.09 | 24.09 | 33.28
8 | 總是 | 1227 | 66.72 | 66.72 | 100.00
<NA> | <NA> | 0 | 0.00 | <NA> | <NA>plot_frq(homework$b19ar, sort.frq= "none", coord.flip = T, geom.colors = "red")
plot_grpfrq(homework$b19ar, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##b. 請問您常不常為了環保而刻意不買某些產品?
##□(01)總是 □(02)經常 □(03)有時 □(04)從不
homework$a1 <- set_label(homework$a1, label="性別")
homework$b19br <- rec(homework$b19b, rec="rev",
var.label="請問您常不常為了環保而刻意不買某些產品?")
frq(homework$b19br)請問您常不常為了環保而刻意不買某些產品? (x) <numeric>
# total N=1839 valid N=1833 mean=2.27 sd=0.95
Value | Label | N | Raw % | Valid % | Cum. %
----------------------------------------------
1 | 從不 | 423 | 23.00 | 23.08 | 23.08
2 | 有時 | 723 | 39.31 | 39.44 | 62.52
3 | 經常 | 462 | 25.12 | 25.20 | 87.73
4 | 總是 | 225 | 12.23 | 12.27 | 100.00
<NA> | <NA> | 6 | 0.33 | <NA> | <NA>plot_frq(homework$b19br, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b19br, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#B20. 請問您是環保團體的成員嗎?
# □(01)是 □(02)否
homework$a1 <- set_label(homework$a1, label="性別")
homework$b20r <- rec(homework$b20, rec="rev",
var.label="請問您是環保團體的成員嗎?")
frq(homework$b20r)請問您是環保團體的成員嗎? (x) <numeric>
# total N=1839 valid N=1839 mean=1.04 sd=0.19
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------
1 | 否 | 1769 | 96.19 | 96.19 | 96.19
2 | 是 | 70 | 3.81 | 3.81 | 100.00
<NA> | <NA> | 0 | 0.00 | <NA> | <NA>plot_frq(homework$b20r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b20r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#B21. 在過去五年間，請問您有沒有做過以下的事情
##a. 連署一份有關環保議題的請願書
#□(01)有 □(02)沒有
homework$a1 <- set_label(homework$a1, label="性別")
homework$b21ar <- rec(homework$b21a, rec="rev",
var.label="連署一份有關環保議題的請願書")
frq(homework$b21ar)連署一份有關環保議題的請願書 (x) <numeric>
# total N=1839 valid N=1839 mean=1.09 sd=0.29
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------
1 | 沒有 | 1675 | 91.08 | 91.08 | 91.08
2 | 有 | 164 | 8.92 | 8.92 | 100.00
<NA> | <NA> | 0 | 0.00 | <NA> | <NA>plot_frq(homework$b21ar, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b21ar, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##b. 捐款給環保團體
#□(01)有 □(02)沒有
homework$a1 <- set_label(homework$a1, label="性別")
homework$b21br <- rec(homework$b21b, rec="rev",
var.label="捐款給環保團體")
frq(homework$b21br)捐款給環保團體 (x) <numeric>
# total N=1839 valid N=1839 mean=1.09 sd=0.29
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------
1 | 沒有 | 1671 | 90.86 | 90.86 | 90.86
2 | 有 | 168 | 9.14 | 9.14 | 100.00
<NA> | <NA> | 0 | 0.00 | <NA> | <NA>plot_frq(homework$b21br, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b21br, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##c. 參加有關環保議題的抗議行動或遊行
#□(01)有 □(02)沒有
homework$a1 <- set_label(homework$a1, label="性別")
homework$b21cr <- rec(homework$b21c, rec="rev",
var.label="參加有關環保議題的抗議行動或遊行")
frq(homework$b21cr)參加有關環保議題的抗議行動或遊行 (x) <numeric>
# total N=1839 valid N=1839 mean=1.01 sd=0.11
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------
1 | 沒有 | 1817 | 98.80 | 98.80 | 98.80
2 | 有 | 22 | 1.20 | 1.20 | 100.00
<NA> | <NA> | 0 | 0.00 | <NA> | <NA>plot_frq(homework$b21cr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$b21cr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#E、環境態度
##E1. 您覺得地球上的動植物種類減少是不是一個嚴重的問題?
##□(01)很嚴重 □(02)有些嚴重 □(03)不太嚴重 □(04)一點也不嚴重
homework$a1 <- set_label(homework$a1, label="性別")
homework$e1r <- rec(homework$e1, rec="rev",
var.label="您覺得地球上的動植物種類減少是不是一個嚴重的問題?")
frq(homework$e1r)您覺得地球上的動植物種類減少是不是一個嚴重的問題? (x) <numeric>
# total N=1839 valid N=1695 mean=3.50 sd=0.64
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------------
1 | 一點也不嚴重 | 19 | 1.03 | 1.12 | 1.12
2 | 不太嚴重 | 76 | 4.13 | 4.48 | 5.60
3 | 有些嚴重 | 633 | 34.42 | 37.35 | 42.95
4 | 很嚴重 | 967 | 52.58 | 57.05 | 100.00
<NA> | <NA> | 144 | 7.83 | <NA> | <NA>plot_frq(homework$e1r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$e1r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##E2. 您覺得政府目前的環境保護政策符不符合公平正義的原則?
##□(01)非常符合 □(02)符合 □(03)不符合 □(04)非常不符合
homework$a1 <- set_label(homework$a1, label="性別")
homework$e2r <- rec(homework$e2, rec="rev",
var.label="您覺得政府目前的環境保護政策符不符合公平正義的原則?")
frq(homework$e2r)您覺得政府目前的環境保護政策符不符合公平正義的原則? (x) <numeric>
# total N=1839 valid N=1490 mean=2.43 sd=0.66
Value | Label | N | Raw % | Valid % | Cum. %
---------------------------------------------------
1 | 非常不符合 | 125 | 6.80 | 8.39 | 8.39
2 | 不符合 | 620 | 33.71 | 41.61 | 50.00
3 | 符合 | 729 | 39.64 | 48.93 | 98.93
4 | 非常符合 | 16 | 0.87 | 1.07 | 100.00
<NA> | <NA> | 349 | 18.98 | <NA> | <NA>plot_frq(homework$e2r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$e2r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##E3. 假設您的住所附近有一家工廠造成環境污染，現在這裡有一份清單，請您從中選出您 最可能尋求協助的對象。
#□(01)縣市環保局 □(02)警察局、法院 □(03)民意代表 □(04)鄉鎮村里長
#□(05)向該工廠陳情抗議 □(06)行政院環保署 □(07)報紙、媒體 □(08)環保團體
#□(09)當地社區團體 □(10)網路、部落格
homework$a1 <- set_label(homework$a1, label="性別")
homework$e3r <- rec(homework$e3, rec="rev",
var.label="假設您的住所附近有一家工廠造成環境污染，現在這裡有一份清單，請您從中選出您 最可能尋求協助的對象。")
frq(homework$e3r)假設您的住所附近有一家工廠造成環境污染，現在這裡有一份清單，請您從中選出您 最可能尋求協助的對象。 (x) <numeric>
# total N=1839 valid N=1746 mean=8.19 sd=2.06
Value | Label | N | Raw % | Valid % | Cum. %
---------------------------------------------------------
1 | 網路、部落格 | 21 | 1.14 | 1.20 | 1.20
2 | 當地社區團體 | 8 | 0.44 | 0.46 | 1.66
3 | 環保團體 | 52 | 2.83 | 2.98 | 4.64
4 | 報紙、媒體 | 13 | 0.71 | 0.74 | 5.38
5 | 行政院環保署 | 57 | 3.10 | 3.26 | 8.65
6 | 向該工廠陳情抗議 | 40 | 2.18 | 2.29 | 10.94
7 | 鄉鎮村里長 | 604 | 32.84 | 34.59 | 45.53
8 | 民意代表 | 66 | 3.59 | 3.78 | 49.31
9 | 警察局、法院 | 69 | 3.75 | 3.95 | 53.26
10 | 縣市環保局 | 816 | 44.37 | 46.74 | 100.00
<NA> | <NA> | 93 | 5.06 | <NA> | <NA>plot_frq(homework$e3r, sort.frq= "none", coord.flip = T, geom.colors = "red")
plot_grpfrq(homework$e3r, homework$a1, , coord.flip = T, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##E4. 請問您同不同意以下說法:降低環境污染應該是政府的事，不應該花到我的錢。
##□(01)非常同意 □(02)同意 □(03)不同意 □(04)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e4r <- rec(homework$e4, rec="rev",
var.label="請問您同不同意以下說法:降低環境污染應該是政府的事，不應該花到我的錢。")
frq(homework$e4r)請問您同不同意以下說法:降低環境污染應該是政府的事，不應該花到我的錢。 (x) <numeric>
# total N=1839 valid N=1698 mean=2.38 sd=0.65
Value | Label | N | Raw % | Valid % | Cum. %
---------------------------------------------------
1 | 非常不同意 | 81 | 4.40 | 4.77 | 4.77
2 | 不同意 | 961 | 52.26 | 56.60 | 61.37
3 | 同意 | 583 | 31.70 | 34.33 | 95.70
4 | 非常同意 | 73 | 3.97 | 4.30 | 100.00
<NA> | <NA> | 141 | 7.67 | <NA> | <NA>plot_frq(homework$e4r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$e4r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##E5. 請問您認為應繼續使用核電還是應廢除核電?
##□(01)應繼續使用核電 □(02)應廢除核電 □(03)無所謂 □(04)其他，請說明
homework$a1 <- set_label(homework$a1, label="性別")
homework$e5r <- rec(homework$e5, rec="rev",
var.label="請問您認為應繼續使用核電還是應廢除核電?")
frq(homework$e5r)請問您認為應繼續使用核電還是應廢除核電? (x) <numeric>
# total N=1839 valid N=1550 mean=3.44 sd=0.77
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 其他，請說明 | 37 | 2.01 | 2.39 | 2.39
2 | 無所謂 | 158 | 8.59 | 10.19 | 12.58
3 | 應廢除核電 | 435 | 23.65 | 28.06 | 40.65
4 | 應繼續使用核電 | 920 | 50.03 | 59.35 | 100.00
<NA> | <NA> | 289 | 15.72 | <NA> | <NA>plot_frq(homework$e5r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$e5r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##E6. 為了減少空污與碳排的風險，請問您願不願意配合漲電價，來推動再生能源(太陽能、風能等) 的發展?
##□(01)不願意 □(02)願意，加 5%或以下 □(03)願意，加 6-10%
##□(04)願意，加 11-15% □(05)願意，加 16-20% □(06)願意，加 21%以上
homework$a1 <- set_label(homework$a1, label="性別")
homework$e6r <- rec(homework$e6, rec="rev",
var.label="為了減少空污與碳排的風險，請問您願不願意配合漲電價，來推動再生能源(太陽能、風能等) 的發展?")
frq(homework$e6r)為了減少空污與碳排的風險，請問您願不願意配合漲電價，來推動再生能源(太陽能、風能等) 的發展? (x) <numeric>
# total N=1839 valid N=1756 mean=5.03 sd=1.01
Value | Label | N | Raw % | Valid % | Cum. %
----------------------------------------------------------
1 | 願意，加 21%以上 | 22 | 1.20 | 1.25 | 1.25
2 | 願意，加 16-20% | 32 | 1.74 | 1.82 | 3.08
3 | 願意，加 11-15% | 67 | 3.64 | 3.82 | 6.89
4 | 願意，加 6-10% | 268 | 14.57 | 15.26 | 22.15
5 | 願意，加 5%或以下 | 735 | 39.97 | 41.86 | 64.01
6 | 不願意 | 632 | 34.37 | 35.99 | 100.00
<NA> | <NA> | 83 | 4.51 | <NA> | <NA>plot_frq(homework$e6r, sort.frq= "none", coord.flip = T, geom.colors = "red")
plot_grpfrq(homework$e6r, homework$a1, coord.flip = T, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#E7. 請問您同不同意以下的說法?
##a. 減少使用免洗餐具、面紙等一次性用品是容易做到的事。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e7ar <- rec(homework$e7a, rec="rev",
var.label="減少使用免洗餐具、面紙等一次性用品是容易做到的事。")
frq(homework$e7ar)減少使用免洗餐具、面紙等一次性用品是容易做到的事。 (x) <numeric>
# total N=1839 valid N=1822 mean=3.94 sd=0.81
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 9 | 0.49 | 0.49 | 0.49
2 | 不同意 | 180 | 9.79 | 9.88 | 10.37
3 | 無所謂同不同意 | 54 | 2.94 | 2.96 | 13.34
4 | 同意 | 1241 | 67.48 | 68.11 | 81.45
5 | 非常同意 | 338 | 18.38 | 18.55 | 100.00
<NA> | <NA> | 17 | 0.92 | <NA> | <NA>plot_frq(homework$e7ar, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$e7ar, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##b. 在外用餐時，自備餐具、手帕等，很不方便。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e7br <- rec(homework$e7b, rec="rev",
var.label="在外用餐時，自備餐具、手帕等，很不方便。")
frq(homework$e7br)在外用餐時，自備餐具、手帕等，很不方便。 (x) <numeric>
# total N=1839 valid N=1800 mean=2.90 sd=1.09
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 非常不同意 | 91 | 4.95 | 5.06 | 5.06
2 | 不同意 | 815 | 44.32 | 45.28 | 50.33
3 | 無所謂同不同意 | 137 | 7.45 | 7.61 | 57.94
4 | 同意 | 689 | 37.47 | 38.28 | 96.22
5 | 非常同意 | 68 | 3.70 | 3.78 | 100.00
<NA> | <NA> | 39 | 2.12 | <NA> | <NA>plot_frq(homework$e7br, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$e7br, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##c. 您擔心使用塑膠袋、免洗餐具等，會對環境造成傷害。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e7cr <- rec(homework$e7c, rec="rev",
var.label="您擔心使用塑膠袋、免洗餐具等，會對環境造成傷害。")
frq(homework$e7cr)您擔心使用塑膠袋、免洗餐具等，會對環境造成傷害。 (x) <numeric>
# total N=1839 valid N=1823 mean=4.00 sd=0.68
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 3 | 0.16 | 0.16 | 0.16
2 | 不同意 | 110 | 5.98 | 6.03 | 6.20
3 | 無所謂同不同意 | 72 | 3.92 | 3.95 | 10.15
4 | 同意 | 1331 | 72.38 | 73.01 | 83.16
5 | 非常同意 | 307 | 16.69 | 16.84 | 100.00
<NA> | <NA> | 16 | 0.87 | <NA> | <NA>plot_frq(homework$e7cr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$e7cr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##d. 您擔心使用塑膠袋、免洗餐具等，會危害自己和家人的健康。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e7dr <- rec(homework$e7d, rec="rev",
var.label="您擔心使用塑膠袋、免洗餐具等，會危害自己和家人的健康。")
frq(homework$e7dr)您擔心使用塑膠袋、免洗餐具等，會危害自己和家人的健康。 (x) <numeric>
# total N=1839 valid N=1825 mean=3.92 sd=0.74
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 5 | 0.27 | 0.27 | 0.27
2 | 不同意 | 155 | 8.43 | 8.49 | 8.77
3 | 無所謂同不同意 | 92 | 5.00 | 5.04 | 13.81
4 | 同意 | 1306 | 71.02 | 71.56 | 85.37
5 | 非常同意 | 267 | 14.52 | 14.63 | 100.00
<NA> | <NA> | 14 | 0.76 | <NA> | <NA>plot_frq(homework$e7dr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$e7dr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##e. 您擔心塑膠袋、免洗餐具所造成的污染，會危害下一代的健康。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e7er <- rec(homework$e7e, rec="rev",
var.label="您擔心塑膠袋、免洗餐具所造成的污染，會危害下一代的健康。")
frq(homework$e7er)您擔心塑膠袋、免洗餐具所造成的污染，會危害下一代的健康。 (x) <numeric>
# total N=1839 valid N=1819 mean=4.02 sd=0.70
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 3 | 0.16 | 0.16 | 0.16
2 | 不同意 | 115 | 6.25 | 6.32 | 6.49
3 | 無所謂同不同意 | 61 | 3.32 | 3.35 | 9.84
4 | 同意 | 1295 | 70.42 | 71.19 | 81.03
5 | 非常同意 | 345 | 18.76 | 18.97 | 100.00
<NA> | <NA> | 20 | 1.09 | <NA> | <NA>plot_frq(homework$e7er, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$e7er, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##f. 外帶食物時，您的家人好友認為您應該拒拿免洗餐具。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e7fr <- rec(homework$e7f, rec="rev",
var.label="外帶食物時，您的家人好友認為您應該拒拿免洗餐具。")
frq(homework$e7fr)外帶食物時，您的家人好友認為您應該拒拿免洗餐具。 (x) <numeric>
# total N=1839 valid N=1805 mean=3.75 sd=0.90
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 10 | 0.54 | 0.55 | 0.55
2 | 不同意 | 263 | 14.30 | 14.57 | 15.12
3 | 無所謂同不同意 | 154 | 8.37 | 8.53 | 23.66
4 | 同意 | 1114 | 60.58 | 61.72 | 85.37
5 | 非常同意 | 264 | 14.36 | 14.63 | 100.00
<NA> | <NA> | 34 | 1.85 | <NA> | <NA>plot_frq(homework$e7fr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$e7fr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##g. 去買東西時，您的家人好友認為您應該自備購物袋。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e7gr <- rec(homework$e7g, rec="rev",
var.label="去買東西時，您的家人好友認為您應該自備購物袋。")
frq(homework$e7gr)去買東西時，您的家人好友認為您應該自備購物袋。 (x) <numeric>
# total N=1839 valid N=1815 mean=4.01 sd=0.77
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 2 | 0.11 | 0.11 | 0.11
2 | 不同意 | 133 | 7.23 | 7.33 | 7.44
3 | 無所謂同不同意 | 113 | 6.14 | 6.23 | 13.66
4 | 同意 | 1161 | 63.13 | 63.97 | 77.63
5 | 非常同意 | 406 | 22.08 | 22.37 | 100.00
<NA> | <NA> | 24 | 1.31 | <NA> | <NA>plot_frq(homework$e7gr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$e7gr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##h. 政府的減塑政策(禁止免費提供塑膠袋、禁用塑膠吸管、集會禁用包裝飲水等)有助於您減少這 些一次性用品的使用。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e7hr <- rec(homework$e7h, rec="rev",
var.label="政府的減塑政策(禁止免費提供塑膠袋、禁用塑膠吸管、集會禁用包裝飲水等)有助於您減少這 些一次性用品的使用。")
frq(homework$e7hr)政府的減塑政策(禁止免費提供塑膠袋、禁用塑膠吸管、集會禁用包裝飲水等)有助於您減少這 些一次性用品的使用。 (x) <numeric>
# total N=1839 valid N=1744 mean=3.93 sd=0.80
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 21 | 1.14 | 1.20 | 1.20
2 | 不同意 | 147 | 7.99 | 8.43 | 9.63
3 | 無所謂同不同意 | 59 | 3.21 | 3.38 | 13.02
4 | 同意 | 1228 | 66.78 | 70.41 | 83.43
5 | 非常同意 | 289 | 15.72 | 16.57 | 100.00
<NA> | <NA> | 95 | 5.17 | <NA> | <NA>plot_frq(homework$e7hr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$e7hr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#E10. 請問您擔不擔心現在的孩子 30 年後面臨的環境問題?
#□(01)非常擔心 □(02)擔心 □(03)無所謂擔不擔心 □(04)不擔心 □(05)非常不擔心
homework$a1 <- set_label(homework$a1, label="性別")
homework$e10r <- rec(homework$e10, rec="rev",
var.label="請問您擔不擔心現在的孩子 30 年後面臨的環境問題?")
frq(homework$e10r)請問您擔不擔心現在的孩子 30 年後面臨的環境問題? (x) <numeric>
# total N=1839 valid N=1803 mean=3.92 sd=1.00
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 非常不擔心 | 21 | 1.14 | 1.16 | 1.16
2 | 不擔心 | 256 | 13.92 | 14.20 | 15.36
3 | 無所謂擔不擔心 | 83 | 4.51 | 4.60 | 19.97
4 | 擔心 | 938 | 51.01 | 52.02 | 71.99
5 | 非常擔心 | 505 | 27.46 | 28.01 | 100.00
<NA> | <NA> | 36 | 1.96 | <NA> | <NA>plot_frq(homework$e10r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$e10r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#E11. 面對環境問題，請問您同不同意以下說法?
##a. 我們必須以我們這一代的發展與福祉為重，後代子孫自己會想辦法解決可能的環境問題
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e11ar <- rec(homework$e11a, rec="rev",
var.label="我們必須以我們這一代的發展與福祉為重，後代子孫自己會想辦法解決可能的環境問題")
frq(homework$e11ar)我們必須以我們這一代的發展與福祉為重，後代子孫自己會想辦法解決可能的環境問題 (x) <numeric>
# total N=1839 valid N=1752 mean=2.47 sd=1.10
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 非常不同意 | 279 | 15.17 | 15.92 | 15.92
2 | 不同意 | 892 | 48.50 | 50.91 | 66.84
3 | 無所謂同不同意 | 88 | 4.79 | 5.02 | 71.86
4 | 同意 | 463 | 25.18 | 26.43 | 98.29
5 | 非常同意 | 30 | 1.63 | 1.71 | 100.00
<NA> | <NA> | 87 | 4.73 | <NA> | <NA>plot_frq(homework$e11ar, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$e11ar, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##b. 我們上一代與這一代已經過度使用地球的自然資源，後代子孫將可能沒有自然資源可以使用
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e11br <- rec(homework$e11b, rec="rev",
var.label="我們上一代與這一代已經過度使用地球的自然資源，後代子孫將可能沒有自然資源可以使用")
frq(homework$e11br)我們上一代與這一代已經過度使用地球的自然資源，後代子孫將可能沒有自然資源可以使用 (x) <numeric>
# total N=1839 valid N=1716 mean=3.70 sd=0.90
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 10 | 0.54 | 0.58 | 0.58
2 | 不同意 | 293 | 15.93 | 17.07 | 17.66
3 | 無所謂同不同意 | 91 | 4.95 | 5.30 | 22.96
4 | 同意 | 1122 | 61.01 | 65.38 | 88.34
5 | 非常同意 | 200 | 10.88 | 11.66 | 100.00
<NA> | <NA> | 123 | 6.69 | <NA> | <NA>plot_frq(homework$e11br, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$e11br, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##c. 許多人靠破壞環境賺了很多錢，卻留很多環境問題讓弱勢的人在承擔
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e11cr <- rec(homework$e11c, rec="rev",
var.label="許多人靠破壞環境賺了很多錢，卻留很多環境問題讓弱勢的人在承擔")
frq(homework$e11cr)許多人靠破壞環境賺了很多錢，卻留很多環境問題讓弱勢的人在承擔 (x) <numeric>
# total N=1839 valid N=1730 mean=4.09 sd=0.76
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 10 | 0.54 | 0.58 | 0.58
2 | 不同意 | 103 | 5.60 | 5.95 | 6.53
3 | 無所謂同不同意 | 59 | 3.21 | 3.41 | 9.94
4 | 同意 | 1113 | 60.52 | 64.34 | 74.28
5 | 非常同意 | 445 | 24.20 | 25.72 | 100.00
<NA> | <NA> | 109 | 5.93 | <NA> | <NA>plot_frq(homework$e11cr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$e11cr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##d. 為了發展經濟，許多高污染產業影響許多地區的環境與民眾的健康，這也是沒有辦法的事
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e11dr <- rec(homework$e11d, rec="rev",
var.label="為了發展經濟，許多高污染產業影響許多地區的環境與民眾的健康，這也是沒有辦法的事")
frq(homework$e11dr)為了發展經濟，許多高污染產業影響許多地區的環境與民眾的健康，這也是沒有辦法的事 (x) <numeric>
# total N=1839 valid N=1739 mean=2.50 sd=1.09
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 非常不同意 | 259 | 14.08 | 14.89 | 14.89
2 | 不同意 | 890 | 48.40 | 51.18 | 66.07
3 | 無所謂同不同意 | 77 | 4.19 | 4.43 | 70.50
4 | 同意 | 491 | 26.70 | 28.23 | 98.73
5 | 非常同意 | 22 | 1.20 | 1.27 | 100.00
<NA> | <NA> | 100 | 5.44 | <NA> | <NA>plot_frq(homework$e11dr, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$e11dr, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#F、環境行為
#F1. 請問您外出買東西時，願不願意自備購物袋?
#□(01)很願意 □(02)還算願意 □(03)無所謂願不願意 □(04)不太願意 □(05)很不願意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f1r <- rec(homework$f1, rec="rev",
var.label="請問您外出買東西時，願不願意自備購物袋?")
frq(homework$f1r)請問您外出買東西時，願不願意自備購物袋? (x) <numeric>
# total N=1839 valid N=1837 mean=4.57 sd=0.76
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 很不願意 | 21 | 1.14 | 1.14 | 1.14
2 | 不太願意 | 52 | 2.83 | 2.83 | 3.97
3 | 無所謂願不願意 | 24 | 1.31 | 1.31 | 5.28
4 | 還算願意 | 511 | 27.79 | 27.82 | 33.10
5 | 很願意 | 1229 | 66.83 | 66.90 | 100.00
<NA> | <NA> | 2 | 0.11 | <NA> | <NA>plot_frq(homework$f1r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f1r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#F2. 請問您外帶餐點或在外用餐時，願不願意自備餐具(包括筷子、叉子、湯匙等)?
#□(01)很願意 □(02)還算願意 □(03)無所謂願不願意 □(04)不太願意 □(05)很不願意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f2r <- rec(homework$f2, rec="rev",
var.label="請問您外帶餐點或在外用餐時，願不願意自備餐具(包括筷子、叉子、湯匙等)?")
frq(homework$f2r)請問您外帶餐點或在外用餐時，願不願意自備餐具(包括筷子、叉子、湯匙等)? (x) <numeric>
# total N=1839 valid N=1832 mean=4.05 sd=1.06
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 很不願意 | 46 | 2.50 | 2.51 | 2.51
2 | 不太願意 | 213 | 11.58 | 11.63 | 14.14
3 | 無所謂願不願意 | 73 | 3.97 | 3.98 | 18.12
4 | 還算願意 | 777 | 42.25 | 42.41 | 60.53
5 | 很願意 | 723 | 39.31 | 39.47 | 100.00
<NA> | <NA> | 7 | 0.38 | <NA> | <NA>plot_frq(homework$f2r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f2r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#F3. 請問您於用餐後，願不願意以手帕代替面紙或濕紙巾之使用?
#□(01)很願意 □(02)還算願意 □(03)無所謂願不願意 □(04)不太願意 □(05)很不願意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f3r <- rec(homework$f3, rec="rev",
var.label="請問您於用餐後，願不願意以手帕代替面紙或濕紙巾之使用?")
frq(homework$f3r)請問您於用餐後，願不願意以手帕代替面紙或濕紙巾之使用? (x) <numeric>
# total N=1839 valid N=1833 mean=3.28 sd=1.25
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 很不願意 | 124 | 6.74 | 6.76 | 6.76
2 | 不太願意 | 558 | 30.34 | 30.44 | 37.21
3 | 無所謂願不願意 | 147 | 7.99 | 8.02 | 45.23
4 | 還算願意 | 690 | 37.52 | 37.64 | 82.87
5 | 很願意 | 314 | 17.07 | 17.13 | 100.00
<NA> | <NA> | 6 | 0.33 | <NA> | <NA>plot_frq(homework$f3r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f3r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#F4. 請問您同不同意以下的說法?
##(1)在台灣，一般民眾影響環保政策的機會非常有限
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f41r <- rec(homework$f41, rec="rev",
var.label="在台灣，一般民眾影響環保政策的機會非常有限")
frq(homework$f41r)在台灣，一般民眾影響環保政策的機會非常有限 (x) <numeric>
# total N=1839 valid N=1710 mean=3.50 sd=0.99
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 20 | 1.09 | 1.17 | 1.17
2 | 不同意 | 426 | 23.16 | 24.91 | 26.08
3 | 無所謂同不同意 | 75 | 4.08 | 4.39 | 30.47
4 | 同意 | 1052 | 57.21 | 61.52 | 91.99
5 | 非常同意 | 137 | 7.45 | 8.01 | 100.00
<NA> | <NA> | 129 | 7.01 | <NA> | <NA>plot_frq(homework$f41r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f41r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##(2)投票時，您會因為某位候選人提出環保政策而投他一票
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f42r <- rec(homework$f42, rec="rev",
var.label="投票時，您會因為某位候選人提出環保政策而投他一票")
frq(homework$f42r)投票時，您會因為某位候選人提出環保政策而投他一票 (x) <numeric>
# total N=1839 valid N=1761 mean=3.00 sd=1.06
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 非常不同意 | 81 | 4.40 | 4.60 | 4.60
2 | 不同意 | 698 | 37.96 | 39.64 | 44.24
3 | 無所謂同不同意 | 176 | 9.57 | 9.99 | 54.23
4 | 同意 | 754 | 41.00 | 42.82 | 97.05
5 | 非常同意 | 52 | 2.83 | 2.95 | 100.00
<NA> | <NA> | 78 | 4.24 | <NA> | <NA>plot_frq(homework$f42r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f42r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##(3)民眾參與有助於提升環保政策的品質
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f43r <- rec(homework$f43, rec="rev",
var.label="民眾參與有助於提升環保政策的品質")
frq(homework$f43r)民眾參與有助於提升環保政策的品質 (x) <numeric>
# total N=1839 valid N=1734 mean=4.07 sd=0.53
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 4 | 0.22 | 0.23 | 0.23
2 | 不同意 | 37 | 2.01 | 2.13 | 2.36
3 | 無所謂同不同意 | 51 | 2.77 | 2.94 | 5.31
4 | 同意 | 1383 | 75.20 | 79.76 | 85.06
5 | 非常同意 | 259 | 14.08 | 14.94 | 100.00
<NA> | <NA> | 105 | 5.71 | <NA> | <NA>plot_frq(homework$f43r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f43r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##(4)民眾有能力提出對環保政策有建設性的建議
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f44r <- rec(homework$f44, rec="rev",
var.label="民眾有能力提出對環保政策有建設性的建議")
frq(homework$f44r)民眾有能力提出對環保政策有建設性的建議 (x) <numeric>
# total N=1839 valid N=1709 mean=3.79 sd=0.74
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 13 | 0.71 | 0.76 | 0.76
2 | 不同意 | 168 | 9.14 | 9.83 | 10.59
3 | 無所謂同不同意 | 107 | 5.82 | 6.26 | 16.85
4 | 同意 | 1297 | 70.53 | 75.89 | 92.74
5 | 非常同意 | 124 | 6.74 | 7.26 | 100.00
<NA> | <NA> | 130 | 7.07 | <NA> | <NA>plot_frq(homework$f44r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f44r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##(5)關於複雜的科學與技術的政策，應該由專家來決定
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f45r <- rec(homework$f45, rec="rev",
var.label="關於複雜的科學與技術的政策，應該由專家來決定")
frq(homework$f45r)關於複雜的科學與技術的政策，應該由專家來決定 (x) <numeric>
# total N=1839 valid N=1761 mean=3.83 sd=0.77
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 9 | 0.49 | 0.51 | 0.51
2 | 不同意 | 193 | 10.49 | 10.96 | 11.47
3 | 無所謂同不同意 | 69 | 3.75 | 3.92 | 15.39
4 | 同意 | 1309 | 71.18 | 74.33 | 89.72
5 | 非常同意 | 181 | 9.84 | 10.28 | 100.00
<NA> | <NA> | 78 | 4.24 | <NA> | <NA>plot_frq(homework$f45r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f45r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##(6)污染者應該負擔他所造成的損害
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f46r <- rec(homework$f46, rec="rev",
var.label="污染者應該負擔他所造成的損害")
frq(homework$f46r)污染者應該負擔他所造成的損害 (x) <numeric>
# total N=1839 valid N=1806 mean=4.45 sd=0.54
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 非常不同意 | 2 | 0.11 | 0.11 | 0.11
2 | 不同意 | 6 | 0.33 | 0.33 | 0.44
3 | 無所謂同不同意 | 11 | 0.60 | 0.61 | 1.05
4 | 同意 | 943 | 51.28 | 52.21 | 53.27
5 | 非常同意 | 844 | 45.89 | 46.73 | 100.00
<NA> | <NA> | 33 | 1.79 | <NA> | <NA>plot_frq(homework$f46r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f46r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#F5. 請問您平常會不會注意有關「環境問題」的資訊?
#□(01)非常注意 □(02)注意 □(03)不注意 □(04)非常不注意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f5r <- rec(homework$f5, rec="rev",
var.label="請問您平常會不會注意有關「環境問題」的資訊?")
frq(homework$f5r)請問您平常會不會注意有關「環境問題」的資訊? (x) <numeric>
# total N=1839 valid N=1827 mean=2.82 sd=0.63
Value | Label | N | Raw % | Valid % | Cum. %
----------------------------------------------------
1 | 非常不注意 | 38 | 2.07 | 2.08 | 2.08
2 | 不注意 | 439 | 23.87 | 24.03 | 26.11
3 | 注意 | 1167 | 63.46 | 63.88 | 89.98
4 | 非常注意 | 183 | 9.95 | 10.02 | 100.00
<NA> | <NA> | 12 | 0.65 | <NA> | <NA>plot_frq(homework$f5r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f5r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#F6. 請問您最常使用的交通方式是哪一項?
#□(01)步行□(02)腳踏車□(03)電動腳踏車□(04)公車□(05)火車□(06)捷運
#□(07)燃油機車□(08)電動機車□(09)汽油汽車□(10)柴油汽車□(11)油電混合車
#□(12)電動汽車□(13)計程車□(14)uber□(15)其他，請說明
homework$a1 <- set_label(homework$a1, label="性別")
homework$f6r <- rec(homework$f6, rec="rev",
var.label="請問您最常使用的交通方式是哪一項?")
frq(homework$f6r)請問您最常使用的交通方式是哪一項? (x) <numeric>
# total N=1839 valid N=1837 mean=11.61 sd=2.72
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------------
1 | 其他，請說明 | 16 | 0.87 | 0.87 | 0.87
2 | 輕軌列車 | 0 | 0.00 | 0.00 | 0.87
3 | 高鐵 | 0 | 0.00 | 0.00 | 0.87
4 | uber | 1 | 0.05 | 0.05 | 0.93
5 | 計程車 | 7 | 0.38 | 0.38 | 1.31
6 | 電動汽車 | 1 | 0.05 | 0.05 | 1.36
7 | 油電混合車 | 8 | 0.44 | 0.44 | 1.80
8 | 柴油汽車 | 21 | 1.14 | 1.14 | 2.94
9 | 汽油汽車 | 323 | 17.56 | 17.58 | 20.52
10 | 電動機車 | 42 | 2.28 | 2.29 | 22.81
11 | 燃油機車 | 913 | 49.65 | 49.70 | 72.51
12 | 捷運 | 86 | 4.68 | 4.68 | 77.19
13 | 火車 | 14 | 0.76 | 0.76 | 77.95
14 | 公車 | 110 | 5.98 | 5.99 | 83.94
15 | 電動腳踏車 | 10 | 0.54 | 0.54 | 84.49
16 | 腳踏車 | 81 | 4.40 | 4.41 | 88.89
17 | 步行 | 204 | 11.09 | 11.11 | 100.00
<NA> | <NA> | 2 | 0.11 | <NA> | <NA>plot_frq(homework$f6r, sort.frq= "none", coord.flip = T, geom.colors = "red")
plot_grpfrq(homework$f6r, homework$a1, coord.flip = T, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#F7. 請問您居住的社區附近公共運輸服務便不便利?
#□(01)非常不便利 □(02)不便利 □(03)無所謂便不便利 □(04)便利 □(05)非常便利
homework$a1 <- set_label(homework$a1, label="性別")
homework$f7r <- rec(homework$f7, rec="rev",
var.label="請問您居住的社區附近公共運輸服務便不便利?")
frq(homework$f7r)請問您居住的社區附近公共運輸服務便不便利? (x) <numeric>
# total N=1839 valid N=1783 mean=2.61 sd=1.29
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 非常便利 | 313 | 17.02 | 17.55 | 17.55
2 | 便利 | 842 | 45.79 | 47.22 | 64.78
3 | 無所謂便不便利 | 41 | 2.23 | 2.30 | 67.08
4 | 不便利 | 401 | 21.81 | 22.49 | 89.57
5 | 非常不便利 | 186 | 10.11 | 10.43 | 100.00
<NA> | <NA> | 56 | 3.05 | <NA> | <NA>plot_frq(homework$f7r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f7r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#F9. 如果政府為了改善空污，希望實施以下的交通政策，請問您同不同意?
##(1)限年淘汰老舊車輛(並補貼車主換購新車)
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f91r <- rec(homework$f91, rec="rev",
var.label="限年淘汰老舊車輛(並補貼車主換購新車)")
frq(homework$f91r)限年淘汰老舊車輛(並補貼車主換購新車) (x) <numeric>
# total N=1839 valid N=1776 mean=4.01 sd=0.81
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 23 | 1.25 | 1.30 | 1.30
2 | 不同意 | 130 | 7.07 | 7.32 | 8.61
3 | 無所謂同不同意 | 55 | 2.99 | 3.10 | 11.71
4 | 同意 | 1172 | 63.73 | 65.99 | 77.70
5 | 非常同意 | 396 | 21.53 | 22.30 | 100.00
<NA> | <NA> | 63 | 3.43 | <NA> | <NA>plot_frq(homework$f91r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f91r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##(2)嚴格限制車輛污染排放標準、並提高罰款
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f92r <- rec(homework$f92, rec="rev",
var.label="嚴格限制車輛污染排放標準、並提高罰款")
frq(homework$f92r)嚴格限制車輛污染排放標準、並提高罰款 (x) <numeric>
# total N=1839 valid N=1768 mean=3.93 sd=0.86
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 20 | 1.09 | 1.13 | 1.13
2 | 不同意 | 186 | 10.11 | 10.52 | 11.65
3 | 無所謂同不同意 | 45 | 2.45 | 2.55 | 14.20
4 | 同意 | 1164 | 63.30 | 65.84 | 80.03
5 | 非常同意 | 353 | 19.20 | 19.97 | 100.00
<NA> | <NA> | 71 | 3.86 | <NA> | <NA>plot_frq(homework$f92r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f92r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##(3)用稅收補貼大眾交通系統的建設與營運之虧損
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f93r <- rec(homework$f93, rec="rev",
var.label="用稅收補貼大眾交通系統的建設與營運之虧損")
frq(homework$f93r)用稅收補貼大眾交通系統的建設與營運之虧損 (x) <numeric>
# total N=1839 valid N=1739 mean=3.45 sd=1.07
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 98 | 5.33 | 5.64 | 5.64
2 | 不同意 | 356 | 19.36 | 20.47 | 26.11
3 | 無所謂同不同意 | 87 | 4.73 | 5.00 | 31.11
4 | 同意 | 1060 | 57.64 | 60.95 | 92.06
5 | 非常同意 | 138 | 7.50 | 7.94 | 100.00
<NA> | <NA> | 100 | 5.44 | <NA> | <NA>plot_frq(homework$f93r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f93r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##(4)對於汽油與柴油加徵污染稅以反映空氣污染所造成的損害
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f94r <- rec(homework$f94, rec="rev",
var.label="對於汽油與柴油加徵污染稅以反映空氣污染所造成的損害")
frq(homework$f94r)對於汽油與柴油加徵污染稅以反映空氣污染所造成的損害 (x) <numeric>
# total N=1839 valid N=1740 mean=3.31 sd=1.12
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------------
1 | 非常不同意 | 134 | 7.29 | 7.70 | 7.70
2 | 不同意 | 399 | 21.70 | 22.93 | 30.63
3 | 無所謂同不同意 | 103 | 5.60 | 5.92 | 36.55
4 | 同意 | 1005 | 54.65 | 57.76 | 94.31
5 | 非常同意 | 99 | 5.38 | 5.69 | 100.00
<NA> | <NA> | 99 | 5.38 | <NA> | <NA>plot_frq(homework$f94r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f94r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
##(5)對車輛徵收能源稅，用來補貼大眾交通工具的使用者
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f95r <- rec(homework$f95, rec="rev",
var.label="對車輛徵收能源稅，用來補貼大眾交通工具的使用者")
frq(homework$f95r)對車輛徵收能源稅，用來補貼大眾交通工具的使用者 (x) <numeric>
# total N=1839 valid N=1723 mean=3.11 sd=1.16
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------
1 | 非常不同意 | 170 | 9.24 | 9.87 | 9.87
2 | 不同意 | 488 | 26.54 | 28.32 | 38.19
3 | 無所謂同不同意 | 118 | 6.42 | 6.85 | 45.04
4 | 同意 | 876 | 47.63 | 50.84 | 95.88
5 | 非常同意 | 71 | 3.86 | 4.12 | 100.00
<NA> | <NA> | 116 | 6.31 | <NA> | <NA>plot_frq(homework$f95r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f95r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#F10. 請問您常不常參與社區的環保工作(如清水溝、社區巡守等)?
#□(01)經常 □(02)有時 □(03)偶爾 □(04)從不
homework$a1 <- set_label(homework$a1, label="性別")
homework$f10r <- rec(homework$f10, rec="rev",
var.label="請問您常不常參與社區的環保工作(如清水溝、社區巡守等)?")
frq(homework$f10r)請問您常不常參與社區的環保工作(如清水溝、社區巡守等)? (x) <numeric>
# total N=1839 valid N=1801 mean=2.27 sd=0.71
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------
1 | 很不願意 | 0 | 0.00 | 0.00 | 0.00
2 | 從不 | 1518 | 82.54 | 84.29 | 84.29
3 | 偶爾 | 155 | 8.43 | 8.61 | 92.89
4 | 有時 | 56 | 3.05 | 3.11 | 96.00
5 | 經常 | 72 | 3.92 | 4.00 | 100.00
<NA> | <NA> | 38 | 2.07 | <NA> | <NA>plot_frq(homework$f10r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f10r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#F11. 請問您常不常反應社區中在天災時容易造成危險的情況 (如未固定的招牌、水溝淤積或河床旁之 堆積廢土等)。
#□(01)經常 □(02)有時 □(03)偶爾 □(04)從不
homework$a1 <- set_label(homework$a1, label="性別")
homework$f11r <- rec(homework$f11, rec="rev",
var.label="請問您常不常反應社區中在天災時容易造成危險的情況 (如未固定的招牌、水溝淤積或河床旁之 堆積廢土等)。")
frq(homework$f11r)請問您常不常反應社區中在天災時容易造成危險的情況 (如未固定的招牌、水溝淤積或河床旁之 堆積廢土等)。 (x) <numeric>
# total N=1839 valid N=1760 mean=2.50 sd=0.81
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------
1 | 很不願意 | 0 | 0.00 | 0.00 | 0.00
2 | 從不 | 1170 | 63.62 | 66.48 | 66.48
3 | 偶爾 | 352 | 19.14 | 20.00 | 86.48
4 | 有時 | 179 | 9.73 | 10.17 | 96.65
5 | 經常 | 59 | 3.21 | 3.35 | 100.00
<NA> | <NA> | 79 | 4.30 | <NA> | <NA>plot_frq(homework$f11r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f11r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
#F12. 請問您常不常反應社區中造成環境污染的情況(如噪音、垃圾、廢水、油煙廢氣等)
##□(01)經常 □(02)有時 □(03)偶爾 □(04)從不
homework$a1 <- set_label(homework$a1, label="性別")
homework$f12r <- rec(homework$f12, rec="rev",
var.label="請問您常不常反應社區中造成環境污染的情況(如噪音、垃圾、廢水、油煙廢氣等)")
frq(homework$f12r)請問您常不常反應社區中造成環境污染的情況(如噪音、垃圾、廢水、油煙廢氣等) (x) <numeric>
# total N=1839 valid N=1768 mean=2.53 sd=0.82
Value | Label | N | Raw % | Valid % | Cum. %
--------------------------------------------------
1 | 很不願意 | 0 | 0.00 | 0.00 | 0.00
2 | 從不 | 1147 | 62.37 | 64.88 | 64.88
3 | 偶爾 | 372 | 20.23 | 21.04 | 85.92
4 | 有時 | 186 | 10.11 | 10.52 | 96.44
5 | 經常 | 63 | 3.43 | 3.56 | 100.00
<NA> | <NA> | 71 | 3.86 | <NA> | <NA>plot_frq(homework$f12r, sort.frq= "none", geom.colors = "red")
plot_grpfrq(homework$f12r, homework$a1, geom.colors = "green")Warning in sj.setGeomColors(baseplot, geom.colors, length(legend.labels), : Too
less colors provided for plot. Using default color palette.
The echo: false option disables the printing of code (only output is displayed).