#民意與政治行為第一次作業
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
library(sjmisc)Learn more about sjmisc with 'browseVignettes("sjmisc")'.library(sjPlot)
sjPlot::set_theme(theme.font="PingFang TC")
#清理無效值
homework <- set_na(homework , na=c(94:99, "NA"))##社會階層
#1.性別
#性別:□(01)男 □(02)女
table(homework$a1, exclude=NULL)
1 2
781 1058 library(gmodels)
CrossTable(homework$a1)
Cell Contents
|-------------------------|
| N |
| N / Table Total |
|-------------------------|
Total Observations in Table: 1839
| 1 | 2 |
|-----------|-----------|
| 781 | 1058 |
| 0.425 | 0.575 |
|-----------|-----------|
sjPlot::set_theme(theme.font="PingFang TC")
sjmisc::frq(homework$a1)a1 (x) <categorical>
# total N=1839 valid N=1839 mean=1.58 sd=0.49
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------
1 | 男 | 781 | 42.47 | 42.47 | 42.47
2 | 女 | 1058 | 57.53 | 57.53 | 100.00
<NA> | <NA> | 0 | 0.00 | <NA> | <NA>homework$a1 <- rec(homework$a1, rec="rev",
var.label="性別"
)#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="1,2,3=1[國小以下]; 4,5,6,7,8=2[國高中]; 9,10,12,13,14,15,11,16,17,18,19,20,21=4[大學（專）以上]; else=5[其他]",
as.num = F, var.label="教育程度"
)#工作與收入
#個人每月收入
#□(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")
#全家每月收入
#□(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= "1,3,4,12=1[泛藍]; 2,5,9,13=2[泛綠]; 7,6,10=3[中間]; else=4[其他]", as.num= F,
var.label="政黨偏好" )##環保意識
#請問您外出買東西時，常不常加購購物袋或索取提袋?
#□(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="環保意識" )#請問您用餐時，常不常使用店家所提供的免洗餐具?
#□(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="請問您用餐時，常不常使用店家所提供的免洗餐具?" )#請問您在外喝水時，常不常使用瓶裝水或紙杯?
#□(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="請問您在外喝水時，常不常使用瓶裝水或紙杯?" )#請問您用餐時，常不常以手帕代替面紙或濕紙巾之使用?
#□(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>#請問您同不同意以下的說法?
##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>##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>##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>#一般來說，您對環境問題的關心程度為何?請從 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>#請問您認為對台灣整體來說最重要的環境問題是哪一項?
#□(01)空氣污染 □(02)農藥和化學肥料 □(03)水資源短缺
#□(04)水質污染 □(05)核廢料 □(06)家庭廢棄物
#□(07)氣候變遷 □(08)基因改造食品 □(09)自然資源耗盡 □(10)以上皆非
homework$a1 <- set_label(homework$a1, label="性別")
homework$b7 <- rec(homework$b7, rec="1,4=1[空氣與水質污染]; 2,8=2[農業問題（農藥、化學肥料、基改食品）]; 3,7=3[氣候變遷（含水資源短缺）]; 5=4[核廢料]; 6=5[家庭廢棄物]; 9=6[自然資源耗盡]; 10=7[其他]",
var.label="請問您認為對台灣整體來說最重要的環境問題是哪一項?")
frq(homework$b7)請問您認為對台灣整體來說最重要的環境問題是哪一項? (x) <numeric>
# total N=1839 valid N=1711 mean=2.16 sd=1.64
Value | Label | N | Raw % | Valid % | Cum. %
-----------------------------------------------------------------------------
1 | 空氣與水質污染 | 989 | 53.78 | 57.80 | 57.80
2 | 農業問題（農藥、化學肥料、基改食品） | 148 | 8.05 | 8.65 | 66.45
3 | 氣候變遷（含水資源短缺） | 247 | 13.43 | 14.44 | 80.89
4 | 核廢料 | 81 | 4.40 | 4.73 | 85.62
5 | 家庭廢棄物 | 136 | 7.40 | 7.95 | 93.57
6 | 自然資源耗盡 | 99 | 5.38 | 5.79 | 99.36
7 | 其他 | 11 | 0.60 | 0.64 | 100.00
<NA> | <NA> | 128 | 6.96 | <NA> | <NA>#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" # 將列百分比顏色改為褐色 （預設為藍色）
)| 請問您認為對台灣整體來說最重要的環境問題是哪一項? | 性別 | Total | |
|---|---|---|---|
| 女 | 男 | ||
| 空氣與水質污染 | 516 51.8 % 58.9 % |
480 48.2 % 56.7 % |
996 100 % 57.8 % |
| 農業問題（農藥、化學肥料、基改食品） | 81 57 % 9.2 % |
61 43 % 7.2 % |
142 100 % 8.2 % |
| 氣候變遷（含水資源短缺） | 115 45.5 % 13.1 % |
138 54.5 % 16.3 % |
253 100 % 14.7 % |
| 核廢料 | 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 % |
| 自然資源耗盡 | 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 % |
846 49.1 % 100 % |
1722 100 % 100 % |
| χ2=9.058 · df=6 · Cramer's V=0.073 · p=0.170 | |||
我們透過環保意識中的「請問您認為對台灣整體來說最重要的環境問題是哪一項?」的問卷題目與性別實施Ｔ檢定經過加權後可以發現卡方值為9.058，自由度為6，顯著性則是0.170>0.05。代表不同的性別認為最重要的環境議題沒有顯著差異。
#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" # 將列百分比顏色改為褐色 （預設為藍色）
)| 請問您認為對台灣整體來說最重要的環境問題是哪一項? | 教育程度 | Total | |||
|---|---|---|---|---|---|
| 國小以下 | 國高中 | 大學（專）以上 | 其他 | ||
| 空氣與水質污染 | 118 11.9 % 62.4 % |
454 45.7 % 62.1 % |
421 42.4 % 52.8 % |
1 0.1 % 100 % |
994 100 % 57.8 % |
| 農業問題（農藥、化學肥料、基改食品） | 28 19.7 % 14.8 % |
64 45.1 % 8.8 % |
50 35.2 % 6.3 % |
0 0 % 0 % |
142 100 % 8.3 % |
| 氣候變遷（含水資源短缺） | 19 7.5 % 10.1 % |
94 37.3 % 12.9 % |
139 55.2 % 17.4 % |
0 0 % 0 % |
252 100 % 14.7 % |
| 核廢料 | 6 7.3 % 3.2 % |
32 39 % 4.4 % |
44 53.7 % 5.5 % |
0 0 % 0 % |
82 100 % 4.8 % |
| 家庭廢棄物 | 11 7.9 % 5.8 % |
57 41 % 7.8 % |
71 51.1 % 8.9 % |
0 0 % 0 % |
139 100 % 8.1 % |
| 自然資源耗盡 | 6 6 % 3.2 % |
26 26 % 3.6 % |
68 68 % 8.5 % |
0 0 % 0 % |
100 100 % 5.8 % |
| 其他 | 1 10 % 0.5 % |
4 40 % 0.5 % |
5 50 % 0.6 % |
0 0 % 0 % |
10 100 % 0.6 % |
| Total | 189 11 % 100 % |
731 42.5 % 100 % |
798 46.4 % 100 % |
1 0.1 % 100 % |
1719 100 % 100 % |
| χ2=52.538 · df=18 · Cramer's V=0.101 · Fisher's p=0.000 | |||||
我們接下來透過教育程度對「請問您認為對台灣整體來說最重要的環境問題是哪一項?」實施Ｔ檢定，卡方值為52.538，自由度為18，顯著性是0.000<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" # 將列百分比顏色改為褐色 （預設為藍色）
)| 請問您認為對台灣整體來說最重要的環境問題是哪一項? | 政黨偏好 | Total | |||
|---|---|---|---|---|---|
| 泛藍 | 泛綠 | 中間 | 其他 | ||
| 空氣與水質污染 | 153 17.1 % 61.2 % |
166 18.5 % 52 % |
170 19 % 61.2 % |
406 45.4 % 56.5 % |
895 100 % 57.2 % |
| 農業問題（農藥、化學肥料、基改食品） | 19 16.1 % 7.6 % |
25 21.2 % 7.8 % |
15 12.7 % 5.4 % |
59 50 % 8.2 % |
118 100 % 7.5 % |
| 氣候變遷（含水資源短缺） | 37 15.4 % 14.8 % |
61 25.4 % 19.1 % |
42 17.5 % 15.1 % |
100 41.7 % 13.9 % |
240 100 % 15.3 % |
| 核廢料 | 7 9 % 2.8 % |
25 32.1 % 7.8 % |
15 19.2 % 5.4 % |
31 39.7 % 4.3 % |
78 100 % 5 % |
| 家庭廢棄物 | 17 13 % 6.8 % |
24 18.3 % 7.5 % |
22 16.8 % 7.9 % |
68 51.9 % 9.5 % |
131 100 % 8.4 % |
| 自然資源耗盡 | 16 17.2 % 6.4 % |
17 18.3 % 5.3 % |
14 15.1 % 5 % |
46 49.5 % 6.4 % |
93 100 % 5.9 % |
| 其他 | 1 9.1 % 0.4 % |
1 9.1 % 0.3 % |
0 0 % 0 % |
9 81.8 % 1.3 % |
11 100 % 0.7 % |
| Total | 250 16 % 100 % |
319 20.4 % 100 % |
278 17.8 % 100 % |
719 45.9 % 100 % |
1566 100 % 100 % |
| χ2=26.598 · df=18 · Cramer's V=0.075 · Fisher's p=0.117 | |||||
我們再用政黨偏好對「請問您認為對台灣整體來說最重要的環境問題是哪一項?」實施Ｔ檢定，卡方值為26.598，自由度為18，顯著性為0.110>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>#請問您認為氣候變遷對臺灣會有怎麼樣的影響?從 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>#請問您同不同意以下說法?
##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>##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>##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>##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>##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>##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>#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>##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>##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>##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>#請問您同不同意以下說法?
##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>##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>##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>##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>##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>##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>##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>#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>##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>##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>##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>##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>##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>##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>#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>#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 | |||
|---|---|---|---|---|---|
| 國小以下 | 國高中 | 大學（專）以上 | 其他 | ||
| 對企業提供更多關於保護環境之好處的資訊與教育 | 76 13.8 % 39.8 % |
280 50.7 % 37.6 % |
196 35.5 % 24.4 % |
0 0 % 0 % |
552 100 % 31.7 % |
| 保護環境的企業可以繳比較少的稅 | 28 6.5 % 14.7 % |
125 28.9 % 16.8 % |
278 64.4 % 34.6 % |
1 0.2 % 100 % |
432 100 % 24.8 % |
| 對於破壞環境的企業處以高額罰金 | 87 11.5 % 45.5 % |
339 44.8 % 45.6 % |
330 43.7 % 41 % |
0 0 % 0 % |
756 100 % 43.4 % |
| Total | 191 11 % 100 % |
744 42.8 % 100 % |
804 46.2 % 100 % |
1 0.1 % 100 % |
1740 100 % 100 % |
| χ2=88.885 · df=6 · Cramer's V=0.160 · Fisher's p=0.000 | |||||
在教育程度與「請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法?」的環境意識題目中，我們使用Ｔ檢定來執行，結果為卡方值為88.885，自由度為6，顯著性為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 | |||
|---|---|---|---|---|---|
| 泛藍 | 泛綠 | 中間 | 其他 | ||
| 對企業提供更多關於保護環境之好處的資訊與教育 | 85 17 % 34.1 % |
102 20.4 % 31.5 % |
86 17.2 % 29.8 % |
226 45.3 % 31 % |
499 100 % 31.4 % |
| 保護環境的企業可以繳比較少的稅 | 56 13.9 % 22.5 % |
77 19.2 % 23.8 % |
86 21.4 % 29.8 % |
183 45.5 % 25.1 % |
402 100 % 25.3 % |
| 對於破壞環境的企業處以高額罰金 | 108 15.7 % 43.4 % |
145 21 % 44.8 % |
117 17 % 40.5 % |
320 46.4 % 43.9 % |
690 100 % 43.4 % |
| Total | 249 15.7 % 100 % |
324 20.4 % 100 % |
289 18.2 % 100 % |
729 45.8 % 100 % |
1591 100 % 100 % |
| χ2=4.988 · df=6 · Cramer's V=0.040 · p=0.545 | |||||
在政黨偏好與「請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法?」的環境意識題目中，我們使用Ｔ檢定來執行，卡方值為4.988，自由度為6，顯著性為0.545>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>#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 | |||
|---|---|---|---|---|---|
| 國小以下 | 國高中 | 大學（專）以上 | 其他 | ||
| 對於破壞環境的民眾處以高額罰金 | 77 12 % 38.5 % |
275 43 % 36.5 % |
288 45 % 35.6 % |
0 0 % 0 % |
640 100 % 36.3 % |
| 保護環境的民眾可以繳比較少的稅 | 23 6.8 % 11.5 % |
113 33.5 % 15 % |
201 59.6 % 24.8 % |
0 0 % 0 % |
337 100 % 19.1 % |
| 對民眾提供更多關於保護環境之好處的資訊與教育 | 100 12.7 % 50 % |
366 46.4 % 48.5 % |
321 40.7 % 39.6 % |
1 0.1 % 100 % |
788 100 % 44.6 % |
| Total | 200 11.3 % 100 % |
754 42.7 % 100 % |
810 45.9 % 100 % |
1 0.1 % 100 % |
1765 100 % 100 % |
| χ2=36.635 · df=6 · Cramer's V=0.102 · Fisher's p=0.000 | |||||
在教育程度與「請問您認為以下哪一個方法是促使台灣民眾保護環境的最好方法?」的環境意識題目中，我們使用Ｔ檢定來執行，結果為卡方值為36.635，自由度為6，顯著性為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 | |||
|---|---|---|---|---|---|
| 泛藍 | 泛綠 | 中間 | 其他 | ||
| 對於破壞環境的民眾處以高額罰金 | 84 14.5 % 33.5 % |
119 20.6 % 36.8 % |
114 19.7 % 38.9 % |
262 45.3 % 35.1 % |
579 100 % 35.9 % |
| 保護環境的民眾可以繳比較少的稅 | 49 15.6 % 19.5 % |
67 21.3 % 20.7 % |
58 18.4 % 19.8 % |
141 44.8 % 18.9 % |
315 100 % 19.5 % |
| 對民眾提供更多關於保護環境之好處的資訊與教育 | 118 16.4 % 47 % |
137 19.1 % 42.4 % |
121 16.8 % 41.3 % |
343 47.7 % 46 % |
719 100 % 44.6 % |
| Total | 251 15.6 % 100 % |
323 20 % 100 % |
293 18.2 % 100 % |
746 46.2 % 100 % |
1613 100 % 100 % |
| χ2=3.472 · df=6 · Cramer's V=0.033 · p=0.748 | |||||
tdcol.row = "brown" # 將列百分比顏色改為褐色 （預設為藍色）在政黨偏好與「請問您認為以下哪一個方法是促使台灣民眾保護環境的最好方法?」的環境意識題目中，我們使用Ｔ檢定來執行，結果為卡方值為3.472，自由度為6，顯著性為0.748>0.05，代表不同政黨偏好對於認為促使台灣民眾保護環境的最好方法上，並沒有顯著差異。
#B15. 請問您喜不喜愛到大自然從事戶外活動?
#□(01)一點也不喜愛 □(02)有點喜愛 □(03)還算喜愛 □(04)相當喜愛 □(05)非常喜愛
homework$a1 <- set_label(homework$a1, label="性別")
homework$b15 <- rec(homework$b15, rec="rev",
var.label="請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法?")
frq(homework$b15)請問您認為以下哪一個方法是促使台灣企業和產業保護環境的最好方法? (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>#B16. 在過去 12 個月裡，請問您常不常到大自然從事戶外休閒活動，例如登山、賞鳥、健行等、或是 單純放鬆的自然戶外活動?
#□(01)每天 □(02)一週好幾次 □(03)一個月好幾次 □(04)一年好幾次 □(05)從來沒有
homework$a1 <- set_label(homework$a1, label="性別")
homework$b16 <- rec(homework$b16, rec="rev",
var.label="在過去 12 個月裡，請問您常不常到大自然從事戶外休閒活動，例如登山、賞鳥、健行等、或是 單純放鬆的自然戶外活動?")
frq(homework$b16)在過去 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>#B19
##a. 請問您常不常為了資源回收特地對玻璃、鋁罐、塑膠或報紙做分類?
##□(01)總是 □(02)經常 □(03)有時 □(04)從不 □(08)我住的地區沒有資源回收
homework$a1 <- set_label(homework$a1, label="性別")
homework$b19a <- rec(homework$b19a, rec="rev",
var.label="請問您常不常為了資源回收特地對玻璃、鋁罐、塑膠或報紙做分類?")
frq(homework$b19a)請問您常不常為了資源回收特地對玻璃、鋁罐、塑膠或報紙做分類? (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>##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>#B20. 請問您是環保團體的成員嗎?
# □(01)是 □(02)否
homework$a1 <- set_label(homework$a1, label="性別")
homework$b20 <- rec(homework$b20, rec="rev",
var.label="請問您是環保團體的成員嗎?")
frq(homework$b20)請問您是環保團體的成員嗎? (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>#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" # 將列百分比顏色改為褐色 （預設為藍色）
)| 請問您是環保團體的成員嗎? | 性別 | Total | |
|---|---|---|---|
| 女 | 男 | ||
| 否 | 905 51.1 % 95.7 % |
865 48.9 % 97 % |
1770 100 % 96.3 % |
| 是 | 41 60.3 % 4.3 % |
27 39.7 % 3 % |
68 100 % 3.7 % |
| Total | 946 51.5 % 100 % |
892 48.5 % 100 % |
1838 100 % 100 % |
| χ2=1.850 · df=1 · &phi=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" # 將列百分比顏色改為褐色 （預設為藍色）
)| 請問您是環保團體的成員嗎? | 教育程度 | Total | |||
|---|---|---|---|---|---|
| 國小以下 | 國高中 | 大學（專）以上 | 其他 | ||
| 否 | 225 12.7 % 93 % |
745 42.1 % 95.9 % |
797 45.1 % 97.6 % |
1 0.1 % 100 % |
1768 100 % 96.2 % |
| 是 | 17 24.6 % 7 % |
32 46.4 % 4.1 % |
20 29 % 2.4 % |
0 0 % 0 % |
69 100 % 3.8 % |
| Total | 242 13.2 % 100 % |
777 42.3 % 100 % |
817 44.5 % 100 % |
1 0.1 % 100 % |
1837 100 % 100 % |
| χ2=11.341 · df=3 · Cramer's V=0.079 · Fisher's p=0.008 | |||||
在教育程度與「請問您是環保團體的成員嗎?」的問題中，經過Ｔ檢定的統計結果，卡方值為11.341，自由度為3，顯著性為0.013<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" # 將列百分比顏色改為褐色 （預設為藍色））
)| 請問您是環保團體的成員嗎? | 政黨偏好 | Total | |||
|---|---|---|---|---|---|
| 泛藍 | 泛綠 | 中間 | 其他 | ||
| 否 | 246 15.3 % 96.1 % |
315 19.6 % 95.5 % |
299 18.6 % 96.8 % |
745 46.4 % 95.8 % |
1605 100 % 95.9 % |
| 是 | 10 14.7 % 3.9 % |
15 22.1 % 4.5 % |
10 14.7 % 3.2 % |
33 48.5 % 4.2 % |
68 100 % 4.1 % |
| Total | 256 15.3 % 100 % |
330 19.7 % 100 % |
309 18.5 % 100 % |
778 46.5 % 100 % |
1673 100 % 100 % |
| χ2=0.818 · df=3 · Cramer's V=0.022 · p=0.845 | |||||
在政黨偏好與「請問您是環保團體的成員嗎?」的問題中，經過Ｔ檢定的統計結果，卡方值為0.818，自由度為3，顯著性為0.845>0.05，因此政黨偏好與是否為環保團體並沒有顯著差異。
#B21. 在過去五年間，請問您有沒有做過以下的事情
##a. 連署一份有關環保議題的請願書
#□(01)有 □(02)沒有
homework$a1 <- set_label(homework$a1, label="性別")
homework$b21a <- rec(homework$b21a, rec="rev",
var.label="連署一份有關環保議題的請願書")
frq(homework$b21a)連署一份有關環保議題的請願書 (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>#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" # 將列百分比顏色改為褐色 （預設為藍色）
)| 連署一份有關環保議題的請願書 | 性別 | Total | |
|---|---|---|---|
| 女 | 男 | ||
| 沒有 | 840 50.2 % 88.8 % |
832 49.8 % 93.2 % |
1672 100 % 90.9 % |
| 有 | 106 63.5 % 11.2 % |
61 36.5 % 6.8 % |
167 100 % 9.1 % |
| Total | 946 51.4 % 100 % |
893 48.6 % 100 % |
1839 100 % 100 % |
| χ2=10.122 · df=1 · &phi=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" # 將列百分比顏色改為褐色 （預設為藍色）
)| 連署一份有關環保議題的請願書 | 教育程度 | Total | |||
|---|---|---|---|---|---|
| 國小以下 | 國高中 | 大學（專）以上 | 其他 | ||
| 沒有 | 238 14.3 % 98.8 % |
749 44.9 % 96.4 % |
682 40.8 % 83.5 % |
1 0.1 % 100 % |
1670 100 % 91 % |
| 有 | 3 1.8 % 1.2 % |
28 16.9 % 3.6 % |
135 81.3 % 16.5 % |
0 0 % 0 % |
166 100 % 9 % |
| Total | 241 13.1 % 100 % |
777 42.3 % 100 % |
817 44.5 % 100 % |
1 0.1 % 100 % |
1836 100 % 100 % |
| χ2=101.471 · df=3 · Cramer's V=0.235 · Fisher's p=0.000 | |||||
在教育程度與「五年內連署一份有關環保議題的請願書」的問題中，經過Ｔ檢定的統計結果，卡方值為101.471，自由度為3，顯著性為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" # 將列百分比顏色改為褐色 （預設為藍色））
)| 連署一份有關環保議題的請願書 | 政黨偏好 | Total | |||
|---|---|---|---|---|---|
| 泛藍 | 泛綠 | 中間 | 其他 | ||
| 沒有 | 233 15.4 % 90.7 % |
293 19.3 % 89.1 % |
265 17.5 % 85.5 % |
725 47.8 % 93.2 % |
1516 100 % 90.6 % |
| 有 | 24 15.2 % 9.3 % |
36 22.8 % 10.9 % |
45 28.5 % 14.5 % |
53 33.5 % 6.8 % |
158 100 % 9.4 % |
| Total | 257 15.4 % 100 % |
329 19.7 % 100 % |
310 18.5 % 100 % |
778 46.5 % 100 % |
1674 100 % 100 % |
| χ2=16.501 · df=3 · Cramer's V=0.099 · p=0.001 | |||||
在政黨偏好與「五年內連署一份有關環保議題的請願書」的問題中，經過Ｔ檢定的統計結果，卡方值為16.501，自由度為3，顯著性為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>#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 · &phi=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 | |||
|---|---|---|---|---|---|
| 國小以下 | 國高中 | 大學（專）以上 | 其他 | ||
| 有 | 8 4.7 % 3.3 % |
54 31.8 % 6.9 % |
108 63.5 % 13.2 % |
0 0 % 0 % |
170 100 % 9.3 % |
| 沒有 | 234 14 % 96.7 % |
723 43.4 % 93.1 % |
709 42.5 % 86.8 % |
1 0.1 % 100 % |
1667 100 % 90.7 % |
| Total | 242 13.2 % 100 % |
777 42.3 % 100 % |
817 44.5 % 100 % |
1 0.1 % 100 % |
1837 100 % 100 % |
| χ2=30.506 · df=3 · Cramer's V=0.129 · Fisher's p=0.000 | |||||
在教育程度與「五年內捐款給環保團體」的問題中，經過Ｔ檢定的統計結果，卡方值為30.506，自由度為3，顯著性為0.000<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 | |||
|---|---|---|---|---|---|
| 泛藍 | 泛綠 | 中間 | 其他 | ||
| 有 | 36 22.9 % 14 % |
33 21 % 10 % |
36 22.9 % 11.7 % |
52 33.1 % 6.7 % |
157 100 % 9.4 % |
| 沒有 | 221 14.6 % 86 % |
296 19.5 % 90 % |
273 18 % 88.3 % |
726 47.9 % 93.3 % |
1516 100 % 90.6 % |
| Total | 257 15.4 % 100 % |
329 19.7 % 100 % |
309 18.5 % 100 % |
778 46.5 % 100 % |
1673 100 % 100 % |
| χ2=15.160 · df=3 · Cramer's V=0.095 · p=0.002 | |||||
在政黨與「五年內捐款給環保團體」的問題中，經過Ｔ檢定的統計結果，卡方值為15.160，自由度為3，顯著性為0.002<0.05，因此政黨偏好與五年內捐款給環保團體有顯著差異。
##c. 參加有關環保議題的抗議行動或遊行
#□(01)有 □(02)沒有
homework$a1 <- set_label(homework$a1, label="性別")
homework$b21c <- rec(homework$b21c, rec="rev",
var.label="參加有關環保議題的抗議行動或遊行")
frq(homework$b21c)參加有關環保議題的抗議行動或遊行 (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>#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" # 將列百分比顏色改為褐色 （預設為藍色）
)| 參加有關環保議題的抗議行動或遊行 | 性別 | Total | |
|---|---|---|---|
| 女 | 男 | ||
| 沒有 | 938 51.7 % 99.2 % |
878 48.3 % 98.3 % |
1816 100 % 98.7 % |
| 有 | 8 34.8 % 0.8 % |
15 65.2 % 1.7 % |
23 100 % 1.3 % |
| Total | 946 51.4 % 100 % |
893 48.6 % 100 % |
1839 100 % 100 % |
| χ2=1.956 · df=1 · &phi=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" # 將列百分比顏色改為褐色 （預設為藍色）
)| 參加有關環保議題的抗議行動或遊行 | 教育程度 | Total | |||
|---|---|---|---|---|---|
| 國小以下 | 國高中 | 大學（專）以上 | 其他 | ||
| 沒有 | 241 13.3 % 99.6 % |
771 42.5 % 99.2 % |
801 44.2 % 98 % |
1 0.1 % 100 % |
1814 100 % 98.7 % |
| 有 | 1 4.3 % 0.4 % |
6 26.1 % 0.8 % |
16 69.6 % 2 % |
0 0 % 0 % |
23 100 % 1.3 % |
| Total | 242 13.2 % 100 % |
777 42.3 % 100 % |
817 44.5 % 100 % |
1 0.1 % 100 % |
1837 100 % 100 % |
| χ2=6.134 · df=3 · Cramer's V=0.058 · Fisher's p=0.063 | |||||
在教育程度與「五年內參加有關環保議題的抗議行動或遊行」的問題中，經過Ｔ檢定的統計結果，卡方值為6.134，自由度為3，顯著性為0.079>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" # 將列百分比顏色改為褐色 （預設為藍色））
)| 參加有關環保議題的抗議行動或遊行 | 政黨偏好 | Total | |||
|---|---|---|---|---|---|
| 泛藍 | 泛綠 | 中間 | 其他 | ||
| 沒有 | 256 15.5 % 99.6 % |
318 19.3 % 96.4 % |
308 18.7 % 99.7 % |
769 46.6 % 99 % |
1651 100 % 98.7 % |
| 有 | 1 4.5 % 0.4 % |
12 54.5 % 3.6 % |
1 4.5 % 0.3 % |
8 36.4 % 1 % |
22 100 % 1.3 % |
| Total | 257 15.4 % 100 % |
330 19.7 % 100 % |
309 18.5 % 100 % |
777 46.4 % 100 % |
1673 100 % 100 % |
| χ2=18.229 · df=3 · Cramer's V=0.104 · Fisher's p=0.001 | |||||
在政黨偏好與「五年內參加有關環保議題的抗議行動或遊行」的問題中，經過Ｔ檢定的統計結果，卡方值為18.229，自由度為3，顯著性為0.002<0.05，因此政黨偏好與五年內參加有關環保議題的抗議行動或遊行有顯著差異。
#E、環境態度
##E1. 您覺得地球上的動植物種類減少是不是一個嚴重的問題?
##□(01)很嚴重 □(02)有些嚴重 □(03)不太嚴重 □(04)一點也不嚴重
homework$a1 <- set_label(homework$a1, label="性別")
homework$e1 <- rec(homework$e1, rec="rev",
var.label="您覺得地球上的動植物種類減少是不是一個嚴重的問題?")
frq(homework$e1)您覺得地球上的動植物種類減少是不是一個嚴重的問題? (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>##E2. 您覺得政府目前的環境保護政策符不符合公平正義的原則?
##□(01)非常符合 □(02)符合 □(03)不符合 □(04)非常不符合
homework$a1 <- set_label(homework$a1, label="性別")
homework$e2 <- rec(homework$e2, rec="rev",
var.label="您覺得政府目前的環境保護政策符不符合公平正義的原則?")
frq(homework$e2)您覺得政府目前的環境保護政策符不符合公平正義的原則? (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>##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>#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 | |||
|---|---|---|---|---|---|
| 國小以下 | 國高中 | 大學（專）以上 | 其他 | ||
| 縣市環保局 | 55 6.6 % 27.9 % |
313 37.8 % 41.7 % |
460 55.6 % 56.9 % |
0 0 % 0 % |
828 100 % 47.2 % |
| 警察局、法院 | 12 16.7 % 6.1 % |
32 44.4 % 4.3 % |
28 38.9 % 3.5 % |
0 0 % 0 % |
72 100 % 4.1 % |
| 民意代表 | 4 6 % 2 % |
24 35.8 % 3.2 % |
39 58.2 % 4.8 % |
0 0 % 0 % |
67 100 % 3.8 % |
| 鄉鎮村里長 | 117 20.1 % 59.4 % |
302 51.8 % 40.3 % |
163 28 % 20.2 % |
1 0.2 % 100 % |
583 100 % 33.2 % |
| 向該工廠陳情抗議 | 5 11.4 % 2.5 % |
27 61.4 % 3.6 % |
12 27.3 % 1.5 % |
0 0 % 0 % |
44 100 % 2.5 % |
| 行政院環保署 | 2 3.4 % 1 % |
15 25.9 % 2 % |
41 70.7 % 5.1 % |
0 0 % 0 % |
58 100 % 3.3 % |
| 報紙、媒體 | 0 0 % 0 % |
2 16.7 % 0.3 % |
10 83.3 % 1.2 % |
0 0 % 0 % |
12 100 % 0.7 % |
| 環保團體 | 1 1.8 % 0.5 % |
22 38.6 % 2.9 % |
34 59.6 % 4.2 % |
0 0 % 0 % |
57 100 % 3.2 % |
| 當地社區團體 | 1 10 % 0.5 % |
4 40 % 0.5 % |
5 50 % 0.6 % |
0 0 % 0 % |
10 100 % 0.6 % |
| 網路、部落格 | 0 0 % 0 % |
9 36 % 1.2 % |
16 64 % 2 % |
0 0 % 0 % |
25 100 % 1.4 % |
| Total | 197 11.2 % 100 % |
750 42.7 % 100 % |
808 46 % 100 % |
1 0.1 % 100 % |
1756 100 % 100 % |
| χ2=179.561 · df=27 · Cramer's V=0.185 · Fisher's p=0.000 | |||||
在教育程度與「假設您的住所附近有一家工廠造成環境污染，現在這裡有一份清單，請您從中選出您最可能尋求協助的對象。」的問題中，經過Ｔ檢定的統計結果，卡方值為179.561，自由度為27，顯著性為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 | |||
|---|---|---|---|---|---|
| 泛藍 | 泛綠 | 中間 | 其他 | ||
| 縣市環保局 | 125 16.8 % 49.8 % |
141 19 % 43 % |
156 21 % 53.4 % |
320 43.1 % 43.6 % |
742 100 % 46.2 % |
| 警察局、法院 | 5 7.8 % 2 % |
16 25 % 4.9 % |
12 18.8 % 4.1 % |
31 48.4 % 4.2 % |
64 100 % 4 % |
| 民意代表 | 15 22.7 % 6 % |
18 27.3 % 5.5 % |
12 18.2 % 4.1 % |
21 31.8 % 2.9 % |
66 100 % 4.1 % |
| 鄉鎮村里長 | 80 14.8 % 31.9 % |
104 19.2 % 31.7 % |
72 13.3 % 24.7 % |
285 52.7 % 38.8 % |
541 100 % 33.7 % |
| 向該工廠陳情抗議 | 7 16.7 % 2.8 % |
8 19 % 2.4 % |
4 9.5 % 1.4 % |
23 54.8 % 3.1 % |
42 100 % 2.6 % |
| 行政院環保署 | 3 5.5 % 1.2 % |
20 36.4 % 6.1 % |
11 20 % 3.8 % |
21 38.2 % 2.9 % |
55 100 % 3.4 % |
| 報紙、媒體 | 2 20 % 0.8 % |
1 10 % 0.3 % |
4 40 % 1.4 % |
3 30 % 0.4 % |
10 100 % 0.6 % |
| 環保團體 | 11 20.8 % 4.4 % |
12 22.6 % 3.7 % |
13 24.5 % 4.5 % |
17 32.1 % 2.3 % |
53 100 % 3.3 % |
| 當地社區團體 | 0 0 % 0 % |
4 40 % 1.2 % |
1 10 % 0.3 % |
5 50 % 0.7 % |
10 100 % 0.6 % |
| 網路、部落格 | 3 13.6 % 1.2 % |
4 18.2 % 1.2 % |
7 31.8 % 2.4 % |
8 36.4 % 1.1 % |
22 100 % 1.4 % |
| Total | 251 15.6 % 100 % |
328 20.4 % 100 % |
292 18.2 % 100 % |
734 45.7 % 100 % |
1605 100 % 100 % |
| χ2=57.538 · df=27 · Cramer's V=0.109 · Fisher's p=0.000 | |||||
在政黨偏好與「假設您的住所附近有一家工廠造成環境污染，現在這裡有一份清單，請您從中選出您最可能尋求協助的對象。」的問題中，經過Ｔ檢定的統計結果，卡方值為57.538，自由度為27，顯著性為0.000<0.05，因此政黨偏好與若住所遭受污染，可能尋求協助的對象有顯著差異。
##E4. 請問您同不同意以下說法:降低環境污染應該是政府的事，不應該花到我的錢。
##□(01)非常同意 □(02)同意 □(03)不同意 □(04)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e4 <- rec(homework$e4, rec="rev",
var.label="請問您同不同意以下說法:降低環境污染應該是政府的事，不應該花到我的錢。")
frq(homework$e4)請問您同不同意以下說法:降低環境污染應該是政府的事，不應該花到我的錢。 (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>##E5. 請問您認為應繼續使用核電還是應廢除核電?
##□(01)應繼續使用核電 □(02)應廢除核電 □(03)無所謂 □(04)其他，請說明
homework$a1 <- set_label(homework$a1, label="性別")
homework$e5 <- rec(homework$e5, rec="rev",
var.label="請問您認為應繼續使用核電還是應廢除核電?")
frq(homework$e5)請問您認為應繼續使用核電還是應廢除核電? (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>#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" # 將列百分比顏色改為褐色 （預設為藍色）
)| 請問您認為應繼續使用核電還是應廢除核電? | 性別 | Total | |
|---|---|---|---|
| 女 | 男 | ||
| 其他，請說明 | 17 47.2 % 2.3 % |
19 52.8 % 2.3 % |
36 100 % 2.3 % |
| 無所謂 | 95 57.2 % 12.7 % |
71 42.8 % 8.5 % |
166 100 % 10.5 % |
| 應廢除核電 | 211 47.5 % 28.3 % |
233 52.5 % 27.9 % |
444 100 % 28.1 % |
| 應繼續使用核電 | 423 45.2 % 56.7 % |
513 54.8 % 61.4 % |
936 100 % 59.2 % |
| 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" # 將列百分比顏色改為褐色 （預設為藍色）
)| 請問您認為應繼續使用核電還是應廢除核電? | 教育程度 | Total | |||
|---|---|---|---|---|---|
| 國小以下 | 國高中 | 大學（專）以上 | 其他 | ||
| 其他，請說明 | 2 5.6 % 1.4 % |
7 19.4 % 1.1 % |
27 75 % 3.5 % |
0 0 % 0 % |
36 100 % 2.3 % |
| 無所謂 | 16 9.8 % 11.3 % |
81 49.4 % 12.2 % |
67 40.9 % 8.7 % |
0 0 % 0 % |
164 100 % 10.4 % |
| 應廢除核電 | 46 10.4 % 32.4 % |
192 43.2 % 28.9 % |
205 46.2 % 26.5 % |
1 0.2 % 100 % |
444 100 % 28.1 % |
| 應繼續使用核電 | 78 8.3 % 54.9 % |
385 41.1 % 57.9 % |
474 50.6 % 61.3 % |
0 0 % 0 % |
937 100 % 59.3 % |
| Total | 142 9 % 100 % |
665 42.1 % 100 % |
773 48.9 % 100 % |
1 0.1 % 100 % |
1581 100 % 100 % |
| χ2=19.771 · df=9 · Cramer's V=0.065 · Fisher's p=0.008 | |||||
在教育程度與「請問您認為應繼續使用核電還是應廢除核電?」的題目中，我們進行Ｔ檢定，結果的卡方值為19.771，自由度為9，顯著性為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" # 將列百分比顏色改為褐色 （預設為藍色））
)| 請問您認為應繼續使用核電還是應廢除核電? | 政黨偏好 | Total | |||
|---|---|---|---|---|---|
| 泛藍 | 泛綠 | 中間 | 其他 | ||
| 其他，請說明 | 4 11.4 % 1.7 % |
7 20 % 2.3 % |
5 14.3 % 2 % |
19 54.3 % 2.9 % |
35 100 % 2.4 % |
| 無所謂 | 19 12.3 % 8.3 % |
28 18.2 % 9.2 % |
40 26 % 16 % |
67 43.5 % 10.2 % |
154 100 % 10.7 % |
| 應廢除核電 | 28 7.1 % 12.2 % |
149 37.7 % 49.2 % |
56 14.2 % 22.4 % |
162 41 % 24.7 % |
395 100 % 27.4 % |
| 應繼續使用核電 | 179 20.9 % 77.8 % |
119 13.9 % 39.3 % |
149 17.4 % 59.6 % |
409 47.8 % 62.3 % |
856 100 % 59.4 % |
| Total | 230 16 % 100 % |
303 21 % 100 % |
250 17.4 % 100 % |
657 45.6 % 100 % |
1440 100 % 100 % |
| χ2=120.417 · df=9 · Cramer's V=0.167 · p=0.000 | |||||
在性別與「請問您認為應繼續使用核電還是應廢除核電?」的題目中，我們進行Ｔ檢定，結果是卡方值為120.417，自由度為9，顯著性為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$e6 <- rec(homework$e6, rec="rev",
var.label="為了減少空污與碳排的風險，請問您願不願意配合漲電價，來推動再生能源(太陽能、風能等) 的發展?")
frq(homework$e6)為了減少空污與碳排的風險，請問您願不願意配合漲電價，來推動再生能源(太陽能、風能等) 的發展? (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>#E7. 請問您同不同意以下的說法?
##a. 減少使用免洗餐具、面紙等一次性用品是容易做到的事。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e7a <- rec(homework$e7a, rec="rev",
var.label="減少使用免洗餐具、面紙等一次性用品是容易做到的事。")
frq(homework$e7a)減少使用免洗餐具、面紙等一次性用品是容易做到的事。 (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>##b. 在外用餐時，自備餐具、手帕等，很不方便。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e7b <- rec(homework$e7b, rec="rev",
var.label="在外用餐時，自備餐具、手帕等，很不方便。")
frq(homework$e7b)在外用餐時，自備餐具、手帕等，很不方便。 (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>##c. 您擔心使用塑膠袋、免洗餐具等，會對環境造成傷害。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e7c <- rec(homework$e7c, rec="rev",
var.label="您擔心使用塑膠袋、免洗餐具等，會對環境造成傷害。")
frq(homework$e7c)您擔心使用塑膠袋、免洗餐具等，會對環境造成傷害。 (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>##d. 您擔心使用塑膠袋、免洗餐具等，會危害自己和家人的健康。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e7d <- rec(homework$e7d, rec="rev",
var.label="您擔心使用塑膠袋、免洗餐具等，會危害自己和家人的健康。")
frq(homework$e7d)您擔心使用塑膠袋、免洗餐具等，會危害自己和家人的健康。 (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>##e. 您擔心塑膠袋、免洗餐具所造成的污染，會危害下一代的健康。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e7e <- rec(homework$e7e, rec="rev",
var.label="您擔心塑膠袋、免洗餐具所造成的污染，會危害下一代的健康。")
frq(homework$e7e)您擔心塑膠袋、免洗餐具所造成的污染，會危害下一代的健康。 (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>##f. 外帶食物時，您的家人好友認為您應該拒拿免洗餐具。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e7f <- rec(homework$e7f, rec="rev",
var.label="外帶食物時，您的家人好友認為您應該拒拿免洗餐具。")
frq(homework$e7f)外帶食物時，您的家人好友認為您應該拒拿免洗餐具。 (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>##g. 去買東西時，您的家人好友認為您應該自備購物袋。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e7g <- rec(homework$e7g, rec="rev",
var.label="去買東西時，您的家人好友認為您應該自備購物袋。")
frq(homework$e7g)去買東西時，您的家人好友認為您應該自備購物袋。 (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>##h. 政府的減塑政策(禁止免費提供塑膠袋、禁用塑膠吸管、集會禁用包裝飲水等)有助於您減少這 些一次性用品的使用。
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e7h <- rec(homework$e7h, rec="rev",
var.label="政府的減塑政策(禁止免費提供塑膠袋、禁用塑膠吸管、集會禁用包裝飲水等)有助於您減少這 些一次性用品的使用。")
frq(homework$e7h)政府的減塑政策(禁止免費提供塑膠袋、禁用塑膠吸管、集會禁用包裝飲水等)有助於您減少這 些一次性用品的使用。 (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>#E10. 請問您擔不擔心現在的孩子 30 年後面臨的環境問題?
#□(01)非常擔心 □(02)擔心 □(03)無所謂擔不擔心 □(04)不擔心 □(05)非常不擔心
homework$a1 <- set_label(homework$a1, label="性別")
homework$e10 <- rec(homework$e10, rec="rev",
var.label="請問您擔不擔心現在的孩子 30 年後面臨的環境問題?")
frq(homework$e10)請問您擔不擔心現在的孩子 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>#E11. 面對環境問題，請問您同不同意以下說法?
##a. 我們必須以我們這一代的發展與福祉為重，後代子孫自己會想辦法解決可能的環境問題
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e11a <- rec(homework$e11a, rec="rev",
var.label="我們必須以我們這一代的發展與福祉為重，後代子孫自己會想辦法解決可能的環境問題")
frq(homework$e11a)我們必須以我們這一代的發展與福祉為重，後代子孫自己會想辦法解決可能的環境問題 (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>##b. 我們上一代與這一代已經過度使用地球的自然資源，後代子孫將可能沒有自然資源可以使用
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e11b <- rec(homework$e11b, rec="rev",
var.label="我們上一代與這一代已經過度使用地球的自然資源，後代子孫將可能沒有自然資源可以使用")
frq(homework$e11b)我們上一代與這一代已經過度使用地球的自然資源，後代子孫將可能沒有自然資源可以使用 (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>##c. 許多人靠破壞環境賺了很多錢，卻留很多環境問題讓弱勢的人在承擔
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e11c <- rec(homework$e11c, rec="rev",
var.label="許多人靠破壞環境賺了很多錢，卻留很多環境問題讓弱勢的人在承擔")
frq(homework$e11c)許多人靠破壞環境賺了很多錢，卻留很多環境問題讓弱勢的人在承擔 (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>##d. 為了發展經濟，許多高污染產業影響許多地區的環境與民眾的健康，這也是沒有辦法的事
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$e11d <- rec(homework$e11d, rec="rev",
var.label="為了發展經濟，許多高污染產業影響許多地區的環境與民眾的健康，這也是沒有辦法的事")
frq(homework$e11d)為了發展經濟，許多高污染產業影響許多地區的環境與民眾的健康，這也是沒有辦法的事 (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>#F、環境行為
#F1. 請問您外出買東西時，願不願意自備購物袋?
#□(01)很願意 □(02)還算願意 □(03)無所謂願不願意 □(04)不太願意 □(05)很不願意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f1 <- rec(homework$f1, rec="rev",
var.label="請問您外出買東西時，願不願意自備購物袋?")
frq(homework$f1)請問您外出買東西時，願不願意自備購物袋? (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>#F2. 請問您外帶餐點或在外用餐時，願不願意自備餐具(包括筷子、叉子、湯匙等)?
#□(01)很願意 □(02)還算願意 □(03)無所謂願不願意 □(04)不太願意 □(05)很不願意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f2 <- rec(homework$f2, rec="rev",
var.label="請問您外帶餐點或在外用餐時，願不願意自備餐具(包括筷子、叉子、湯匙等)?")
frq(homework$f2)請問您外帶餐點或在外用餐時，願不願意自備餐具(包括筷子、叉子、湯匙等)? (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>#F3. 請問您於用餐後，願不願意以手帕代替面紙或濕紙巾之使用?
#□(01)很願意 □(02)還算願意 □(03)無所謂願不願意 □(04)不太願意 □(05)很不願意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f3 <- rec(homework$f3, rec="rev",
var.label="請問您於用餐後，願不願意以手帕代替面紙或濕紙巾之使用?")
frq(homework$f3)請問您於用餐後，願不願意以手帕代替面紙或濕紙巾之使用? (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>#F4. 請問您同不同意以下的說法?
##(1)在台灣，一般民眾影響環保政策的機會非常有限
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f41 <- rec(homework$f41, rec="rev",
var.label="在台灣，一般民眾影響環保政策的機會非常有限")
frq(homework$f41)在台灣，一般民眾影響環保政策的機會非常有限 (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>##(2)投票時，您會因為某位候選人提出環保政策而投他一票
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f42 <- rec(homework$f42, rec="rev",
var.label="投票時，您會因為某位候選人提出環保政策而投他一票")
frq(homework$f42)投票時，您會因為某位候選人提出環保政策而投他一票 (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>##(3)民眾參與有助於提升環保政策的品質
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f43 <- rec(homework$f43, rec="rev",
var.label="民眾參與有助於提升環保政策的品質")
frq(homework$f43)民眾參與有助於提升環保政策的品質 (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>##(4)民眾有能力提出對環保政策有建設性的建議
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f44 <- rec(homework$f44, rec="rev",
var.label="民眾有能力提出對環保政策有建設性的建議")
frq(homework$f44)民眾有能力提出對環保政策有建設性的建議 (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>##(5)關於複雜的科學與技術的政策，應該由專家來決定
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f45 <- rec(homework$f45, rec="rev",
var.label="關於複雜的科學與技術的政策，應該由專家來決定")
frq(homework$f45)關於複雜的科學與技術的政策，應該由專家來決定 (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>##(6)污染者應該負擔他所造成的損害
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f46 <- rec(homework$f46, rec="rev",
var.label="污染者應該負擔他所造成的損害")
frq(homework$f46)污染者應該負擔他所造成的損害 (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>#F5. 請問您平常會不會注意有關「環境問題」的資訊?
#□(01)非常注意 □(02)注意 □(03)不注意 □(04)非常不注意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f5 <- rec(homework$f5, rec="rev",
var.label="請問您平常會不會注意有關「環境問題」的資訊?")
frq(homework$f5)請問您平常會不會注意有關「環境問題」的資訊? (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>#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$f6 <- rec(homework$f6, rec="1,2,3=1[步行或腳踏車]; 4,5,6=2[大眾運輸工具]; 7,9,10,13,14=3[燃油汽機車（含計程車）]; 8,11,12=4[電動汽機車（含油電混合車)]; 15=5[其他] ",
var.label="請問您最常使用的交通方式是哪一項?")
frq(homework$f6)請問您最常使用的交通方式是哪一項? (x) <numeric>
# total N=1839 valid N=1821 mean=2.59 sd=0.79
Value | Label | N | Raw % | Valid % | Cum. %
-------------------------------------------------------------------
1 | 步行或腳踏車 | 295 | 16.04 | 16.20 | 16.20
2 | 大眾運輸工具 | 210 | 11.42 | 11.53 | 27.73
3 | 燃油汽機車（含計程車） | 1265 | 68.79 | 69.47 | 97.20
4 | 電動汽機車（含油電混合車) | 51 | 2.77 | 2.80 | 100.00
5 | 其他 | 0 | 0.00 | 0.00 | 100.00
<NA> | <NA> | 18 | 0.98 | <NA> | <NA>#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" # 將列百分比顏色改為褐色 （預設為藍色）
)| 請問您最常使用的交通方式是哪一項? | 性別 | Total | |
|---|---|---|---|
| 女 | 男 | ||
| 步行或腳踏車 | 188 68.9 % 20 % |
85 31.1 % 9.6 % |
273 100 % 15 % |
| 大眾運輸工具 | 134 70.2 % 14.3 % |
57 29.8 % 6.4 % |
191 100 % 10.5 % |
| 燃油汽機車（含計程車） | 591 45.3 % 63 % |
714 54.7 % 80.8 % |
1305 100 % 71.6 % |
| 電動汽機車（含油電混合車) | 25 47.2 % 2.7 % |
28 52.8 % 3.2 % |
53 100 % 2.9 % |
| Total | 938 51.5 % 100 % |
884 48.5 % 100 % |
1822 100 % 100 % |
| χ2=80.136 · df=3 · Cramer's V=0.210 · p=0.000 | |||
在性別與「請問您最常使用的交通方式是哪一項?」的題目中，我們進行Ｔ檢定，結果是卡方值為80.136，自由度為3，顯著性為0.000<0.05。我們可以知道性別對於交通方式的選擇有顯著差異。
#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" # 將列百分比顏色改為褐色 （預設為藍色）
)| 請問您最常使用的交通方式是哪一項? | 教育程度 | Total | |||
|---|---|---|---|---|---|
| 國小以下 | 國高中 | 大學（專）以上 | 其他 | ||
| 步行或腳踏車 | 79 28.9 % 33.5 % |
99 36.3 % 12.9 % |
95 34.8 % 11.7 % |
0 0 % 0 % |
273 100 % 15 % |
| 大眾運輸工具 | 17 8.9 % 7.2 % |
53 27.6 % 6.9 % |
122 63.5 % 15 % |
0 0 % 0 % |
192 100 % 10.5 % |
| 燃油汽機車（含計程車） | 134 10.3 % 56.8 % |
598 45.9 % 77.7 % |
570 43.7 % 70 % |
1 0.1 % 100 % |
1303 100 % 71.6 % |
| 電動汽機車（含油電混合車) | 6 11.3 % 2.5 % |
20 37.7 % 2.6 % |
27 50.9 % 3.3 % |
0 0 % 0 % |
53 100 % 2.9 % |
| Total | 236 13 % 100 % |
770 42.3 % 100 % |
814 44.7 % 100 % |
1 0.1 % 100 % |
1821 100 % 100 % |
| χ2=102.345 · df=9 · Cramer's V=0.137 · Fisher's p=0.000 | |||||
在教育程度與「請問您最常使用的交通方式是哪一項?」的題目中，我們進行Ｔ檢定，結果是卡方值為102.345，自由度為9，顯著性為0.000<0.05。我們可以知道教育程度對於交通方式的選擇有顯著差異。
#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" # 將列百分比顏色改為褐色 （預設為藍色））
)| 請問您最常使用的交通方式是哪一項? | 政黨偏好 | Total | |||
|---|---|---|---|---|---|
| 泛藍 | 泛綠 | 中間 | 其他 | ||
| 步行或腳踏車 | 42 16.9 % 16.5 % |
46 18.5 % 14 % |
49 19.7 % 16 % |
112 45 % 14.5 % |
249 100 % 15 % |
| 大眾運輸工具 | 34 18.7 % 13.4 % |
46 25.3 % 14 % |
28 15.4 % 9.2 % |
74 40.7 % 9.6 % |
182 100 % 11 % |
| 燃油汽機車（含計程車） | 173 14.6 % 68.1 % |
230 19.4 % 70.1 % |
214 18 % 69.9 % |
569 48 % 73.8 % |
1186 100 % 71.5 % |
| 電動汽機車（含油電混合車) | 5 11.9 % 2 % |
6 14.3 % 1.8 % |
15 35.7 % 4.9 % |
16 38.1 % 2.1 % |
42 100 % 2.5 % |
| Total | 254 15.3 % 100 % |
328 19.8 % 100 % |
306 18.4 % 100 % |
771 46.5 % 100 % |
1659 100 % 100 % |
| χ2=16.872 · df=9 · Cramer's V=0.058 · p=0.051 | |||||
在政黨偏好與「請問您最常使用的交通方式是哪一項?」的題目中，我們進行Ｔ檢定，結果是卡方值為16.872，自由度為9，顯著性為0.051>0.05。我們可以知道政黨偏好對於交通方式的選擇沒有顯著差異。
#F7. 請問您居住的社區附近公共運輸服務便不便利?
#□(01)非常不便利 □(02)不便利 □(03)無所謂便不便利 □(04)便利 □(05)非常便利
homework$a1 <- set_label(homework$a1, label="性別")
homework$f7 <- rec(homework$f7, rec="rev",
var.label="請問您居住的社區附近公共運輸服務便不便利?")
frq(homework$f7)請問您居住的社區附近公共運輸服務便不便利? (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>#F9. 如果政府為了改善空污，希望實施以下的交通政策，請問您同不同意?
##(1)限年淘汰老舊車輛(並補貼車主換購新車)
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f91 <- rec(homework$f91, rec="rev",
var.label="限年淘汰老舊車輛(並補貼車主換購新車)")
frq(homework$f91)限年淘汰老舊車輛(並補貼車主換購新車) (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>##(2)嚴格限制車輛污染排放標準、並提高罰款
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f92 <- rec(homework$f92, rec="rev",
var.label="嚴格限制車輛污染排放標準、並提高罰款")
frq(homework$f92)嚴格限制車輛污染排放標準、並提高罰款 (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>##(3)用稅收補貼大眾交通系統的建設與營運之虧損
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f93 <- rec(homework$f93, rec="rev",
var.label="用稅收補貼大眾交通系統的建設與營運之虧損")
frq(homework$f93)用稅收補貼大眾交通系統的建設與營運之虧損 (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>##(4)對於汽油與柴油加徵污染稅以反映空氣污染所造成的損害
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f94 <- rec(homework$f94, rec="rev",
var.label="對於汽油與柴油加徵污染稅以反映空氣污染所造成的損害")
frq(homework$f94)對於汽油與柴油加徵污染稅以反映空氣污染所造成的損害 (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>##(5)對車輛徵收能源稅，用來補貼大眾交通工具的使用者
##□(01)非常同意 □(02)同意 □(03)無所謂同不同意 □(04)不同意□(05)非常不同意
homework$a1 <- set_label(homework$a1, label="性別")
homework$f95 <- rec(homework$f95, rec="rev",
var.label="對車輛徵收能源稅，用來補貼大眾交通工具的使用者")
frq(homework$f95)對車輛徵收能源稅，用來補貼大眾交通工具的使用者 (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>#F10. 請問您常不常參與社區的環保工作(如清水溝、社區巡守等)?
#□(01)經常 □(02)有時 □(03)偶爾 □(04)從不
homework$a1 <- set_label(homework$a1, label="性別")
homework$f10 <- rec(homework$f10, rec="rev",
var.label="請問您常不常參與社區的環保工作(如清水溝、社區巡守等)?")
frq(homework$f10)請問您常不常參與社區的環保工作(如清水溝、社區巡守等)? (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>#F11. 請問您常不常反應社區中在天災時容易造成危險的情況 (如未固定的招牌、水溝淤積或河床旁之 堆積廢土等)。
#□(01)經常 □(02)有時 □(03)偶爾 □(04)從不
homework$a1 <- set_label(homework$a1, label="性別")
homework$f11 <- rec(homework$f11, rec="rev",
var.label="請問您常不常反應社區中在天災時容易造成危險的情況 (如未固定的招牌、水溝淤積或河床旁之 堆積廢土等)。")
frq(homework$f11)請問您常不常反應社區中在天災時容易造成危險的情況 (如未固定的招牌、水溝淤積或河床旁之 堆積廢土等)。 (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>#F12. 請問您常不常反應社區中造成環境污染的情況(如噪音、垃圾、廢水、油煙廢氣等)
##□(01)經常 □(02)有時 □(03)偶爾 □(04)從不
homework$a1 <- set_label(homework$a1, label="性別")
homework$f12 <- rec(homework$f12, rec="rev",
var.label="請問您常不常反應社區中造成環境污染的情況(如噪音、垃圾、廢水、油煙廢氣等)")
frq(homework$f12)請問您常不常反應社區中造成環境污染的情況(如噪音、垃圾、廢水、油煙廢氣等) (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>