#民意與政治行為第一次作業
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)Learn more about sjPlot with 'browseVignettes("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>homework$a1 <- rec(homework$a1, rec="rev",
var.label="性別"
)
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>homework$a13 <- rec(homework$a13, rec="rev",
var.label="教育程度"
)
plot_frq(homework$a13, wrap.title=30,
sort.frq = "none", geom.colors = "pink", 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>homework$h18 <- rec(homework$h18, rec="rev",
var.label="工作與收入" )
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 萬元以上
homework$h19 <- rec(homework$h19, rec="rev",
var.label="全家每月收入" )
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>homework$h16 <- rec(homework$h16, rec="rev",
var.label="政黨偏好" )
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>homework$a16 <- rec(homework$a16, rec="rev",
var.label="環保意識" )
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>homework$a17 <- rec(homework$a17, rec="rev",
var.label="請問您用餐時，常不常使用店家所提供的免洗餐具?" )
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>homework$a18 <- rec(homework$a18, rec="rev",
var.label="請問您在外喝水時，常不常使用瓶裝水或紙杯?" )
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, 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.
#t檢定（性別）
library(sjPlot)
tab_xtab(homework$b7, homework$a1, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| b7 | 性別 | Total | |
|---|---|---|---|
| 女 | 男 | ||
| 空氣污染 | 458 53 % 52.3 % |
406 47 % 48 % |
864 100 % 50.2 % |
| 農藥和化學肥料 | 52 53.6 % 5.9 % |
45 46.4 % 5.3 % |
97 100 % 5.6 % |
| 水資源短缺 | 18 28.6 % 2.1 % |
45 71.4 % 5.3 % |
63 100 % 3.7 % |
| 水質污染 | 58 44.3 % 6.6 % |
73 55.7 % 8.6 % |
131 100 % 7.6 % |
| 核廢料 | 40 48.2 % 4.6 % |
43 51.8 % 5.1 % |
83 100 % 4.8 % |
| 家庭廢棄物 | 62 44.9 % 7.1 % |
76 55.1 % 9 % |
138 100 % 8 % |
| 氣候變遷 | 97 51.1 % 11.1 % |
93 48.9 % 11 % |
190 100 % 11 % |
| 基因改造食品 | 29 64.4 % 3.3 % |
16 35.6 % 1.9 % |
45 100 % 2.6 % |
| 自然資源耗盡 | 56 56 % 6.4 % |
44 44 % 5.2 % |
100 100 % 5.8 % |
| 以上皆非 | 6 60 % 0.7 % |
4 40 % 0.5 % |
10 100 % 0.6 % |
| Total | 876 50.9 % 100 % |
845 49.1 % 100 % |
1721 100 % 100 % |
| χ2=23.582 · df=9 · Cramer's V=0.117 · p=0.005 | |||
我們透過環保意識中的「請問您認為對台灣整體來說最重要的環境問題是哪一項?」的問卷題目與性別實施Ｔ檢定經過加權後可以發現卡方值為23.582，自由度為9，顯著性則是0.005<0.05。
這個結果意味著性別不同認為台灣最重要的環境問題有顯著的差異。我們可以觀察到女性在認為空氣污染53%、農藥和化學肥料53.6% 、氣候變遷51.1%、基因改造食品64.4%以及自然資源耗盡56%等項目百分比皆高於男性。但我們可以發現在「空氣污染」的項目中，雖然女性所佔的百分比較多，卻也是男性在所有項目中認為最重要的環境問題，兩性總合所佔的比例高達50.3%，遠高於其他項目。可見台灣民眾多數認為空氣污染是最重要的環境議題。
#t檢定（教育程度）
library(sjPlot)
tab_xtab(homework$b7, homework$a13, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| b7 | 教育程度 | Total | |||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 其他，請說明 | 博士 | 碩士 | 大學 | 技術學院、科大 | 軍警官校/軍警官大學 | 空中大學 | 空中行專/商專 | 軍警校專科班 | 軍警校專修班 | 三專 | 二專 | 五專 | 士官學校 | 高職 | 高中職業科 | 高中普通科 | 初職 | 國(初 )中 | 小學 | 自修/識字/私塾(跳答A16) | 無/不識字(跳答A16) | ||
| 空氣污染 | 1 0.1 % 100 % |
6 0.7 % 33.3 % |
47 5.5 % 38.8 % |
122 14.2 % 43.1 % |
93 10.8 % 47.7 % |
1 0.1 % 100 % |
2 0.2 % 50 % |
3 0.3 % 75 % |
1 0.1 % 100 % |
2 0.2 % 100 % |
8 0.9 % 50 % |
51 5.9 % 54.3 % |
28 3.3 % 53.8 % |
0 0 % 0 % |
172 20 % 52.9 % |
54 6.3 % 47.8 % |
40 4.6 % 52.6 % |
0 0 % 0 % |
129 15 % 58.9 % |
81 9.4 % 52.3 % |
2 0.2 % 50 % |
18 2.1 % 56.2 % |
861 100 % 50.1 % |
| 農藥和化學肥料 | 0 0 % 0 % |
2 2 % 11.1 % |
10 10.2 % 8.3 % |
9 9.2 % 3.2 % |
3 3.1 % 1.5 % |
0 0 % 0 % |
1 1 % 25 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 1 % 6.2 % |
5 5.1 % 5.3 % |
5 5.1 % 9.6 % |
0 0 % 0 % |
20 20.4 % 6.2 % |
3 3.1 % 2.7 % |
5 5.1 % 6.6 % |
1 1 % 100 % |
12 12.2 % 5.5 % |
16 16.3 % 10.3 % |
1 1 % 25 % |
4 4.1 % 12.5 % |
98 100 % 5.7 % |
| 水資源短缺 | 0 0 % 0 % |
1 1.6 % 5.6 % |
8 12.5 % 6.6 % |
8 12.5 % 2.8 % |
11 17.2 % 5.6 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 1.6 % 6.2 % |
2 3.1 % 2.1 % |
2 3.1 % 3.8 % |
0 0 % 0 % |
9 14.1 % 2.8 % |
4 6.2 % 3.5 % |
3 4.7 % 3.9 % |
0 0 % 0 % |
9 14.1 % 4.1 % |
3 4.7 % 1.9 % |
0 0 % 0 % |
3 4.7 % 9.4 % |
64 100 % 3.7 % |
| 水質污染 | 0 0 % 0 % |
0 0 % 0 % |
8 6.1 % 6.6 % |
22 16.8 % 7.8 % |
10 7.6 % 5.1 % |
0 0 % 0 % |
0 0 % 0 % |
1 0.8 % 25 % |
0 0 % 0 % |
0 0 % 0 % |
1 0.8 % 6.2 % |
7 5.3 % 7.4 % |
4 3.1 % 7.7 % |
1 0.8 % 33.3 % |
29 22.1 % 8.9 % |
10 7.6 % 8.8 % |
5 3.8 % 6.6 % |
0 0 % 0 % |
15 11.5 % 6.8 % |
16 12.2 % 10.3 % |
1 0.8 % 25 % |
1 0.8 % 3.1 % |
131 100 % 7.6 % |
| 核廢料 | 0 0 % 0 % |
0 0 % 0 % |
9 10.8 % 7.4 % |
22 26.5 % 7.8 % |
8 9.6 % 4.1 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
3 3.6 % 3.2 % |
2 2.4 % 3.8 % |
0 0 % 0 % |
12 14.5 % 3.7 % |
9 10.8 % 8 % |
3 3.6 % 3.9 % |
0 0 % 0 % |
9 10.8 % 4.1 % |
6 7.2 % 3.9 % |
0 0 % 0 % |
0 0 % 0 % |
83 100 % 4.8 % |
| 家庭廢棄物 | 0 0 % 0 % |
1 0.7 % 5.6 % |
10 7.2 % 8.3 % |
26 18.8 % 9.2 % |
20 14.5 % 10.3 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 0.7 % 6.2 % |
11 8 % 11.7 % |
1 0.7 % 1.9 % |
0 0 % 0 % |
25 18.1 % 7.7 % |
13 9.4 % 11.5 % |
4 2.9 % 5.3 % |
0 0 % 0 % |
15 10.9 % 6.8 % |
9 6.5 % 5.8 % |
0 0 % 0 % |
2 1.4 % 6.2 % |
138 100 % 8 % |
| 氣候變遷 | 0 0 % 0 % |
5 2.6 % 27.8 % |
18 9.5 % 14.9 % |
42 22.1 % 14.8 % |
31 16.3 % 15.9 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 0.5 % 6.2 % |
5 2.6 % 5.3 % |
4 2.1 % 7.7 % |
0 0 % 0 % |
34 17.9 % 10.5 % |
14 7.4 % 12.4 % |
10 5.3 % 13.2 % |
0 0 % 0 % |
12 6.3 % 5.5 % |
11 5.8 % 7.1 % |
0 0 % 0 % |
3 1.6 % 9.4 % |
190 100 % 11 % |
| 基因改造食品 | 0 0 % 0 % |
0 0 % 0 % |
1 2.2 % 0.8 % |
8 17.8 % 2.8 % |
2 4.4 % 1 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 2.2 % 6.2 % |
2 4.4 % 2.1 % |
0 0 % 0 % |
0 0 % 0 % |
12 26.7 % 3.7 % |
3 6.7 % 2.7 % |
5 11.1 % 6.6 % |
0 0 % 0 % |
4 8.9 % 1.8 % |
7 15.6 % 4.5 % |
0 0 % 0 % |
0 0 % 0 % |
45 100 % 2.6 % |
| 自然資源耗盡 | 0 0 % 0 % |
2 2 % 11.1 % |
10 10 % 8.3 % |
23 23 % 8.1 % |
15 15 % 7.7 % |
0 0 % 0 % |
1 1 % 25 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
2 2 % 12.5 % |
8 8 % 8.5 % |
5 5 % 9.6 % |
2 2 % 66.7 % |
11 11 % 3.4 % |
2 2 % 1.8 % |
1 1 % 1.3 % |
0 0 % 0 % |
12 12 % 5.5 % |
5 5 % 3.2 % |
0 0 % 0 % |
1 1 % 3.1 % |
100 100 % 5.8 % |
| 以上皆非 | 0 0 % 0 % |
1 10 % 5.6 % |
0 0 % 0 % |
1 10 % 0.4 % |
2 20 % 1 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 10 % 1.9 % |
0 0 % 0 % |
1 10 % 0.3 % |
1 10 % 0.9 % |
0 0 % 0 % |
0 0 % 0 % |
2 20 % 0.9 % |
1 10 % 0.6 % |
0 0 % 0 % |
0 0 % 0 % |
10 100 % 0.6 % |
| Total | 1 0.1 % 100 % |
18 1 % 100 % |
121 7 % 100 % |
283 16.5 % 100 % |
195 11.3 % 100 % |
1 0.1 % 100 % |
4 0.2 % 100 % |
4 0.2 % 100 % |
1 0.1 % 100 % |
2 0.1 % 100 % |
16 0.9 % 100 % |
94 5.5 % 100 % |
52 3 % 100 % |
3 0.2 % 100 % |
325 18.9 % 100 % |
113 6.6 % 100 % |
76 4.4 % 100 % |
1 0.1 % 100 % |
219 12.7 % 100 % |
155 9 % 100 % |
4 0.2 % 100 % |
32 1.9 % 100 % |
1720 100 % 100 % |
| χ2=216.306 · df=189 · Cramer's V=0.118 · Fisher's p=0.005 | |||||||||||||||||||||||
我們接下來透過教育程度對「請問您認為對台灣整體來說最重要的環境問題是哪一項?」實施Ｔ檢定，卡方值為216.306，自由度為189，顯著性是0.003<0.05。這項數據代表了不同的教育程度對於台灣最重要的環境問題有顯著性的差異。
#t檢定（政黨）
library(sjPlot)
tab_xtab(homework$b7, homework$h16, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| b7 | 政黨偏好 | Total | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 有支持政黨，但不回答 | 泛綠 | 泛藍 | 其他，請說明 | 無黨籍 | 台灣基進 | 綠黨 | 台灣民眾黨 | 時代力量 | 親民黨 | 新黨 | 民進黨 | 國民黨 | ||
| 空氣污染 | 45 5.8 % 41.7 % |
15 1.9 % 44.1 % |
11 1.4 % 47.8 % |
300 38.8 % 49.6 % |
122 15.8 % 57 % |
6 0.8 % 42.9 % |
3 0.4 % 50 % |
16 2.1 % 42.1 % |
12 1.6 % 42.9 % |
2 0.3 % 33.3 % |
2 0.3 % 66.7 % |
118 15.3 % 43.4 % |
121 15.7 % 55.5 % |
773 100 % 49.3 % |
| 農藥和化學肥料 | 3 3.6 % 2.8 % |
2 2.4 % 5.9 % |
1 1.2 % 4.3 % |
40 47.6 % 6.6 % |
8 9.5 % 3.7 % |
1 1.2 % 7.1 % |
0 0 % 0 % |
4 4.8 % 10.5 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
14 16.7 % 5.1 % |
11 13.1 % 5 % |
84 100 % 5.4 % |
| 水資源短缺 | 4 6.8 % 3.7 % |
0 0 % 0 % |
1 1.7 % 4.3 % |
30 50.8 % 5 % |
6 10.2 % 2.8 % |
1 1.7 % 7.1 % |
0 0 % 0 % |
3 5.1 % 7.9 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
10 16.9 % 3.7 % |
4 6.8 % 1.8 % |
59 100 % 3.8 % |
| 水質污染 | 9 7.5 % 8.3 % |
4 3.3 % 11.8 % |
1 0.8 % 4.3 % |
49 40.8 % 8.1 % |
14 11.7 % 6.5 % |
1 0.8 % 7.1 % |
0 0 % 0 % |
1 0.8 % 2.6 % |
5 4.2 % 17.9 % |
0 0 % 0 % |
0 0 % 0 % |
21 17.5 % 7.7 % |
15 12.5 % 6.9 % |
120 100 % 7.6 % |
| 核廢料 | 4 5.1 % 3.7 % |
3 3.8 % 8.8 % |
2 2.6 % 8.7 % |
26 33.3 % 4.3 % |
11 14.1 % 5.1 % |
0 0 % 0 % |
1 1.3 % 16.7 % |
3 3.8 % 7.9 % |
1 1.3 % 3.6 % |
0 0 % 0 % |
0 0 % 0 % |
22 28.2 % 8.1 % |
5 6.4 % 2.3 % |
78 100 % 5 % |
| 家庭廢棄物 | 10 7.5 % 9.3 % |
4 3 % 11.8 % |
2 1.5 % 8.7 % |
57 42.9 % 9.4 % |
17 12.8 % 7.9 % |
3 2.3 % 21.4 % |
1 0.8 % 16.7 % |
3 2.3 % 7.9 % |
2 1.5 % 7.1 % |
0 0 % 0 % |
0 0 % 0 % |
18 13.5 % 6.6 % |
16 12 % 7.3 % |
133 100 % 8.5 % |
| 氣候變遷 | 15 8.2 % 13.9 % |
4 2.2 % 11.8 % |
4 2.2 % 17.4 % |
51 27.7 % 8.4 % |
23 12.5 % 10.7 % |
2 1.1 % 14.3 % |
0 0 % 0 % |
5 2.7 % 13.2 % |
6 3.3 % 21.4 % |
2 1.1 % 33.3 % |
1 0.5 % 33.3 % |
45 24.5 % 16.5 % |
26 14.1 % 11.9 % |
184 100 % 11.7 % |
| 基因改造食品 | 4 11.4 % 3.7 % |
1 2.9 % 2.9 % |
1 2.9 % 4.3 % |
12 34.3 % 2 % |
4 11.4 % 1.9 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
7 20 % 2.6 % |
6 17.1 % 2.8 % |
35 100 % 2.2 % |
| 自然資源耗盡 | 13 14.1 % 12 % |
1 1.1 % 2.9 % |
0 0 % 0 % |
32 34.8 % 5.3 % |
9 9.8 % 4.2 % |
0 0 % 0 % |
1 1.1 % 16.7 % |
3 3.3 % 7.9 % |
2 2.2 % 7.1 % |
2 2.2 % 33.3 % |
0 0 % 0 % |
16 17.4 % 5.9 % |
13 14.1 % 6 % |
92 100 % 5.9 % |
| 以上皆非 | 1 9.1 % 0.9 % |
0 0 % 0 % |
0 0 % 0 % |
8 72.7 % 1.3 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 9.1 % 0.4 % |
1 9.1 % 0.5 % |
11 100 % 0.7 % |
| Total | 108 6.9 % 100 % |
34 2.2 % 100 % |
23 1.5 % 100 % |
605 38.6 % 100 % |
214 13.6 % 100 % |
14 0.9 % 100 % |
6 0.4 % 100 % |
38 2.4 % 100 % |
28 1.8 % 100 % |
6 0.4 % 100 % |
3 0.2 % 100 % |
272 17.3 % 100 % |
218 13.9 % 100 % |
1569 100 % 100 % |
| χ2=107.330 · df=108 · Cramer's V=0.087 · Fisher's p=0.299 | ||||||||||||||
我們再用政黨偏好對「請問您認為對台灣整體來說最重要的環境問題是哪一項?」實施Ｔ檢定，卡方值為107.330，自由度為108，顯著性為0.289>0.05為不顯著。意味著台灣民眾在不同的政黨偏好情況下，認為台灣最重要的環境問題沒有顯著差異。
#請問您認為氣候變遷對全球會有怎麼樣的影響?從 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", coord.flip = T, geom.colors = "red")
plot_grpfrq(homework$b9ar, 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$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", coord.flip = T, geom.colors = "red")
plot_grpfrq(homework$b9br, 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.
#請問您同不同意以下說法?
##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", coord.flip = T, geom.colors = "red")
plot_grpfrq(homework$b10ar, 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.
##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", coord.flip = T, geom.colors = "red")
plot_grpfrq(homework$b10br, 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.
##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", coord.flip = T, geom.colors = "red")
plot_grpfrq(homework$b10cr, 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.
##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", coord.flip = T, geom.colors = "red")
plot_grpfrq(homework$b10dr, 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.
##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", coord.flip = T, geom.colors = "red")
plot_grpfrq(homework$b10er, 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.
##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", coord.flip = T, geom.colors = "red")
plot_grpfrq(homework$b10fr, 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.
#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", coord.flip = T, geom.colors = "red")
plot_grpfrq(homework$b11ar, 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.
##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", coord.flip = T, geom.colors = "red")
plot_grpfrq(homework$b11br, 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.
##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", coord.flip = T, 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", coord.flip = T, 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", coord.flip = T, 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", coord.flip = T, 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", coord.flip = T, 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", coord.flip = T, 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", coord.flip = T, 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", coord.flip = T, 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", coord.flip = T, 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", coord.flip = T, 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", coord.flip = T, 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", coord.flip = T, 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", coord.flip = T, 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", coord.flip = T, 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", coord.flip = T, 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", coord.flip = T, 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$b14a <- rec(homework$b14a, rec="rev",
var.label="請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法?")
frq(homework$b14a)請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法? (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$b14a, sort.frq= "none", coord.flip = T, geom.colors = "red")
#t檢定（性別）
library(sjPlot)
tab_xtab(homework$b14a, homework$a1, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| 請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法? | 性別 | Total | |
|---|---|---|---|
| 女 | 男 | ||
| 對企業提供更多關於保護環境之好處的資訊與教育 | 286 51.7 % 32.3 % |
267 48.3 % 31.2 % |
553 100 % 31.8 % |
| 保護環境的企業可以繳比較少的稅 | 204 47.2 % 23 % |
228 52.8 % 26.7 % |
432 100 % 24.8 % |
| 對於破壞環境的企業處以高額罰金 | 396 52.4 % 44.7 % |
360 47.6 % 42.1 % |
756 100 % 43.4 % |
| Total | 886 50.9 % 100 % |
855 49.1 % 100 % |
1741 100 % 100 % |
| χ2=3.149 · df=2 · Cramer's V=0.043 · p=0.207 | |||
在性別與「請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法?」的環境意識題目中，我們使用Ｔ檢定來執行，結果為卡方值為3.149，自由度為2，顯著性為0.207>0.05，代表台灣民眾在認為台灣企業和產業保護環境最好的方法上，並沒有顯著差異。
#t檢定（教育程度）
library(sjPlot)
tab_xtab(homework$b14a, homework$a13, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| 請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法? | 教育程度 | Total | |||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 其他，請說明 | 博士 | 碩士 | 大學 | 技術學院、科大 | 軍警官校/軍警官大學 | 空中大學 | 空中行專/商專 | 軍警校專科班 | 軍警校專修班 | 三專 | 二專 | 五專 | 士官學校 | 高職 | 高中職業科 | 高中普通科 | 初職 | 國(初 )中 | 小學 | 自修/識字/私塾(跳答A16) | 無/不識字(跳答A16) | ||
| 對企業提供更多關於保護環境之好處的資訊與教育 | 0 0 % 0 % |
2 0.4 % 11.1 % |
24 4.3 % 19.8 % |
69 12.5 % 23.7 % |
39 7.1 % 19.9 % |
0 0 % 0 % |
3 0.5 % 75 % |
3 0.5 % 75 % |
0 0 % 0 % |
0 0 % 0 % |
5 0.9 % 29.4 % |
32 5.8 % 33 % |
17 3.1 % 34 % |
3 0.5 % 100 % |
118 21.3 % 35.4 % |
36 6.5 % 31.6 % |
30 5.4 % 42.3 % |
1 0.2 % 100 % |
95 17.2 % 42.4 % |
64 11.6 % 40 % |
2 0.4 % 66.7 % |
10 1.8 % 35.7 % |
553 100 % 31.8 % |
| 保護環境的企業可以繳比較少的稅 | 1 0.2 % 100 % |
8 1.9 % 44.4 % |
45 10.4 % 37.2 % |
100 23.2 % 34.4 % |
79 18.3 % 40.3 % |
0 0 % 0 % |
0 0 % 0 % |
1 0.2 % 25 % |
0 0 % 0 % |
0 0 % 0 % |
2 0.5 % 11.8 % |
28 6.5 % 28.9 % |
14 3.2 % 28 % |
0 0 % 0 % |
60 13.9 % 18 % |
26 6 % 22.8 % |
15 3.5 % 21.1 % |
0 0 % 0 % |
24 5.6 % 10.7 % |
23 5.3 % 14.4 % |
1 0.2 % 33.3 % |
4 0.9 % 14.3 % |
431 100 % 24.8 % |
| 對於破壞環境的企業處以高額罰金 | 0 0 % 0 % |
8 1.1 % 44.4 % |
52 6.9 % 43 % |
122 16.1 % 41.9 % |
78 10.3 % 39.8 % |
1 0.1 % 100 % |
1 0.1 % 25 % |
0 0 % 0 % |
1 0.1 % 100 % |
2 0.3 % 100 % |
10 1.3 % 58.8 % |
37 4.9 % 38.1 % |
19 2.5 % 38 % |
0 0 % 0 % |
155 20.5 % 46.5 % |
52 6.9 % 45.6 % |
26 3.4 % 36.6 % |
0 0 % 0 % |
105 13.9 % 46.9 % |
73 9.7 % 45.6 % |
0 0 % 0 % |
14 1.9 % 50 % |
756 100 % 43.4 % |
| Total | 1 0.1 % 100 % |
18 1 % 100 % |
121 7 % 100 % |
291 16.7 % 100 % |
196 11.3 % 100 % |
1 0.1 % 100 % |
4 0.2 % 100 % |
4 0.2 % 100 % |
1 0.1 % 100 % |
2 0.1 % 100 % |
17 1 % 100 % |
97 5.6 % 100 % |
50 2.9 % 100 % |
3 0.2 % 100 % |
333 19.1 % 100 % |
114 6.6 % 100 % |
71 4.1 % 100 % |
1 0.1 % 100 % |
224 12.9 % 100 % |
160 9.2 % 100 % |
3 0.2 % 100 % |
28 1.6 % 100 % |
1740 100 % 100 % |
| χ2=145.546 · df=42 · Cramer's V=0.205 · Fisher's p=0.000 | |||||||||||||||||||||||
在教育程度與「請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法?」的環境意識題目中，我們使用Ｔ檢定來執行，結果為卡方值為145.546，自由度為42，顯著性為0.000<0.05。代表台灣民眾在不同的教育程度下，對於促使台灣企業和產業保護環境的最好方法上有顯著差異。
#t檢定（政黨）
library(sjPlot)
tab_xtab(homework$b14a, homework$h16, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色））
)| 請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法? | 政黨偏好 | Total | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 有支持政黨，但不回答 | 泛綠 | 泛藍 | 其他，請說明 | 無黨籍 | 台灣基進 | 綠黨 | 台灣民眾黨 | 時代力量 | 親民黨 | 新黨 | 民進黨 | 國民黨 | ||
| 對企業提供更多關於保護環境之好處的資訊與教育 | 45 9 % 40.5 % |
5 1 % 14.7 % |
8 1.6 % 34.8 % |
178 35.7 % 29.2 % |
73 14.6 % 32.4 % |
6 1.2 % 42.9 % |
3 0.6 % 42.9 % |
9 1.8 % 24.3 % |
4 0.8 % 14.8 % |
2 0.4 % 33.3 % |
0 0 % 0 % |
91 18.2 % 33.2 % |
75 15 % 34.4 % |
499 100 % 31.4 % |
| 保護環境的企業可以繳比較少的稅 | 24 6 % 21.6 % |
17 4.2 % 50 % |
3 0.7 % 13 % |
157 39.2 % 25.7 % |
64 16 % 28.4 % |
7 1.7 % 50 % |
2 0.5 % 28.6 % |
12 3 % 32.4 % |
10 2.5 % 37 % |
2 0.5 % 33.3 % |
1 0.2 % 33.3 % |
52 13 % 19 % |
50 12.5 % 22.9 % |
401 100 % 25.2 % |
| 對於破壞環境的企業處以高額罰金 | 42 6.1 % 37.8 % |
12 1.7 % 35.3 % |
12 1.7 % 52.2 % |
275 39.9 % 45.1 % |
88 12.8 % 39.1 % |
1 0.1 % 7.1 % |
2 0.3 % 28.6 % |
16 2.3 % 43.2 % |
13 1.9 % 48.1 % |
2 0.3 % 33.3 % |
2 0.3 % 66.7 % |
131 19 % 47.8 % |
93 13.5 % 42.7 % |
689 100 % 43.4 % |
| Total | 111 7 % 100 % |
34 2.1 % 100 % |
23 1.4 % 100 % |
610 38.4 % 100 % |
225 14.2 % 100 % |
14 0.9 % 100 % |
7 0.4 % 100 % |
37 2.3 % 100 % |
27 1.7 % 100 % |
6 0.4 % 100 % |
3 0.2 % 100 % |
274 17.2 % 100 % |
218 13.7 % 100 % |
1589 100 % 100 % |
| χ2=44.158 · df=24 · Cramer's V=0.118 · Fisher's p=0.002 | ||||||||||||||
在政黨偏好與「請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法?」的環境意識題目中，我們使用Ｔ檢定來執行，卡方值為44.158，自由度為24，顯著性為0.002<0.05，可以顯示台灣民眾因為政黨偏好不同，認為促使台灣企業和產業保護環境的最好方法有顯著差異。
##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.
#t檢定（性別）
library(sjPlot)
tab_xtab(homework$b14b, homework$a1, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| b14b | 性別 | Total | |
|---|---|---|---|
| 女 | 男 | ||
| 對於破壞環境的民眾處以高額罰金 | 324 50.6 % 35.9 % |
316 49.4 % 36.5 % |
640 100 % 36.2 % |
| 保護環境的民眾可以繳比較少的稅 | 183 54.3 % 20.3 % |
154 45.7 % 17.8 % |
337 100 % 19.1 % |
| 對民眾提供更多關於保護環境之好處的資訊與教育 | 395 50 % 43.8 % |
395 50 % 45.7 % |
790 100 % 44.7 % |
| Total | 902 51 % 100 % |
865 49 % 100 % |
1767 100 % 100 % |
| χ2=1.822 · df=2 · Cramer's V=0.032 · p=0.402 | |||
在性別與「請問您認為以下哪一個方法是促使台灣民眾保護環境的最好方法?」的環境意識題目中，我們使用Ｔ檢定來執行，結果為卡方值為1.822，自由度為2，顯著性為0.402>0.05，代表不同性別對於認為促使台灣民眾保護環境的最好方法上，並沒有顯著差異。
#t檢定（教育程度）
library(sjPlot)
tab_xtab(homework$b14b, homework$a13, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| b14b | 教育程度 | Total | |||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 其他，請說明 | 博士 | 碩士 | 大學 | 技術學院、科大 | 軍警官校/軍警官大學 | 空中大學 | 空中行專/商專 | 軍警校專科班 | 軍警校專修班 | 三專 | 二專 | 五專 | 士官學校 | 高職 | 高中職業科 | 高中普通科 | 初職 | 國(初 )中 | 小學 | 自修/識字/私塾(跳答A16) | 無/不識字(跳答A16) | ||
| 對於破壞環境的民眾處以高額罰金 | 0 0 % 0 % |
6 0.9 % 35.3 % |
38 5.9 % 31.7 % |
115 18 % 39.7 % |
70 10.9 % 35 % |
1 0.2 % 100 % |
1 0.2 % 25 % |
1 0.2 % 25 % |
0 0 % 0 % |
1 0.2 % 50 % |
8 1.2 % 44.4 % |
32 5 % 32.7 % |
15 2.3 % 29.4 % |
0 0 % 0 % |
147 23 % 43.2 % |
29 4.5 % 25.4 % |
20 3.1 % 27 % |
0 0 % 0 % |
79 12.3 % 35.3 % |
63 9.8 % 38 % |
1 0.2 % 33.3 % |
13 2 % 41.9 % |
640 100 % 36.3 % |
| 保護環境的民眾可以繳比較少的稅 | 0 0 % 0 % |
3 0.9 % 17.6 % |
38 11.3 % 31.7 % |
67 19.9 % 23.1 % |
60 17.9 % 30 % |
0 0 % 0 % |
1 0.3 % 25 % |
0 0 % 0 % |
1 0.3 % 100 % |
0 0 % 0 % |
3 0.9 % 16.7 % |
16 4.8 % 16.3 % |
12 3.6 % 23.5 % |
0 0 % 0 % |
43 12.8 % 12.6 % |
27 8 % 23.7 % |
8 2.4 % 10.8 % |
0 0 % 0 % |
35 10.4 % 15.6 % |
18 5.4 % 10.8 % |
1 0.3 % 33.3 % |
3 0.9 % 9.7 % |
336 100 % 19.1 % |
| 對民眾提供更多關於保護環境之好處的資訊與教育 | 1 0.1 % 100 % |
8 1 % 47.1 % |
44 5.6 % 36.7 % |
108 13.7 % 37.2 % |
70 8.9 % 35 % |
0 0 % 0 % |
2 0.3 % 50 % |
3 0.4 % 75 % |
0 0 % 0 % |
1 0.1 % 50 % |
7 0.9 % 38.9 % |
50 6.4 % 51 % |
24 3 % 47.1 % |
3 0.4 % 100 % |
150 19.1 % 44.1 % |
58 7.4 % 50.9 % |
46 5.8 % 62.2 % |
1 0.1 % 100 % |
110 14 % 49.1 % |
85 10.8 % 51.2 % |
1 0.1 % 33.3 % |
15 1.9 % 48.4 % |
787 100 % 44.6 % |
| Total | 1 0.1 % 100 % |
17 1 % 100 % |
120 6.8 % 100 % |
290 16.4 % 100 % |
200 11.3 % 100 % |
1 0.1 % 100 % |
4 0.2 % 100 % |
4 0.2 % 100 % |
1 0.1 % 100 % |
2 0.1 % 100 % |
18 1 % 100 % |
98 5.6 % 100 % |
51 2.9 % 100 % |
3 0.2 % 100 % |
340 19.3 % 100 % |
114 6.5 % 100 % |
74 4.2 % 100 % |
1 0.1 % 100 % |
224 12.7 % 100 % |
166 9.4 % 100 % |
3 0.2 % 100 % |
31 1.8 % 100 % |
1763 100 % 100 % |
| χ2=93.921 · df=42 · Cramer's V=0.163 · Fisher's p=0.000 | |||||||||||||||||||||||
在教育程度與「請問您認為以下哪一個方法是促使台灣民眾保護環境的最好方法?」的環境意識題目中，我們使用Ｔ檢定來執行，結果為卡方值為93.921，自由度為42，顯著性為0.00<0.05，代表不同教育程度對於認為促使台灣民眾保護環境的最好方法上，並有顯著差異。
#t檢定（政黨）
library(sjPlot)
tab_xtab(homework$b14b, homework$h16, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色））
)| b14b | 政黨偏好 | Total | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 有支持政黨，但不回答 | 泛綠 | 泛藍 | 其他，請說明 | 無黨籍 | 台灣基進 | 綠黨 | 台灣民眾黨 | 時代力量 | 親民黨 | 新黨 | 民進黨 | 國民黨 | ||
| 對於破壞環境的民眾處以高額罰金 | 35 6.1 % 31.8 % |
9 1.6 % 25.7 % |
9 1.6 % 40.9 % |
224 38.8 % 35.6 % |
84 14.5 % 36.8 % |
4 0.7 % 28.6 % |
3 0.5 % 42.9 % |
15 2.6 % 40.5 % |
14 2.4 % 51.9 % |
2 0.3 % 33.3 % |
1 0.2 % 33.3 % |
106 18.3 % 38.7 % |
72 12.5 % 32.9 % |
578 100 % 35.9 % |
| 保護環境的民眾可以繳比較少的稅 | 22 7 % 20 % |
13 4.1 % 37.1 % |
4 1.3 % 18.2 % |
116 36.8 % 18.4 % |
44 14 % 19.3 % |
3 1 % 21.4 % |
3 1 % 42.9 % |
7 2.2 % 18.9 % |
7 2.2 % 25.9 % |
1 0.3 % 16.7 % |
0 0 % 0 % |
51 16.2 % 18.6 % |
44 14 % 20.1 % |
315 100 % 19.6 % |
| 對民眾提供更多關於保護環境之好處的資訊與教育 | 53 7.4 % 48.2 % |
13 1.8 % 37.1 % |
9 1.3 % 40.9 % |
289 40.3 % 45.9 % |
100 13.9 % 43.9 % |
7 1 % 50 % |
1 0.1 % 14.3 % |
15 2.1 % 40.5 % |
6 0.8 % 22.2 % |
3 0.4 % 50 % |
2 0.3 % 66.7 % |
117 16.3 % 42.7 % |
103 14.3 % 47 % |
718 100 % 44.6 % |
| Total | 110 6.8 % 100 % |
35 2.2 % 100 % |
22 1.4 % 100 % |
629 39 % 100 % |
228 14.2 % 100 % |
14 0.9 % 100 % |
7 0.4 % 100 % |
37 2.3 % 100 % |
27 1.7 % 100 % |
6 0.4 % 100 % |
3 0.2 % 100 % |
274 17 % 100 % |
219 13.6 % 100 % |
1611 100 % 100 % |
| χ2=21.326 · df=24 · Cramer's V=0.081 · Fisher's p=0.600 | ||||||||||||||
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）在政黨偏好與「請問您認為以下哪一個方法是促使台灣民眾保護環境的最好方法?」的環境意識題目中，我們使用Ｔ檢定來執行，結果為卡方值為21.326，自由度為24，顯著性為0.600>0.05，代表不同政黨偏好對於認為促使台灣民眾保護環境的最好方法上，並沒有顯著差異。
#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", coord.flip = T, 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", coord.flip = T, 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", coord.flip = T, 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.
#t檢定（性別）
library(sjPlot)
tab_xtab(homework$b20, homework$a1, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| b20 | 性別 | Total | |
|---|---|---|---|
| 女 | 男 | ||
| 是 | 41 60.3 % 4.3 % |
27 39.7 % 3 % |
68 100 % 3.7 % |
| 否 | 905 51.1 % 95.7 % |
865 48.9 % 97 % |
1770 100 % 96.3 % |
| Total | 946 51.5 % 100 % |
892 48.5 % 100 % |
1838 100 % 100 % |
| χ2=1.850 · df=1 · φ=0.035 · p=0.174 | |||
在性別與「請問您是環保團體的成員嗎?」的問題中，經過Ｔ檢定的統計結果，卡方值為1.850，自由度為1，顯著性為0.174>0.05，因此性別與是否為環保團體並沒有顯著差異。
#t檢定（教育程度）
library(sjPlot)
tab_xtab(homework$b20, homework$a13, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| b20 | 教育程度 | Total | |||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 其他，請說明 | 博士 | 碩士 | 大學 | 技術學院、科大 | 軍警官校/軍警官大學 | 空中大學 | 空中行專/商專 | 軍警校專科班 | 軍警校專修班 | 三專 | 二專 | 五專 | 士官學校 | 高職 | 高中職業科 | 高中普通科 | 初職 | 國(初 )中 | 小學 | 自修/識字/私塾(跳答A16) | 無/不識字(跳答A16) | ||
| 是 | 0 0 % 0 % |
1 1.5 % 5.6 % |
2 3 % 1.6 % |
8 11.9 % 2.7 % |
3 4.5 % 1.5 % |
0 0 % 0 % |
1 1.5 % 25 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 1.5 % 5.6 % |
2 3 % 2 % |
1 1.5 % 1.9 % |
0 0 % 0 % |
15 22.4 % 4.4 % |
4 6 % 3.4 % |
1 1.5 % 1.3 % |
0 0 % 0 % |
11 16.4 % 4.6 % |
15 22.4 % 7.9 % |
1 1.5 % 25 % |
1 1.5 % 2.1 % |
67 100 % 3.7 % |
| 否 | 1 0.1 % 100 % |
17 1 % 94.4 % |
120 6.8 % 98.4 % |
283 16 % 97.3 % |
200 11.3 % 98.5 % |
1 0.1 % 100 % |
3 0.2 % 75 % |
4 0.2 % 100 % |
1 0.1 % 100 % |
2 0.1 % 100 % |
17 1 % 94.4 % |
96 5.4 % 98 % |
51 2.9 % 98.1 % |
3 0.2 % 100 % |
328 18.6 % 95.6 % |
113 6.4 % 96.6 % |
75 4.2 % 98.7 % |
1 0.1 % 100 % |
227 12.8 % 95.4 % |
176 10 % 92.1 % |
3 0.2 % 75 % |
46 2.6 % 97.9 % |
1768 100 % 96.3 % |
| Total | 1 0.1 % 100 % |
18 1 % 100 % |
122 6.6 % 100 % |
291 15.9 % 100 % |
203 11.1 % 100 % |
1 0.1 % 100 % |
4 0.2 % 100 % |
4 0.2 % 100 % |
1 0.1 % 100 % |
2 0.1 % 100 % |
18 1 % 100 % |
98 5.3 % 100 % |
52 2.8 % 100 % |
3 0.2 % 100 % |
343 18.7 % 100 % |
117 6.4 % 100 % |
76 4.1 % 100 % |
1 0.1 % 100 % |
238 13 % 100 % |
191 10.4 % 100 % |
4 0.2 % 100 % |
47 2.6 % 100 % |
1835 100 % 100 % |
| χ2=29.434 · df=21 · Cramer's V=0.127 · Fisher's p=0.069 | |||||||||||||||||||||||
在教育程度與「請問您是環保團體的成員嗎?」的問題中，經過Ｔ檢定的統計結果，卡方值為29.434，自由度為21，顯著性為0.077>0.05，因此教育程度與是否為環保團體並沒有顯著差異。
#t檢定（政黨）
library(sjPlot)
tab_xtab(homework$b20, homework$h16, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色））
)| b20 | 政黨偏好 | Total | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 有支持政黨，但不回答 | 泛綠 | 泛藍 | 其他，請說明 | 無黨籍 | 台灣基進 | 綠黨 | 台灣民眾黨 | 時代力量 | 親民黨 | 新黨 | 民進黨 | 國民黨 | ||
| 是 | 5 7.5 % 4.5 % |
2 3 % 5.9 % |
0 0 % 0 % |
25 37.3 % 3.8 % |
10 14.9 % 4.1 % |
1 1.5 % 7.1 % |
2 3 % 28.6 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
12 17.9 % 4.3 % |
10 14.9 % 4.4 % |
67 100 % 4 % |
| 否 | 107 6.7 % 95.5 % |
32 2 % 94.1 % |
22 1.4 % 100 % |
633 39.5 % 96.2 % |
234 14.6 % 95.9 % |
13 0.8 % 92.9 % |
5 0.3 % 71.4 % |
38 2.4 % 100 % |
27 1.7 % 100 % |
6 0.4 % 100 % |
3 0.2 % 100 % |
269 16.8 % 95.7 % |
215 13.4 % 95.6 % |
1604 100 % 96 % |
| Total | 112 6.7 % 100 % |
34 2 % 100 % |
22 1.3 % 100 % |
658 39.4 % 100 % |
244 14.6 % 100 % |
14 0.8 % 100 % |
7 0.4 % 100 % |
38 2.3 % 100 % |
27 1.6 % 100 % |
6 0.4 % 100 % |
3 0.2 % 100 % |
281 16.8 % 100 % |
225 13.5 % 100 % |
1671 100 % 100 % |
| χ2=15.950 · df=12 · Cramer's V=0.098 · Fisher's p=0.407 | ||||||||||||||
在政黨偏好與「請問您是環保團體的成員嗎?」的問題中，經過Ｔ檢定的統計結果，卡方值為15.950，自由度為12，顯著性為0.393>0.05，因此政黨偏好與是否為環保團體並沒有顯著差異。
#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.
#t檢定（性別）
library(sjPlot)
tab_xtab(homework$b21a, homework$a1, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| b21a | 性別 | Total | |
|---|---|---|---|
| 女 | 男 | ||
| 有 | 106 63.5 % 11.2 % |
61 36.5 % 6.8 % |
167 100 % 9.1 % |
| 沒有 | 840 50.2 % 88.8 % |
832 49.8 % 93.2 % |
1672 100 % 90.9 % |
| Total | 946 51.4 % 100 % |
893 48.6 % 100 % |
1839 100 % 100 % |
| χ2=10.122 · df=1 · φ=0.076 · p=0.001 | |||
在性別與「五年內連署一份有關環保議題的請願書」的問題中，經過Ｔ檢定的統計結果，卡方值為10.122，自由度為1，顯著性為0.001<0.05，因此性別與五年內連署一份有關環保議題的請願書有顯著差異。
我們可以發現，在五年內有連署環保議題請願書的人，有高達63.5%為女性遠高於男性的36.5％。
#t檢定（教育程度）
library(sjPlot)
tab_xtab(homework$b21a, homework$a13, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| b21a | 教育程度 | Total | |||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 其他，請說明 | 博士 | 碩士 | 大學 | 技術學院、科大 | 軍警官校/軍警官大學 | 空中大學 | 空中行專/商專 | 軍警校專科班 | 軍警校專修班 | 三專 | 二專 | 五專 | 士官學校 | 高職 | 高中職業科 | 高中普通科 | 初職 | 國(初 )中 | 小學 | 自修/識字/私塾(跳答A16) | 無/不識字(跳答A16) | ||
| 有 | 0 0 % 0 % |
3 1.8 % 16.7 % |
28 16.8 % 23 % |
50 29.9 % 17.2 % |
34 20.4 % 16.7 % |
0 0 % 0 % |
2 1.2 % 50 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 0.6 % 5.6 % |
10 6 % 10.1 % |
8 4.8 % 15.4 % |
0 0 % 0 % |
11 6.6 % 3.2 % |
9 5.4 % 7.7 % |
6 3.6 % 7.8 % |
0 0 % 0 % |
2 1.2 % 0.8 % |
3 1.8 % 1.6 % |
0 0 % 0 % |
0 0 % 0 % |
167 100 % 9.1 % |
| 沒有 | 1 0.1 % 100 % |
15 0.9 % 83.3 % |
94 5.6 % 77 % |
241 14.4 % 82.8 % |
169 10.1 % 83.3 % |
1 0.1 % 100 % |
2 0.1 % 50 % |
4 0.2 % 100 % |
1 0.1 % 100 % |
2 0.1 % 100 % |
17 1 % 94.4 % |
89 5.3 % 89.9 % |
44 2.6 % 84.6 % |
3 0.2 % 100 % |
332 19.9 % 96.8 % |
108 6.5 % 92.3 % |
71 4.3 % 92.2 % |
1 0.1 % 100 % |
236 14.1 % 99.2 % |
188 11.3 % 98.4 % |
4 0.2 % 100 % |
46 2.8 % 100 % |
1669 100 % 90.9 % |
| Total | 1 0.1 % 100 % |
18 1 % 100 % |
122 6.6 % 100 % |
291 15.8 % 100 % |
203 11.1 % 100 % |
1 0.1 % 100 % |
4 0.2 % 100 % |
4 0.2 % 100 % |
1 0.1 % 100 % |
2 0.1 % 100 % |
18 1 % 100 % |
99 5.4 % 100 % |
52 2.8 % 100 % |
3 0.2 % 100 % |
343 18.7 % 100 % |
117 6.4 % 100 % |
77 4.2 % 100 % |
1 0.1 % 100 % |
238 13 % 100 % |
191 10.4 % 100 % |
4 0.2 % 100 % |
46 2.5 % 100 % |
1836 100 % 100 % |
| χ2=131.762 · df=21 · Cramer's V=0.268 · Fisher's p=0.000 | |||||||||||||||||||||||
在教育程度與「五年內連署一份有關環保議題的請願書」的問題中，經過Ｔ檢定的統計結果，卡方值為131.762，自由度為21，顯著性為0.000<0.05，因此教育程度與五年內連署一份有關環保議題的請願書有顯著差異。
#t檢定（政黨）
library(sjPlot)
tab_xtab(homework$b21a, homework$h16, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色））
)| b21a | 政黨偏好 | Total | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 有支持政黨，但不回答 | 泛綠 | 泛藍 | 其他，請說明 | 無黨籍 | 台灣基進 | 綠黨 | 台灣民眾黨 | 時代力量 | 親民黨 | 新黨 | 民進黨 | 國民黨 | ||
| 有 | 16 10.1 % 14.3 % |
9 5.7 % 26.5 % |
4 2.5 % 18.2 % |
34 21.5 % 5.2 % |
29 18.4 % 11.8 % |
4 2.5 % 28.6 % |
3 1.9 % 42.9 % |
8 5.1 % 21.1 % |
8 5.1 % 29.6 % |
1 0.6 % 16.7 % |
0 0 % 0 % |
23 14.6 % 8.2 % |
19 12 % 8.4 % |
158 100 % 9.4 % |
| 沒有 | 96 6.3 % 85.7 % |
25 1.6 % 73.5 % |
18 1.2 % 81.8 % |
625 41.2 % 94.8 % |
216 14.2 % 88.2 % |
10 0.7 % 71.4 % |
4 0.3 % 57.1 % |
30 2 % 78.9 % |
19 1.3 % 70.4 % |
5 0.3 % 83.3 % |
3 0.2 % 100 % |
258 17 % 91.8 % |
207 13.7 % 91.6 % |
1516 100 % 90.6 % |
| Total | 112 6.7 % 100 % |
34 2 % 100 % |
22 1.3 % 100 % |
659 39.4 % 100 % |
245 14.6 % 100 % |
14 0.8 % 100 % |
7 0.4 % 100 % |
38 2.3 % 100 % |
27 1.6 % 100 % |
6 0.4 % 100 % |
3 0.2 % 100 % |
281 16.8 % 100 % |
226 13.5 % 100 % |
1674 100 % 100 % |
| χ2=67.845 · df=12 · Cramer's V=0.201 · Fisher's p=0.000 | ||||||||||||||
在政黨偏好與「五年內連署一份有關環保議題的請願書」的問題中，經過Ｔ檢定的統計結果，卡方值為67.845，自由度為12，顯著性為0.000<0.05，因此政黨偏好與五年內連署一份有關環保議題的請願書有顯著差異。
##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.
#t檢定（性別）
library(sjPlot)
tab_xtab(homework$b21b, homework$a1, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| b21b | 性別 | Total | |
|---|---|---|---|
| 女 | 男 | ||
| 有 | 89 52.4 % 9.4 % |
81 47.6 % 9.1 % |
170 100 % 9.2 % |
| 沒有 | 857 51.3 % 90.6 % |
812 48.7 % 90.9 % |
1669 100 % 90.8 % |
| Total | 946 51.4 % 100 % |
893 48.6 % 100 % |
1839 100 % 100 % |
| χ2=0.029 · df=1 · φ=0.006 · p=0.866 | |||
在性別與「五年內捐款給環保團體」的問題中，經過Ｔ檢定的統計結果，卡方值為0.029，自由度為1，顯著性為0.866>0.05，因此性別與五年內捐款給環保團體沒有顯著差異。
#t檢定（教育程度）
library(sjPlot)
tab_xtab(homework$b21b, homework$a13, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| b21b | 教育程度 | Total | |||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 其他，請說明 | 博士 | 碩士 | 大學 | 技術學院、科大 | 軍警官校/軍警官大學 | 空中大學 | 空中行專/商專 | 軍警校專科班 | 軍警校專修班 | 三專 | 二專 | 五專 | 士官學校 | 高職 | 高中職業科 | 高中普通科 | 初職 | 國(初 )中 | 小學 | 自修/識字/私塾(跳答A16) | 無/不識字(跳答A16) | ||
| 有 | 0 0 % 0 % |
3 1.8 % 16.7 % |
23 13.5 % 18.9 % |
40 23.4 % 13.7 % |
25 14.6 % 12.3 % |
0 0 % 0 % |
0 0 % 0 % |
1 0.6 % 25 % |
0 0 % 0 % |
0 0 % 0 % |
1 0.6 % 5.6 % |
7 4.1 % 7.1 % |
7 4.1 % 13.7 % |
0 0 % 0 % |
27 15.8 % 7.8 % |
7 4.1 % 6 % |
7 4.1 % 9.1 % |
0 0 % 0 % |
14 8.2 % 5.9 % |
7 4.1 % 3.6 % |
1 0.6 % 25 % |
1 0.6 % 2.1 % |
171 100 % 9.3 % |
| 沒有 | 1 0.1 % 100 % |
15 0.9 % 83.3 % |
99 5.9 % 81.1 % |
251 15.1 % 86.3 % |
178 10.7 % 87.7 % |
1 0.1 % 100 % |
4 0.2 % 100 % |
3 0.2 % 75 % |
1 0.1 % 100 % |
2 0.1 % 100 % |
17 1 % 94.4 % |
91 5.5 % 92.9 % |
44 2.6 % 86.3 % |
3 0.2 % 100 % |
317 19 % 92.2 % |
110 6.6 % 94 % |
70 4.2 % 90.9 % |
1 0.1 % 100 % |
224 13.4 % 94.1 % |
185 11.1 % 96.4 % |
3 0.2 % 75 % |
46 2.8 % 97.9 % |
1666 100 % 90.7 % |
| Total | 1 0.1 % 100 % |
18 1 % 100 % |
122 6.6 % 100 % |
291 15.8 % 100 % |
203 11.1 % 100 % |
1 0.1 % 100 % |
4 0.2 % 100 % |
4 0.2 % 100 % |
1 0.1 % 100 % |
2 0.1 % 100 % |
18 1 % 100 % |
98 5.3 % 100 % |
51 2.8 % 100 % |
3 0.2 % 100 % |
344 18.7 % 100 % |
117 6.4 % 100 % |
77 4.2 % 100 % |
1 0.1 % 100 % |
238 13 % 100 % |
192 10.5 % 100 % |
4 0.2 % 100 % |
47 2.6 % 100 % |
1837 100 % 100 % |
| χ2=44.847 · df=21 · Cramer's V=0.156 · Fisher's p=0.002 | |||||||||||||||||||||||
在教育程度與「五年內捐款給環保團體」的問題中，經過Ｔ檢定的統計結果，卡方值為44.874，自由度為21，顯著性為0.001<0.05，因此教育程度與五年內捐款給環保團體有顯著差異。
#t檢定（政黨）
library(sjPlot)
tab_xtab(homework$b21b, homework$h16, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色））
)| b21b | 政黨偏好 | Total | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 有支持政黨，但不回答 | 泛綠 | 泛藍 | 其他，請說明 | 無黨籍 | 台灣基進 | 綠黨 | 台灣民眾黨 | 時代力量 | 親民黨 | 新黨 | 民進黨 | 國民黨 | ||
| 有 | 12 7.6 % 10.7 % |
7 4.5 % 20.6 % |
2 1.3 % 9.1 % |
36 22.9 % 5.5 % |
26 16.6 % 10.7 % |
3 1.9 % 21.4 % |
4 2.5 % 57.1 % |
6 3.8 % 15.8 % |
4 2.5 % 14.8 % |
0 0 % 0 % |
1 0.6 % 33.3 % |
23 14.6 % 8.2 % |
33 21 % 14.7 % |
157 100 % 9.4 % |
| 沒有 | 100 6.6 % 89.3 % |
27 1.8 % 79.4 % |
20 1.3 % 90.9 % |
623 41.1 % 94.5 % |
218 14.4 % 89.3 % |
11 0.7 % 78.6 % |
3 0.2 % 42.9 % |
32 2.1 % 84.2 % |
23 1.5 % 85.2 % |
6 0.4 % 100 % |
2 0.1 % 66.7 % |
258 17 % 91.8 % |
192 12.7 % 85.3 % |
1515 100 % 90.6 % |
| Total | 112 6.7 % 100 % |
34 2 % 100 % |
22 1.3 % 100 % |
659 39.4 % 100 % |
244 14.6 % 100 % |
14 0.8 % 100 % |
7 0.4 % 100 % |
38 2.3 % 100 % |
27 1.6 % 100 % |
6 0.4 % 100 % |
3 0.2 % 100 % |
281 16.8 % 100 % |
225 13.5 % 100 % |
1672 100 % 100 % |
| χ2=52.044 · df=12 · Cramer's V=0.176 · Fisher's p=0.000 | ||||||||||||||
在政黨與「五年內捐款給環保團體」的問題中，經過Ｔ檢定的統計結果，卡方值為52.044，自由度為12，顯著性為0.000<0.05，因此政黨偏好與五年內捐款給環保團體有顯著差異。
##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.
#t檢定（性別）
library(sjPlot)
tab_xtab(homework$b21c, homework$a1, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| b21c | 性別 | Total | |
|---|---|---|---|
| 女 | 男 | ||
| 有 | 8 34.8 % 0.8 % |
15 65.2 % 1.7 % |
23 100 % 1.3 % |
| 沒有 | 938 51.7 % 99.2 % |
878 48.3 % 98.3 % |
1816 100 % 98.7 % |
| Total | 946 51.4 % 100 % |
893 48.6 % 100 % |
1839 100 % 100 % |
| χ2=1.956 · df=1 · φ=0.038 · p=0.162 | |||
在性別與「五年內參加有關環保議題的抗議行動或遊行」的問題中，經過Ｔ檢定的統計結果，卡方值為1.956，自由度為1，顯著性為0.162>0.05，因此性別與五年內參加有關環保議題的抗議行動或遊行沒有顯著差異。
#t檢定（教育程度）
library(sjPlot)
tab_xtab(homework$b21c, homework$a13, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| b21c | 教育程度 | Total | |||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 其他，請說明 | 博士 | 碩士 | 大學 | 技術學院、科大 | 軍警官校/軍警官大學 | 空中大學 | 空中行專/商專 | 軍警校專科班 | 軍警校專修班 | 三專 | 二專 | 五專 | 士官學校 | 高職 | 高中職業科 | 高中普通科 | 初職 | 國(初 )中 | 小學 | 自修/識字/私塾(跳答A16) | 無/不識字(跳答A16) | ||
| 有 | 0 0 % 0 % |
0 0 % 0 % |
3 13 % 2.5 % |
8 34.8 % 2.7 % |
1 4.3 % 0.5 % |
0 0 % 0 % |
1 4.3 % 25 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
2 8.7 % 2 % |
1 4.3 % 1.9 % |
0 0 % 0 % |
2 8.7 % 0.6 % |
1 4.3 % 0.9 % |
0 0 % 0 % |
0 0 % 0 % |
3 13 % 1.3 % |
1 4.3 % 0.5 % |
0 0 % 0 % |
0 0 % 0 % |
23 100 % 1.3 % |
| 沒有 | 1 0.1 % 100 % |
18 1 % 100 % |
119 6.6 % 97.5 % |
283 15.6 % 97.3 % |
202 11.1 % 99.5 % |
1 0.1 % 100 % |
3 0.2 % 75 % |
4 0.2 % 100 % |
1 0.1 % 100 % |
2 0.1 % 100 % |
18 1 % 100 % |
96 5.3 % 98 % |
51 2.8 % 98.1 % |
3 0.2 % 100 % |
342 18.9 % 99.4 % |
116 6.4 % 99.1 % |
76 4.2 % 100 % |
1 0.1 % 100 % |
235 13 % 98.7 % |
191 10.5 % 99.5 % |
4 0.2 % 100 % |
46 2.5 % 100 % |
1813 100 % 98.7 % |
| Total | 1 0.1 % 100 % |
18 1 % 100 % |
122 6.6 % 100 % |
291 15.8 % 100 % |
203 11.1 % 100 % |
1 0.1 % 100 % |
4 0.2 % 100 % |
4 0.2 % 100 % |
1 0.1 % 100 % |
2 0.1 % 100 % |
18 1 % 100 % |
98 5.3 % 100 % |
52 2.8 % 100 % |
3 0.2 % 100 % |
344 18.7 % 100 % |
117 6.4 % 100 % |
76 4.1 % 100 % |
1 0.1 % 100 % |
238 13 % 100 % |
192 10.5 % 100 % |
4 0.2 % 100 % |
46 2.5 % 100 % |
1836 100 % 100 % |
| χ2=31.022 · df=21 · Cramer's V=0.130 · Fisher's p=0.199 | |||||||||||||||||||||||
在教育程度與「五年內參加有關環保議題的抗議行動或遊行」的問題中，經過Ｔ檢定的統計結果，卡方值為31.022，自由度為21，顯著性為0.191>0.05，因此教育程度與五年內參加有關環保議題的抗議行動或遊行沒有顯著差異。
#t檢定（政黨）
library(sjPlot)
tab_xtab(homework$b21c, homework$h16, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色））
)| b21c | 政黨偏好 | Total | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 有支持政黨，但不回答 | 泛綠 | 泛藍 | 其他，請說明 | 無黨籍 | 台灣基進 | 綠黨 | 台灣民眾黨 | 時代力量 | 親民黨 | 新黨 | 民進黨 | 國民黨 | ||
| 有 | 1 4.8 % 0.9 % |
4 19 % 11.8 % |
0 0 % 0 % |
7 33.3 % 1.1 % |
1 4.8 % 0.4 % |
2 9.5 % 14.3 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
5 23.8 % 1.8 % |
1 4.8 % 0.4 % |
21 100 % 1.3 % |
| 沒有 | 111 6.7 % 99.1 % |
30 1.8 % 88.2 % |
22 1.3 % 100 % |
652 39.5 % 98.9 % |
243 14.7 % 99.6 % |
12 0.7 % 85.7 % |
7 0.4 % 100 % |
38 2.3 % 100 % |
27 1.6 % 100 % |
6 0.4 % 100 % |
3 0.2 % 100 % |
276 16.7 % 98.2 % |
225 13.6 % 99.6 % |
1652 100 % 98.7 % |
| Total | 112 6.7 % 100 % |
34 2 % 100 % |
22 1.3 % 100 % |
659 39.4 % 100 % |
244 14.6 % 100 % |
14 0.8 % 100 % |
7 0.4 % 100 % |
38 2.3 % 100 % |
27 1.6 % 100 % |
6 0.4 % 100 % |
3 0.2 % 100 % |
281 16.8 % 100 % |
226 13.5 % 100 % |
1673 100 % 100 % |
| χ2=54.336 · df=12 · Cramer's V=0.180 · Fisher's p=0.004 | ||||||||||||||
在政黨偏好與「五年內參加有關環保議題的抗議行動或遊行」的問題中，經過Ｔ檢定的統計結果，卡方值為54.336，自由度為12，顯著性為0.005<0.05，因此政黨偏好與五年內參加有關環保議題的抗議行動或遊行有顯著差異。
#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.
#t檢定（性別）
library(sjPlot)
tab_xtab(homework$e3, homework$a1, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| e3 | 性別 | Total | |
|---|---|---|---|
| 女 | 男 | ||
| 縣市環保局 | 422 51 % 47.3 % |
406 49 % 46.8 % |
828 100 % 47 % |
| 警察局、法院 | 31 43.1 % 3.5 % |
41 56.9 % 4.7 % |
72 100 % 4.1 % |
| 民意代表 | 35 51.5 % 3.9 % |
33 48.5 % 3.8 % |
68 100 % 3.9 % |
| 鄉鎮村里長 | 319 54.5 % 35.7 % |
266 45.5 % 30.7 % |
585 100 % 33.2 % |
| 向該工廠陳情抗議 | 13 29.5 % 1.5 % |
31 70.5 % 3.6 % |
44 100 % 2.5 % |
| 行政院環保署 | 30 51.7 % 3.4 % |
28 48.3 % 3.2 % |
58 100 % 3.3 % |
| 報紙、媒體 | 7 53.8 % 0.8 % |
6 46.2 % 0.7 % |
13 100 % 0.7 % |
| 環保團體 | 27 47.4 % 3 % |
30 52.6 % 3.5 % |
57 100 % 3.2 % |
| 當地社區團體 | 2 20 % 0.2 % |
8 80 % 0.9 % |
10 100 % 0.6 % |
| 網路、部落格 | 7 28 % 0.8 % |
18 72 % 2.1 % |
25 100 % 1.4 % |
| Total | 893 50.7 % 100 % |
867 49.3 % 100 % |
1760 100 % 100 % |
| χ2=22.287 · df=9 · Cramer's V=0.113 · p=0.008 | |||
在性別與「假設您的住所附近有一家工廠造成環境污染，現在這裡有一份清單，請您從中選出您 最可能尋求協助的對象。」的問題中，經過Ｔ檢定的統計結果，卡方值為22.287，自由度為9，顯著性為0.008<0.05，因此性別與若住所遭受污染，可能尋求協助的對象有顯著差異。
#t檢定（教育程度）
library(sjPlot)
tab_xtab(homework$e3, homework$a13, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| e3 | 教育程度 | Total | |||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 其他，請說明 | 博士 | 碩士 | 大學 | 技術學院、科大 | 軍警官校/軍警官大學 | 空中大學 | 空中行專/商專 | 軍警校專科班 | 軍警校專修班 | 三專 | 二專 | 五專 | 士官學校 | 高職 | 高中職業科 | 高中普通科 | 初職 | 國(初 )中 | 小學 | 自修/識字/私塾(跳答A16) | 無/不識字(跳答A16) | ||
| 縣市環保局 | 0 0 % 0 % |
13 1.6 % 72.2 % |
69 8.3 % 56.6 % |
160 19.3 % 55.4 % |
119 14.4 % 59.8 % |
1 0.1 % 100 % |
2 0.2 % 50 % |
3 0.4 % 75 % |
1 0.1 % 100 % |
0 0 % 0 % |
8 1 % 50 % |
53 6.4 % 54.6 % |
31 3.7 % 59.6 % |
0 0 % 0 % |
145 17.5 % 43.5 % |
57 6.9 % 48.7 % |
35 4.2 % 47.9 % |
0 0 % 0 % |
76 9.2 % 33.8 % |
51 6.2 % 30.7 % |
0 0 % 0 % |
4 0.5 % 13.8 % |
828 100 % 47.1 % |
| 警察局、法院 | 0 0 % 0 % |
0 0 % 0 % |
3 4.1 % 2.5 % |
15 20.5 % 5.2 % |
6 8.2 % 3 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 1.4 % 6.2 % |
1 1.4 % 1 % |
2 2.7 % 3.8 % |
0 0 % 0 % |
16 21.9 % 4.8 % |
5 6.8 % 4.3 % |
3 4.1 % 4.1 % |
0 0 % 0 % |
8 11 % 3.6 % |
10 13.7 % 6 % |
0 0 % 0 % |
3 4.1 % 10.3 % |
73 100 % 4.2 % |
| 民意代表 | 0 0 % 0 % |
0 0 % 0 % |
8 11.8 % 6.6 % |
17 25 % 5.9 % |
10 14.7 % 5 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
3 4.4 % 3.1 % |
1 1.5 % 1.9 % |
0 0 % 0 % |
15 22.1 % 4.5 % |
3 4.4 % 2.6 % |
1 1.5 % 1.4 % |
0 0 % 0 % |
6 8.8 % 2.7 % |
4 5.9 % 2.4 % |
0 0 % 0 % |
0 0 % 0 % |
68 100 % 3.9 % |
| 鄉鎮村里長 | 1 0.2 % 100 % |
3 0.5 % 16.7 % |
19 3.3 % 15.6 % |
51 8.8 % 17.6 % |
34 5.8 % 17.1 % |
0 0 % 0 % |
2 0.3 % 50 % |
1 0.2 % 25 % |
0 0 % 0 % |
2 0.3 % 100 % |
5 0.9 % 31.2 % |
32 5.5 % 33 % |
12 2.1 % 23.1 % |
2 0.3 % 66.7 % |
119 20.4 % 35.7 % |
36 6.2 % 30.8 % |
30 5.2 % 41.1 % |
0 0 % 0 % |
116 19.9 % 51.6 % |
92 15.8 % 55.4 % |
3 0.5 % 75 % |
22 3.8 % 75.9 % |
582 100 % 33.1 % |
| 向該工廠陳情抗議 | 0 0 % 0 % |
0 0 % 0 % |
4 9.3 % 3.3 % |
3 7 % 1 % |
2 4.7 % 1 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 2.3 % 1 % |
1 2.3 % 1.9 % |
1 2.3 % 33.3 % |
14 32.6 % 4.2 % |
2 4.7 % 1.7 % |
2 4.7 % 2.7 % |
1 2.3 % 100 % |
7 16.3 % 3.1 % |
5 11.6 % 3 % |
0 0 % 0 % |
0 0 % 0 % |
43 100 % 2.4 % |
| 行政院環保署 | 0 0 % 0 % |
1 1.7 % 5.6 % |
12 20.7 % 9.8 % |
13 22.4 % 4.5 % |
12 20.7 % 6 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 1.7 % 6.2 % |
2 3.4 % 2.1 % |
0 0 % 0 % |
0 0 % 0 % |
9 15.5 % 2.7 % |
3 5.2 % 2.6 % |
2 3.4 % 2.7 % |
0 0 % 0 % |
1 1.7 % 0.4 % |
2 3.4 % 1.2 % |
0 0 % 0 % |
0 0 % 0 % |
58 100 % 3.3 % |
| 報紙、媒體 | 0 0 % 0 % |
0 0 % 0 % |
2 15.4 % 1.6 % |
2 15.4 % 0.7 % |
4 30.8 % 2 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 7.7 % 1 % |
2 15.4 % 3.8 % |
0 0 % 0 % |
1 7.7 % 0.3 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 7.7 % 0.4 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
13 100 % 0.7 % |
| 環保團體 | 0 0 % 0 % |
0 0 % 0 % |
3 5.1 % 2.5 % |
16 27.1 % 5.5 % |
9 15.3 % 4.5 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 1.7 % 6.2 % |
3 5.1 % 3.1 % |
2 3.4 % 3.8 % |
0 0 % 0 % |
11 18.6 % 3.3 % |
6 10.2 % 5.1 % |
0 0 % 0 % |
0 0 % 0 % |
6 10.2 % 2.7 % |
1 1.7 % 0.6 % |
1 1.7 % 25 % |
0 0 % 0 % |
59 100 % 3.4 % |
| 當地社區團體 | 0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
3 30 % 1 % |
2 20 % 1 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 10 % 0.3 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
3 30 % 1.3 % |
1 10 % 0.6 % |
0 0 % 0 % |
0 0 % 0 % |
10 100 % 0.6 % |
| 網路、部落格 | 0 0 % 0 % |
1 4.3 % 5.6 % |
2 8.7 % 1.6 % |
9 39.1 % 3.1 % |
1 4.3 % 0.5 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 4.3 % 1 % |
1 4.3 % 1.9 % |
0 0 % 0 % |
2 8.7 % 0.6 % |
5 21.7 % 4.3 % |
0 0 % 0 % |
0 0 % 0 % |
1 4.3 % 0.4 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
23 100 % 1.3 % |
| Total | 1 0.1 % 100 % |
18 1 % 100 % |
122 6.9 % 100 % |
289 16.4 % 100 % |
199 11.3 % 100 % |
1 0.1 % 100 % |
4 0.2 % 100 % |
4 0.2 % 100 % |
1 0.1 % 100 % |
2 0.1 % 100 % |
16 0.9 % 100 % |
97 5.5 % 100 % |
52 3 % 100 % |
3 0.2 % 100 % |
333 19 % 100 % |
117 6.7 % 100 % |
73 4.2 % 100 % |
1 0.1 % 100 % |
225 12.8 % 100 % |
166 9.4 % 100 % |
4 0.2 % 100 % |
29 1.7 % 100 % |
1757 100 % 100 % |
| χ2=369.902 · df=189 · Cramer's V=0.153 · Fisher's p=0.000 | |||||||||||||||||||||||
在教育程度與「假設您的住所附近有一家工廠造成環境污染，現在這裡有一份清單，請您從中選出您最可能尋求協助的對象。」的問題中，經過Ｔ檢定的統計結果，卡方值為369.902，自由度為189，顯著性為0.000<0.05，因此教育程度與若住所遭受污染，可能尋求協助的對象有顯著差異。
#t檢定（政黨）
library(sjPlot)
tab_xtab(homework$e3, homework$h16, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色））
)| e3 | 政黨偏好 | Total | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 有支持政黨，但不回答 | 泛綠 | 泛藍 | 其他，請說明 | 無黨籍 | 台灣基進 | 綠黨 | 台灣民眾黨 | 時代力量 | 親民黨 | 新黨 | 民進黨 | 國民黨 | ||
| 縣市環保局 | 46 6.2 % 42.2 % |
24 3.2 % 68.6 % |
16 2.2 % 72.7 % |
270 36.4 % 43.6 % |
117 15.8 % 51.8 % |
9 1.2 % 69.2 % |
3 0.4 % 42.9 % |
21 2.8 % 55.3 % |
18 2.4 % 66.7 % |
2 0.3 % 33.3 % |
1 0.1 % 33.3 % |
108 14.6 % 38.7 % |
106 14.3 % 48.4 % |
741 100 % 46.2 % |
| 警察局、法院 | 4 6.2 % 3.7 % |
1 1.6 % 2.9 % |
1 1.6 % 4.5 % |
27 42.2 % 4.4 % |
9 14.1 % 4 % |
0 0 % 0 % |
0 0 % 0 % |
3 4.7 % 7.9 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
15 23.4 % 5.4 % |
4 6.2 % 1.8 % |
64 100 % 4 % |
| 民意代表 | 7 10.8 % 6.4 % |
1 1.5 % 2.9 % |
1 1.5 % 4.5 % |
14 21.5 % 2.3 % |
6 9.2 % 2.7 % |
1 1.5 % 7.7 % |
0 0 % 0 % |
2 3.1 % 5.3 % |
3 4.6 % 11.1 % |
0 0 % 0 % |
0 0 % 0 % |
16 24.6 % 5.7 % |
14 21.5 % 6.4 % |
65 100 % 4.1 % |
| 鄉鎮村里長 | 40 7.4 % 36.7 % |
3 0.6 % 8.6 % |
2 0.4 % 9.1 % |
243 44.9 % 39.3 % |
65 12 % 28.8 % |
2 0.4 % 15.4 % |
2 0.4 % 28.6 % |
5 0.9 % 13.2 % |
2 0.4 % 7.4 % |
4 0.7 % 66.7 % |
2 0.4 % 66.7 % |
99 18.3 % 35.5 % |
72 13.3 % 32.9 % |
541 100 % 33.7 % |
| 向該工廠陳情抗議 | 2 4.8 % 1.8 % |
1 2.4 % 2.9 % |
0 0 % 0 % |
20 47.6 % 3.2 % |
4 9.5 % 1.8 % |
0 0 % 0 % |
1 2.4 % 14.3 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
7 16.7 % 2.5 % |
7 16.7 % 3.2 % |
42 100 % 2.6 % |
| 行政院環保署 | 4 7.3 % 3.7 % |
4 7.3 % 11.4 % |
0 0 % 0 % |
17 30.9 % 2.7 % |
10 18.2 % 4.4 % |
0 0 % 0 % |
0 0 % 0 % |
1 1.8 % 2.6 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
16 29.1 % 5.7 % |
3 5.5 % 1.4 % |
55 100 % 3.4 % |
| 報紙、媒體 | 0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
3 30 % 0.5 % |
3 30 % 1.3 % |
0 0 % 0 % |
0 0 % 0 % |
1 10 % 2.6 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 10 % 0.4 % |
2 20 % 0.9 % |
10 100 % 0.6 % |
| 環保團體 | 5 9.4 % 4.6 % |
0 0 % 0 % |
2 3.8 % 9.1 % |
12 22.6 % 1.9 % |
10 18.9 % 4.4 % |
1 1.9 % 7.7 % |
1 1.9 % 14.3 % |
0 0 % 0 % |
3 5.7 % 11.1 % |
0 0 % 0 % |
0 0 % 0 % |
11 20.8 % 3.9 % |
8 15.1 % 3.7 % |
53 100 % 3.3 % |
| 當地社區團體 | 0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
5 50 % 0.8 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 10 % 3.7 % |
0 0 % 0 % |
0 0 % 0 % |
4 40 % 1.4 % |
0 0 % 0 % |
10 100 % 0.6 % |
| 網路、部落格 | 1 4.5 % 0.9 % |
1 4.5 % 2.9 % |
0 0 % 0 % |
8 36.4 % 1.3 % |
2 9.1 % 0.9 % |
0 0 % 0 % |
0 0 % 0 % |
5 22.7 % 13.2 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
2 9.1 % 0.7 % |
3 13.6 % 1.4 % |
22 100 % 1.4 % |
| Total | 109 6.8 % 100 % |
35 2.2 % 100 % |
22 1.4 % 100 % |
619 38.6 % 100 % |
226 14.1 % 100 % |
13 0.8 % 100 % |
7 0.4 % 100 % |
38 2.4 % 100 % |
27 1.7 % 100 % |
6 0.4 % 100 % |
3 0.2 % 100 % |
279 17.4 % 100 % |
219 13.7 % 100 % |
1603 100 % 100 % |
| χ2=180.931 · df=108 · Cramer's V=0.112 · Fisher's p=0.000 | ||||||||||||||
在政黨偏好與「假設您的住所附近有一家工廠造成環境污染，現在這裡有一份清單，請您從中選出您最可能尋求協助的對象。」的問題中，經過Ｔ檢定的統計結果，卡方值為180.931，自由度為108，顯著性為0.000<0.05，因此政黨偏好與若住所遭受污染，可能尋求協助的對象有顯著差異。
##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.
#t檢定（性別）
library(sjPlot)
tab_xtab(homework$e5, homework$a1, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| e5 | 性別 | Total | |
|---|---|---|---|
| 女 | 男 | ||
| 應繼續使用核電 | 423 45.2 % 56.7 % |
513 54.8 % 61.4 % |
936 100 % 59.2 % |
| 應廢除核電 | 211 47.5 % 28.3 % |
233 52.5 % 27.9 % |
444 100 % 28.1 % |
| 無所謂 | 95 57.2 % 12.7 % |
71 42.8 % 8.5 % |
166 100 % 10.5 % |
| 其他，請說明 | 17 47.2 % 2.3 % |
19 52.8 % 2.3 % |
36 100 % 2.3 % |
| Total | 746 47.2 % 100 % |
836 52.8 % 100 % |
1582 100 % 100 % |
| χ2=8.231 · df=3 · Cramer's V=0.072 · p=0.041 | |||
在性別與「請問您認為應繼續使用核電還是應廢除核電?」的題目中，我們進行Ｔ檢定，結果是卡方值為8.231，自由度為3，顯著性為0.041<0.05。我們可以知道性別對應該不應該繼續使用核電或廢除核電是有顯著差異的。
在這項統計圖表中，我們可以發現女性在此題有效作答的人數減少許多在統計圖表中可以發現回答無所謂的比例中女性高達57.2%，遠高於男性的42.8%。但整體來看不論是男性或女性，在應該繼續使用核電的選項上仍遠高於應該廢除核電。
#t檢定（教育程度）
library(sjPlot)
tab_xtab(homework$e5, homework$a13, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| e5 | 教育程度 | Total | |||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 其他，請說明 | 博士 | 碩士 | 大學 | 技術學院、科大 | 軍警官校/軍警官大學 | 空中大學 | 空中行專/商專 | 軍警校專科班 | 軍警校專修班 | 三專 | 二專 | 五專 | 士官學校 | 高職 | 高中職業科 | 高中普通科 | 初職 | 國(初 )中 | 小學 | 自修/識字/私塾(跳答A16) | 無/不識字(跳答A16) | ||
| 應繼續使用核電 | 0 0 % 0 % |
10 1.1 % 58.8 % |
74 7.9 % 63.8 % |
167 17.8 % 59.9 % |
108 11.5 % 56.5 % |
1 0.1 % 100 % |
2 0.2 % 50 % |
4 0.4 % 100 % |
1 0.1 % 100 % |
2 0.2 % 100 % |
13 1.4 % 72.2 % |
55 5.9 % 61.8 % |
37 4 % 74 % |
1 0.1 % 33.3 % |
184 19.7 % 60.1 % |
55 5.9 % 52.9 % |
46 4.9 % 71.9 % |
1 0.1 % 100 % |
98 10.5 % 51.9 % |
68 7.3 % 55.3 % |
0 0 % 0 % |
9 1 % 56.2 % |
936 100 % 59.2 % |
| 應廢除核電 | 1 0.2 % 100 % |
4 0.9 % 23.5 % |
29 6.6 % 25 % |
78 17.6 % 28 % |
57 12.9 % 29.8 % |
0 0 % 0 % |
1 0.2 % 25 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
4 0.9 % 22.2 % |
25 5.7 % 28.1 % |
7 1.6 % 14 % |
0 0 % 0 % |
80 18.1 % 26.1 % |
27 6.1 % 26 % |
13 2.9 % 20.3 % |
0 0 % 0 % |
71 16.1 % 37.6 % |
40 9 % 32.5 % |
2 0.5 % 100 % |
3 0.7 % 18.8 % |
442 100 % 28 % |
| 無所謂 | 0 0 % 0 % |
1 0.6 % 5.9 % |
7 4.2 % 6 % |
25 15.1 % 9 % |
21 12.7 % 11 % |
0 0 % 0 % |
1 0.6 % 25 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 0.6 % 5.6 % |
7 4.2 % 7.9 % |
3 1.8 % 6 % |
2 1.2 % 66.7 % |
39 23.5 % 12.7 % |
22 13.3 % 21.2 % |
5 3 % 7.8 % |
0 0 % 0 % |
16 9.6 % 8.5 % |
13 7.8 % 10.6 % |
0 0 % 0 % |
3 1.8 % 18.8 % |
166 100 % 10.5 % |
| 其他，請說明 | 0 0 % 0 % |
2 5.4 % 11.8 % |
6 16.2 % 5.2 % |
9 24.3 % 3.2 % |
5 13.5 % 2.6 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
2 5.4 % 2.2 % |
3 8.1 % 6 % |
0 0 % 0 % |
3 8.1 % 1 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
4 10.8 % 2.1 % |
2 5.4 % 1.6 % |
0 0 % 0 % |
1 2.7 % 6.2 % |
37 100 % 2.3 % |
| Total | 1 0.1 % 100 % |
17 1.1 % 100 % |
116 7.3 % 100 % |
279 17.6 % 100 % |
191 12.1 % 100 % |
1 0.1 % 100 % |
4 0.3 % 100 % |
4 0.3 % 100 % |
1 0.1 % 100 % |
2 0.1 % 100 % |
18 1.1 % 100 % |
89 5.6 % 100 % |
50 3.2 % 100 % |
3 0.2 % 100 % |
306 19.4 % 100 % |
104 6.6 % 100 % |
64 4 % 100 % |
1 0.1 % 100 % |
189 12 % 100 % |
123 7.8 % 100 % |
2 0.1 % 100 % |
16 1 % 100 % |
1581 100 % 100 % |
| χ2=89.290 · df=63 · Cramer's V=0.137 · Fisher's p=0.010 | |||||||||||||||||||||||
在教育程度與「請問您認為應繼續使用核電還是應廢除核電?」的題目中，我們進行Ｔ檢定，結果的卡方值為89.290，自由度為63，顯著性為0.007<0.05。我們可以知道教育程度對應該不應該繼續使用核電或廢除核電是有顯著差異的。
#t檢定（政黨）
library(sjPlot)
tab_xtab(homework$e5, homework$h16, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色））
)| e5 | 政黨偏好 | Total | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 有支持政黨，但不回答 | 泛綠 | 泛藍 | 其他，請說明 | 無黨籍 | 台灣基進 | 綠黨 | 台灣民眾黨 | 時代力量 | 親民黨 | 新黨 | 民進黨 | 國民黨 | ||
| 應繼續使用核電 | 65 7.6 % 66.3 % |
15 1.8 % 44.1 % |
14 1.6 % 66.7 % |
341 39.8 % 61.8 % |
107 12.5 % 56.9 % |
5 0.6 % 38.5 % |
3 0.4 % 42.9 % |
25 2.9 % 71.4 % |
17 2 % 65.4 % |
2 0.2 % 40 % |
3 0.4 % 100 % |
99 11.6 % 38.5 % |
160 18.7 % 79.6 % |
856 100 % 59.4 % |
| 應廢除核電 | 26 6.6 % 26.5 % |
12 3 % 35.3 % |
3 0.8 % 14.3 % |
133 33.6 % 24.1 % |
43 10.9 % 22.9 % |
8 2 % 61.5 % |
3 0.8 % 42.9 % |
7 1.8 % 20 % |
6 1.5 % 23.1 % |
1 0.3 % 20 % |
0 0 % 0 % |
130 32.8 % 50.6 % |
24 6.1 % 11.9 % |
396 100 % 27.5 % |
| 無所謂 | 7 4.5 % 7.1 % |
4 2.6 % 11.8 % |
4 2.6 % 19 % |
59 38.3 % 10.7 % |
36 23.4 % 19.1 % |
0 0 % 0 % |
1 0.6 % 14.3 % |
1 0.6 % 2.9 % |
3 1.9 % 11.5 % |
2 1.3 % 40 % |
0 0 % 0 % |
24 15.6 % 9.3 % |
13 8.4 % 6.5 % |
154 100 % 10.7 % |
| 其他，請說明 | 0 0 % 0 % |
3 8.8 % 8.8 % |
0 0 % 0 % |
19 55.9 % 3.4 % |
2 5.9 % 1.1 % |
0 0 % 0 % |
0 0 % 0 % |
2 5.9 % 5.7 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
4 11.8 % 1.6 % |
4 11.8 % 2 % |
34 100 % 2.4 % |
| Total | 98 6.8 % 100 % |
34 2.4 % 100 % |
21 1.5 % 100 % |
552 38.3 % 100 % |
188 13.1 % 100 % |
13 0.9 % 100 % |
7 0.5 % 100 % |
35 2.4 % 100 % |
26 1.8 % 100 % |
5 0.3 % 100 % |
3 0.2 % 100 % |
257 17.8 % 100 % |
201 14 % 100 % |
1440 100 % 100 % |
| χ2=163.850 · df=36 · Cramer's V=0.195 · Fisher's p=0.000 | ||||||||||||||
在性別與「請問您認為應繼續使用核電還是應廢除核電?」的題目中，我們進行Ｔ檢定，結果是卡方值為163.850，自由度為36，顯著性為0.000 < 0.05。
我們可以從2021年對於核四公投議題政黨的態度發現，國民黨及新黨表態支持核四商轉，而民進黨及台灣基進表態不支持核四商轉，這些都符合統計結果。但令人訝異的是，當時時代力量表態不支持核四商轉，但根據統計結果，有65.4%的時代力量支持者支持繼續使用核電，遠高於認為應廢除核電的23.1%。另外可能因為核電在部分國際組織或國家被列為綠電之一，因此在當時表態不支持核四商轉的台灣綠黨，支持者呈現各一半（兩者皆是42.9％)的聲浪。
##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.
#t檢定（性別）
library(sjPlot)
tab_xtab(homework$f6, homework$a1, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| f6 | 性別 | Total | |
|---|---|---|---|
| 女 | 男 | ||
| 步行 | 136 72.7 % 14.4 % |
51 27.3 % 5.7 % |
187 100 % 10.2 % |
| 腳踏車 | 45 57.7 % 4.8 % |
33 42.3 % 3.7 % |
78 100 % 4.2 % |
| 電動腳踏車 | 6 75 % 0.6 % |
2 25 % 0.2 % |
8 100 % 0.4 % |
| 公車 | 73 74.5 % 7.7 % |
25 25.5 % 2.8 % |
98 100 % 5.3 % |
| 火車 | 9 64.3 % 1 % |
5 35.7 % 0.6 % |
14 100 % 0.8 % |
| 捷運 | 53 66.2 % 5.6 % |
27 33.8 % 3 % |
80 100 % 4.4 % |
| 燃油機車 | 457 49 % 48.4 % |
476 51 % 53.4 % |
933 100 % 50.8 % |
| 電動機車 | 23 54.8 % 2.4 % |
19 45.2 % 2.1 % |
42 100 % 2.3 % |
| 汽油汽車 | 126 36.8 % 13.3 % |
216 63.2 % 24.2 % |
342 100 % 18.6 % |
| 柴油汽車 | 3 13.6 % 0.3 % |
19 86.4 % 2.1 % |
22 100 % 1.2 % |
| 油電混合車 | 2 22.2 % 0.2 % |
7 77.8 % 0.8 % |
9 100 % 0.5 % |
| 電動汽車 | 0 0 % 0 % |
2 100 % 0.2 % |
2 100 % 0.1 % |
| 計程車 | 4 66.7 % 0.4 % |
2 33.3 % 0.2 % |
6 100 % 0.3 % |
| uber | 0 0 % 0 % |
1 100 % 0.1 % |
1 100 % 0.1 % |
| 其他，請說明 | 8 53.3 % 0.8 % |
7 46.7 % 0.8 % |
15 100 % 0.8 % |
| Total | 945 51.4 % 100 % |
892 48.6 % 100 % |
1837 100 % 100 % |
| χ2=116.753 · df=14 · Cramer's V=0.252 · Fisher's p=0.000 | |||
#t檢定（教育程度）
library(sjPlot)
tab_xtab(homework$f6, homework$a13, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）
)| f6 | 教育程度 | Total | |||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 其他，請說明 | 博士 | 碩士 | 大學 | 技術學院、科大 | 軍警官校/軍警官大學 | 空中大學 | 空中行專/商專 | 軍警校專科班 | 軍警校專修班 | 三專 | 二專 | 五專 | 士官學校 | 高職 | 高中職業科 | 高中普通科 | 初職 | 國(初 )中 | 小學 | 自修/識字/私塾(跳答A16) | 無/不識字(跳答A16) | ||
| 步行 | 0 0 % 0 % |
5 2.7 % 27.8 % |
6 3.2 % 4.9 % |
33 17.8 % 11.3 % |
5 2.7 % 2.5 % |
0 0 % 0 % |
1 0.5 % 25 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
5 2.7 % 27.8 % |
4 2.2 % 4 % |
6 3.2 % 11.5 % |
1 0.5 % 33.3 % |
22 11.9 % 6.4 % |
12 6.5 % 10.3 % |
5 2.7 % 6.6 % |
0 0 % 0 % |
22 11.9 % 9.2 % |
42 22.7 % 22 % |
0 0 % 0 % |
16 8.6 % 35.6 % |
185 100 % 10.1 % |
| 腳踏車 | 0 0 % 0 % |
4 5.1 % 22.2 % |
6 7.6 % 4.9 % |
7 8.9 % 2.4 % |
1 1.3 % 0.5 % |
0 0 % 0 % |
1 1.3 % 25 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
2 2.5 % 11.1 % |
2 2.5 % 2 % |
1 1.3 % 1.9 % |
2 2.5 % 66.7 % |
12 15.2 % 3.5 % |
9 11.4 % 7.7 % |
2 2.5 % 2.6 % |
0 0 % 0 % |
12 15.2 % 5 % |
13 16.5 % 6.8 % |
0 0 % 0 % |
5 6.3 % 11.1 % |
79 100 % 4.3 % |
| 電動腳踏車 | 0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
2 22.2 % 0.7 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 11.1 % 1.9 % |
0 0 % 0 % |
1 11.1 % 0.3 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
2 22.2 % 0.8 % |
1 11.1 % 0.5 % |
0 0 % 0 % |
2 22.2 % 4.4 % |
9 100 % 0.5 % |
| 公車 | 0 0 % 0 % |
3 3 % 16.7 % |
7 7.1 % 5.7 % |
26 26.3 % 8.9 % |
11 11.1 % 5.4 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
4 4 % 4 % |
3 3 % 5.8 % |
0 0 % 0 % |
15 15.2 % 4.4 % |
4 4 % 3.4 % |
3 3 % 3.9 % |
0 0 % 0 % |
10 10.1 % 4.2 % |
12 12.1 % 6.3 % |
0 0 % 0 % |
1 1 % 2.2 % |
99 100 % 5.4 % |
| 火車 | 0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
4 28.6 % 1.4 % |
5 35.7 % 2.5 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 7.1 % 1 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 7.1 % 0.9 % |
0 0 % 0 % |
0 0 % 0 % |
2 14.3 % 0.8 % |
1 7.1 % 0.5 % |
0 0 % 0 % |
0 0 % 0 % |
14 100 % 0.8 % |
| 捷運 | 0 0 % 0 % |
0 0 % 0 % |
11 13.8 % 9 % |
28 35 % 9.6 % |
13 16.2 % 6.4 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
3 3.8 % 16.7 % |
2 2.5 % 2 % |
3 3.8 % 5.8 % |
0 0 % 0 % |
7 8.8 % 2 % |
2 2.5 % 1.7 % |
4 5 % 5.3 % |
0 0 % 0 % |
5 6.2 % 2.1 % |
2 2.5 % 1 % |
0 0 % 0 % |
0 0 % 0 % |
80 100 % 4.4 % |
| 燃油機車 | 0 0 % 0 % |
1 0.1 % 5.6 % |
44 4.7 % 36.1 % |
132 14.2 % 45.4 % |
122 13.1 % 59.8 % |
1 0.1 % 100 % |
2 0.2 % 50 % |
2 0.2 % 50 % |
1 0.1 % 100 % |
2 0.2 % 100 % |
5 0.5 % 27.8 % |
53 5.7 % 53 % |
18 1.9 % 34.6 % |
0 0 % 0 % |
205 22 % 59.9 % |
64 6.9 % 54.7 % |
35 3.8 % 46.1 % |
1 0.1 % 100 % |
134 14.4 % 55.8 % |
95 10.2 % 49.7 % |
1 0.1 % 25 % |
13 1.4 % 28.9 % |
931 100 % 50.7 % |
| 電動機車 | 0 0 % 0 % |
0 0 % 0 % |
2 4.7 % 1.6 % |
8 18.6 % 2.7 % |
6 14 % 2.9 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
3 7 % 3 % |
1 2.3 % 1.9 % |
0 0 % 0 % |
5 11.6 % 1.5 % |
6 14 % 5.1 % |
3 7 % 3.9 % |
0 0 % 0 % |
4 9.3 % 1.7 % |
4 9.3 % 2.1 % |
0 0 % 0 % |
1 2.3 % 2.2 % |
43 100 % 2.3 % |
| 汽油汽車 | 1 0.3 % 100 % |
2 0.6 % 11.1 % |
40 11.7 % 32.8 % |
42 12.3 % 14.4 % |
39 11.4 % 19.1 % |
0 0 % 0 % |
0 0 % 0 % |
2 0.6 % 50 % |
0 0 % 0 % |
0 0 % 0 % |
3 0.9 % 16.7 % |
27 7.9 % 27 % |
16 4.7 % 30.8 % |
0 0 % 0 % |
70 20.5 % 20.5 % |
17 5 % 14.5 % |
21 6.1 % 27.6 % |
0 0 % 0 % |
40 11.7 % 16.7 % |
16 4.7 % 8.4 % |
1 0.3 % 25 % |
5 1.5 % 11.1 % |
342 100 % 18.6 % |
| 柴油汽車 | 0 0 % 0 % |
2 8.3 % 11.1 % |
4 16.7 % 3.3 % |
5 20.8 % 1.7 % |
1 4.2 % 0.5 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
2 8.3 % 2 % |
0 0 % 0 % |
0 0 % 0 % |
1 4.2 % 0.3 % |
2 8.3 % 1.7 % |
1 4.2 % 1.3 % |
0 0 % 0 % |
4 16.7 % 1.7 % |
1 4.2 % 0.5 % |
0 0 % 0 % |
1 4.2 % 2.2 % |
24 100 % 1.3 % |
| 油電混合車 | 0 0 % 0 % |
1 12.5 % 5.6 % |
1 12.5 % 0.8 % |
2 25 % 0.7 % |
1 12.5 % 0.5 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
2 25 % 3.8 % |
0 0 % 0 % |
1 12.5 % 0.3 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
8 100 % 0.4 % |
| 電動汽車 | 0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
2 100 % 0.6 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
2 100 % 0.1 % |
| 計程車 | 0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 16.7 % 0.3 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 16.7 % 1 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
3 50 % 1.2 % |
1 16.7 % 0.5 % |
0 0 % 0 % |
0 0 % 0 % |
6 100 % 0.3 % |
| uber | 0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 100 % 0.3 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 100 % 0.1 % |
| 其他，請說明 | 0 0 % 0 % |
0 0 % 0 % |
1 7.1 % 0.8 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 7.1 % 1 % |
1 7.1 % 1.9 % |
0 0 % 0 % |
1 7.1 % 0.3 % |
0 0 % 0 % |
2 14.3 % 2.6 % |
0 0 % 0 % |
2 14.3 % 0.8 % |
3 21.4 % 1.6 % |
2 14.3 % 50 % |
1 7.1 % 2.2 % |
14 100 % 0.8 % |
| Total | 1 0.1 % 100 % |
18 1 % 100 % |
122 6.6 % 100 % |
291 15.8 % 100 % |
204 11.1 % 100 % |
1 0.1 % 100 % |
4 0.2 % 100 % |
4 0.2 % 100 % |
1 0.1 % 100 % |
2 0.1 % 100 % |
18 1 % 100 % |
100 5.4 % 100 % |
52 2.8 % 100 % |
3 0.2 % 100 % |
342 18.6 % 100 % |
117 6.4 % 100 % |
76 4.1 % 100 % |
1 0.1 % 100 % |
240 13.1 % 100 % |
191 10.4 % 100 % |
4 0.2 % 100 % |
45 2.4 % 100 % |
1837 100 % 100 % |
| χ2=587.781 · df=294 · Cramer's V=0.151 · Fisher's p=0.000 | |||||||||||||||||||||||
#t檢定（政黨）
library(sjPlot)
tab_xtab(homework$f6, homework$h16, weight.by = homework$wr4_all, encoding="utf8",
show.row.prc = TRUE, # 顯示列百分比
show.col.prc = TRUE, # 顯示欄百分比
show.na = FALSE, # 不顯示無效值（預設）
show.legend = FALSE, # 不顯示圖示（預設）
show.exp = FALSE, # 不顯示期望值 （預設）
show.cell.prc = FALSE, # 不顯示細格的百分比 （預設）
tdcol.col = "gray", # 將欄百分比顏色改為灰色 （預設為綠色）
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色））
)| f6 | 政黨偏好 | Total | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 有支持政黨，但不回答 | 泛綠 | 泛藍 | 其他，請說明 | 無黨籍 | 台灣基進 | 綠黨 | 台灣民眾黨 | 時代力量 | 親民黨 | 新黨 | 民進黨 | 國民黨 | ||
| 步行 | 15 9.1 % 13.4 % |
5 3 % 14.3 % |
2 1.2 % 8.7 % |
59 35.8 % 9 % |
27 16.4 % 11.1 % |
3 1.8 % 23.1 % |
0 0 % 0 % |
0 0 % 0 % |
3 1.8 % 11.5 % |
0 0 % 0 % |
0 0 % 0 % |
24 14.5 % 8.5 % |
27 16.4 % 12.1 % |
165 100 % 9.9 % |
| 腳踏車 | 4 5.3 % 3.6 % |
0 0 % 0 % |
1 1.3 % 4.3 % |
27 36 % 4.1 % |
17 22.7 % 7 % |
0 0 % 0 % |
1 1.3 % 14.3 % |
1 1.3 % 2.7 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
14 18.7 % 5 % |
10 13.3 % 4.5 % |
75 100 % 4.5 % |
| 電動腳踏車 | 3 37.5 % 2.7 % |
0 0 % 0 % |
0 0 % 0 % |
3 37.5 % 0.5 % |
1 12.5 % 0.4 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 12.5 % 0.4 % |
8 100 % 0.5 % |
| 公車 | 8 8.8 % 7.1 % |
1 1.1 % 2.9 % |
4 4.4 % 17.4 % |
32 35.2 % 4.9 % |
6 6.6 % 2.5 % |
0 0 % 0 % |
0 0 % 0 % |
1 1.1 % 2.7 % |
2 2.2 % 7.7 % |
0 0 % 0 % |
0 0 % 0 % |
23 25.3 % 8.2 % |
14 15.4 % 6.3 % |
91 100 % 5.5 % |
| 火車 | 0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
2 18.2 % 0.3 % |
1 9.1 % 0.4 % |
1 9.1 % 7.7 % |
0 0 % 0 % |
0 0 % 0 % |
1 9.1 % 3.8 % |
0 0 % 0 % |
0 0 % 0 % |
2 18.2 % 0.7 % |
4 36.4 % 1.8 % |
11 100 % 0.7 % |
| 捷運 | 9 11.2 % 8 % |
7 8.8 % 20 % |
3 3.8 % 13 % |
22 27.5 % 3.3 % |
10 12.5 % 4.1 % |
0 0 % 0 % |
1 1.2 % 14.3 % |
5 6.2 % 13.5 % |
1 1.2 % 3.8 % |
0 0 % 0 % |
1 1.2 % 33.3 % |
13 16.2 % 4.6 % |
8 10 % 3.6 % |
80 100 % 4.8 % |
| 燃油機車 | 48 5.6 % 42.9 % |
13 1.5 % 37.1 % |
9 1.1 % 39.1 % |
354 41.6 % 53.9 % |
120 14.1 % 49.2 % |
7 0.8 % 53.8 % |
4 0.5 % 57.1 % |
20 2.4 % 54.1 % |
14 1.6 % 53.8 % |
6 0.7 % 100 % |
2 0.2 % 66.7 % |
149 17.5 % 52.8 % |
104 12.2 % 46.6 % |
850 100 % 51 % |
| 電動機車 | 1 2.9 % 0.9 % |
1 2.9 % 2.9 % |
1 2.9 % 4.3 % |
12 34.3 % 1.8 % |
8 22.9 % 3.3 % |
1 2.9 % 7.7 % |
0 0 % 0 % |
3 8.6 % 8.1 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
4 11.4 % 1.4 % |
4 11.4 % 1.8 % |
35 100 % 2.1 % |
| 汽油汽車 | 22 7.1 % 19.6 % |
6 1.9 % 17.1 % |
3 1 % 13 % |
131 42.1 % 19.9 % |
48 15.4 % 19.7 % |
1 0.3 % 7.7 % |
1 0.3 % 14.3 % |
5 1.6 % 13.5 % |
2 0.6 % 7.7 % |
0 0 % 0 % |
0 0 % 0 % |
46 14.8 % 16.3 % |
46 14.8 % 20.6 % |
311 100 % 18.6 % |
| 柴油汽車 | 1 6.2 % 0.9 % |
1 6.2 % 2.9 % |
0 0 % 0 % |
5 31.2 % 0.8 % |
1 6.2 % 0.4 % |
0 0 % 0 % |
0 0 % 0 % |
1 6.2 % 2.7 % |
1 6.2 % 3.8 % |
0 0 % 0 % |
0 0 % 0 % |
4 25 % 1.4 % |
2 12.5 % 0.9 % |
16 100 % 1 % |
| 油電混合車 | 0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
2 33.3 % 0.3 % |
2 33.3 % 0.8 % |
0 0 % 0 % |
0 0 % 0 % |
1 16.7 % 2.7 % |
1 16.7 % 3.8 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
6 100 % 0.4 % |
| 電動汽車 | 0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 100 % 0 % |
| 計程車 | 0 0 % 0 % |
1 14.3 % 2.9 % |
0 0 % 0 % |
2 28.6 % 0.3 % |
1 14.3 % 0.4 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
2 28.6 % 0.7 % |
1 14.3 % 0.4 % |
7 100 % 0.4 % |
| uber | 0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 100 % 3.8 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 100 % 0.1 % |
| 其他，請說明 | 1 8.3 % 0.9 % |
0 0 % 0 % |
0 0 % 0 % |
6 50 % 0.9 % |
2 16.7 % 0.8 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
0 0 % 0 % |
1 8.3 % 0.4 % |
2 16.7 % 0.9 % |
12 100 % 0.7 % |
| Total | 112 6.7 % 100 % |
35 2.1 % 100 % |
23 1.4 % 100 % |
657 39.4 % 100 % |
244 14.6 % 100 % |
13 0.8 % 100 % |
7 0.4 % 100 % |
37 2.2 % 100 % |
26 1.6 % 100 % |
6 0.4 % 100 % |
3 0.2 % 100 % |
282 16.9 % 100 % |
223 13.4 % 100 % |
1668 100 % 100 % |
| χ2=NaN · df=168 · Cramer's V=NaN · Fisher's p=0.003 | ||||||||||||||
#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.