library(sjPlot)
Learn more about sjPlot with 'browseVignettes("sjPlot")'.
library(sjmisc)
library(sjlabelled)
library(readr)
Warning: package 'readr' was built under R version 4.3.2
library(dplyr)
Warning: package 'dplyr' was built under R version 4.3.2

Attaching package: 'dplyr'
The following object is masked from 'package:sjlabelled':

    as_label
The following objects are masked from 'package:stats':

    filter, lag
The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union
#讀入原始檔案
data103 <- read.csv("./AE110008/data103.csv")

save(data103,file = "data103.rda")
rm(list=ls())
#讀取檔案、清資料
load("data103.rda")

clear103 <- select(data103, q1:q20)
clear <- colnames(clear103)
         colnames(clear103)[1:20] <- paste("v", 1:20, sep= "")
sjlabelled::set_label(clear103) <- clear

clear103$v1r <- rec(unlist(clear103[1]),
                rec="1,2 = 1 [同意]; 3,4 = 2 [不同意]; 98 = 3 [不知道]", 
                var.label = "1.有人認為：「男性的責任是賺錢，女性的責任是照顧家庭及家人」，請問您同不同意這樣的說法?", as.num = F)

clear103$v2r <- rec(unlist(clear103[2]),
                rec="1,2 = 1 [同意]; 3,4 = 2 [不同意]; 98 = 3 [不知道]", 
                var.label = "2.有人認為：「不管家庭內外所有工作都應該由男性、女性平均分擔」，請問您同不同意這樣的說法?", as.num = F)

clear103$v3r <- rec(unlist(clear103[3]),
                rec="1,2 = 1 [同意]; 3,4 = 2 [不同意]; 98 = 3 [不知道]", 
                var.label = "3.有人認為：「丈夫是一家之主，妻子應該儘量聽從丈夫」，請問您同不同意這樣的說法?", as.num = F)

clear103$v4r <- rec(unlist(clear103[4]),
                rec="1,2 = 1 [同意]; 3,4 = 2 [不同意]; 98 = 3 [不知道]", 
                var.label = "4.有人認為：「為了傳宗接代，至少要生一個兒子」，請問您同不同意這樣的說法?", as.num = F)

clear103$v5r <- rec(unlist(clear103[5]),
                rec="1,2 = 1 [同意]; 3,4 = 2 [不同意]; 98 = 3 [不知道]", 
                var.label = "5.有人認為：「沒有結過婚的女性，在過世後不能進入家族宗祠」，請問您同不同意這樣的說法?", as.num = F)

clear103$v6r <- rec(unlist(clear103[6]),
                rec="1,2 = 1 [同意]; 3,4 = 2 [不同意]; 98 = 3 [不知道]", 
                var.label = "6.有人認為：「性別平等政策不只是對女性好，男性也一樣可以得到好處」，請問您同不同意這樣的說法?", as.num = F)

clear103$v7r <- rec(unlist(clear103[7]),
                rec="1,2 = 1 [同意]; 3,4 = 2 [不同意]; 98 = 3 [不知道]", 
                var.label = "7.有人認為：「未來應該要把祖父母及外祖父母，改成一律稱為祖父母」，請問您同不同意這樣的說法?", as.num = F)

clear103$v8r <- rec(unlist(clear103[8]),
                rec="1 = 1 [沒有工作]; 2 = 2 [就業中]", 
                var.label = "8.請問您目前有在工作嗎?", as.num = F)

clear103$v9r <- rec(unlist(clear103[9]),
                rec="1,2 = 1 [有]; 3,4 = 2 [沒有]; 98 = 3 [不知道]; 99 = 4 [沒有工作]", 
                var.label = "9.整體而言，請問您目前的工作環境，有沒有做到性別平等呢?", as.num = F)


clear103$v10r <- rec(unlist(clear103[10]),
                rec="1 = 1 [知道]; 2 = 2 [不知道]", 
                var.label = "10.目前法律有規定：「勞工參加就業保險1年以上，如果有3歲以下的子女，不論父親或母親都可申請留職停薪的津貼，留在家裡照顧小孩」，請問您知不知道這樣的規定?", as.num = F)

clear103$v11r <- rec(unlist(clear103[11]),
                rec="1 = 1 [有]; 2 = 2 [沒有]", 
                var.label = "11.在過去一年，請問您有沒有遭遇到「肢體方面」的性騷擾?", as.num = F)

clear103$v12r <- rec(unlist(clear103[12]),
                rec="1 = 1 [有]; 2 = 2 [沒有]", 
                var.label = "12.在過去一年，請問您有沒有遭遇到「言語方面」的性騷擾?", as.num = F)

clear103$v13r <- rec(unlist(clear103[13]),
                rec="1 = 1 [知道]; 2 = 2 [不知道]", 
                var.label = "13.如果遇到任何關於家庭暴力或性侵害的問題，請問您知不知道可以撥打「113」請求協助?", as.num = F)

clear103$v14r <- rec(unlist(clear103[14]),
                rec="1,2 = 1 [男性地位較高]; 4,5 = 2 [女性地位較高]; 3 = 3 [男女地位平等]; 98 = 4 [不知道]", 
                var.label = "14.整體而言，請問您認為目前的台灣社會，是男性還是女性的地位比較高?", as.num = F)

#Loc
clear103$Loc <- rec(unlist(clear103[15]),
                rec="1, 3:4, 8:11 = 1 [北部]; 5, 12:15 = 2 [中部]; 2, 6:7, 16:17, 20 = 3 [南部]; 18:19 = 4 [東部]; 98 = 5 [未回答]", 
                var.label = "15.請問您目前住在哪一個縣市?", as.num = F)

#Age

clear103$Age <- rec(unlist(clear103[16]),
                rec="1,98 = 1 [20-29歲]; 2 = 2 [30-39歲]; 3 = 3 [40-49歲]; 4 = 4 [50-59歲]; 5 = 5 [60歲以上]",
                var.label = "16.請問您今年大約幾歲?", as.num = F)
         
#Edu
clear103$Edu <- rec(unlist(clear103[17]),
                rec="1 = 1 [小學及以下]; 2 = 2 [初中、國中]; 3 = 3 [高中、高職]; 4 = 4 [專科]; 5 = 5 [大學及研究所以上]; 98 = 6 [未回答]",
                var.label = "17.請問您的教育程度是?", as.num = F)

#Marital
clear103$Marital <- rec(unlist(clear103[18]),
                rec="1 = 1 [已婚]; 2 = 2 [未婚]; 3 = 3 [離婚]; 4 = 4 [寡居(喪偶)]; 5 = 5 [同居(未婚)]; 98 = 6 [未回答]",
                var.label = "18.請問您的婚姻狀況為?", as.num = F)

#Groups
clear103$Groups <- rec(unlist(clear103[19]),
                rec="1 = 1 [本省客家人]; 2 = 2 [本省閩南人]; 3 = 3 [大陸各省市人]; 4 = 4 [原住民]; 98 = 5 [未回答]",
                var.label = "19.請問您是本省客家人、本省閩南(河洛)人、大陸各省市人、還是原住民?", as.num = F)

#Gender
clear103$Gender <- rec(unlist(clear103[20]),
                rec="1 = 1 [男]; 2 = 2 [女]",
                var.label = "18.請問您的婚姻狀況為?", as.num = F)

save(clear103,file = "clear103.rda")
rm(list=ls())
load("clear103.rda")

研究題目:

不同世代對於性別平等觀念的態度

一、研究動機：

過去台灣社會中普遍存在許多根深蒂固的性別刻板印象，例如男主外、女主內、重男輕女等觀念。這些傳統觀念不僅影響家庭和職場的性別角色分配，更對個人生活和職業發展產生重大影響。然而，隨著時代進步和社會變遷，自由、平等、民主與人權的現代社會已將性別平等視為普世價值，臺灣多年來透過政策推動和多元對話，讓性別平權受到廣泛關注。

在九十年代中期，台灣的性別平權逐漸取得一些進展。除了每年三月八日的婦女節推廣性別平等活動外，婦女團體也開始與其他社會運動聯合，走上街頭遊行以表達抗議。社會上的悲劇事件也促使民眾與政府重視性別平等議題。例如，1996年的「彭婉如命案」——民進黨婦女部主任彭婉如在夜間搭乘計程車時遭遇悲劇身亡，警方未能抓到兇手，以及隔年(1997年)的「白曉燕命案」——演藝人白冰冰之女白曉燕被綁架遇害事件。這些事件引起了民眾的憤怒，對政府保障婦女生命和財產安全的能力提出質疑，促成了行政院於1997年成立「婦女權益促進委員會」，以彰顯政府保障婦女權益的決心。

職場方面，在2001年，「性別平等工作法」在經過長達十一年的努力後終於三讀通過。在此之前，職場上存在許多不合理的規定，例如，1987年，國父紀念館及高雄市立文化中心所爆發的「單身條款」事件。當時，女性員工在招考時與館方切結約定，規定任何年滿三十歲、結婚或懷孕的女性員工必須自動離職。而類似的不合理約定而被迫離職的事件在當年非常普遍，直到該事件的女性員工集體出面申訴，才引起社會的廣大關注。即使在「性別平等工件法」實施之後，一些政府部門仍存在著兩性不平等的情況。例如，2004年海巡署在特考145個錄取名額分配上，僅給予女性10個名額，而這在公開招考期間受到婦女團體的質疑，最終被台北市政府勞工局裁定違反《兩性工作平等法》並受到罰款。 實違反《兩性工作平等法》而處以罰鍰；隨後，警察特考也面臨類似的指控和檢舉。這些新聞事件引起了第十屆（2002-2008）考試院內考試委員及考選部對於國家考試中限制性別的高度關注和一系列討論（吳嘉麗、彭渰雯，2017）。隨著法令不斷修改，職場上的兩性平等觀念有所改善。例如，現今女性員工懷孕期間可享有五天全薪產檢假，男性員工之配偶分娩時享有五天全薪陪產假，而每一位子女在滿三歲之前，男女員工都有權申請育嬰留職停薪。政府同時也鼓勵母親哺乳，修訂後的法令規定「雇主應每日另給哺乳時間兩次，每次以三十分鐘為度」。而兩性同工不同酬的問題雖然依然存在，但已有所改善。根據2015年勞動部的資料顯示，兩性同酬日為2月24日，比2014年的2月28日往前推進了4天，意昧著兩性平均薪資差距慢慢拉近。

教育方面，九十年代，許多大學也成立了研究室以開設性別相關課程，鼓勵年輕人參與婦女運動。1996年底，「彭婉如命案」的發生推動了「性侵害犯罪防治法」的通過，該法明確規定中小學必須實施兩性平等教育。隨後，1997年，教育部正式成立了「兩性平等教育委員會」，並分成師資與教學、課程與教材、研究發展、申報與危機處理、社會與親職教育五個小組來規劃和執行相關工作，將兩性平等教育納入全國教育改革政策之中（蘇芊玲，2001）。

綜上所述，隨著時代進步和社會變遷，人們對於性別平等的觀念與價值觀也不斷產生變化。同時，教育體制的改革也將影響不同世代對兩性平等的看法。因此，本研究想要了解不同世代對於性別平等的觀念與價值觀是否存在差異。

二、研究目的：

台灣的性別平等持續蓬勃發展，政府亦在法規上積極推動，致力確保兩性在職場中獲得公平對待，並透過教育政策普及性別平等觀念。根據2021年性別平等處公布的報告，台灣在全球性別平等排名中位居第7名，亞洲排名第1，顯示在兩性平等方面取得了很好的成效。然而，家庭角色方面的性別平權似乎未受到同樣的重視。例如，在家務分工和照顧孩子方面，性別不平等的情況仍然存在，家務和孩子照顧主要由女性承擔。根據聯合國永續發展目標（SDGs）中的第五項目標，要實現性別平等並賦予婦女權力，其中一個具體目標是透過提供公共服務、基礎建設和社會保護政策，重視無償的照護和家務工作，並鼓勵家庭成員共同分擔家事責任，這對於實現性別平等至關重要。因此，進一步研究台灣民眾在家庭角色上對兩性平等的觀點與態度，促進從而建立一個更加公平和包容的社會，讓每個人都有平等的機會和權利。

本研究將專注於分析以下幾個議題：（一）對實現家庭關係中男女平等的立場，（二）對職業生涯平權的傾向，以及（三）對生育男性後代的重視程度，旨在探討台灣社會對於兩性在家庭角色分配的態度，並探討不同世代在這一議題上是否有分歧。以為化解世代之間的矛盾、維護社會穩定提供參考。

三、文獻回顧：

四、研究問題及假設：

（一）台灣社會對於家庭關係中性別角色分工的看法為何？不同世代對主張實現家庭關係男女平等的看法
　　　有沒有差異？
（二）台灣社會對於支持職業生涯中性別平權的傾向為何？不同世代對「女性留在家中、男性外出工作」
　　　的看法有沒有差異？
（三）台灣社會對於生育子女性別的看法為何？ 不同世代對生育子女性別的看法有沒有差異？

假設：
H1：不同世代對主張實現家庭關係男女平等的看法有差異。
H2：不同世代對「女性留在家中、男性外出工作」有差異。
H3：不同世代對生育子女性別的看法有差異。

五、研究方法：

本研究使用學術調查資料庫中，國家發展委員會於2021年公佈的「2014年民眾對性別平等相關議題的看法
」的調查資料。探究台灣社會大眾對性別平等相關議題的態度，以及對於傳統性別角色分工觀念的認同程度。

(一) 家庭關係
　　透過以下兩條問題來測量參與者對性別平等在家庭關係上的態度：
　　(i) 有人認為：「不管家庭內外，所有工作都應該由男性、女性平均分擔」，請問您同不同意這樣的說
　　　法?
　　(ii) 有人認為：「丈夫是一家之主，妻子應該儘量聽從丈夫」，請問您同不同意 這樣的說法?

(二) 職業生涯平權
　　透過以下問題的來測量參與者對性別平等在家庭關係上的態度：
　　有人認為：「男性的責任是賺錢，女性的責任是照顧家庭及家人」，請問您同不同意這樣的說法?

(三) 生育子女性別
　　透過以下問題的來測量參與者對性別平等在家庭關係上的態度：
　　有人認為：「為了傳宗接代，至少要生一個兒子」，請問您同不同意這樣的說法?

六、參與者資料：

本次民調以市話調查辦理，抽樣母體為臺灣地區住宅電話，並以尾數2碼進行隨機抽樣，在95%信心水準下
，抽樣誤差約在正負2.98個百分點以內，調查結果並就受訪者基本資料如性別、年齡、教育程度及地區進行樣本代表性檢定後加權處理。本次調查係於103年7月21日至22日間辦理，成功訪問1,083位20歲以上成年人。

性別

#性別：
#frq(clear103$Gender ,out = c("viewer"))
plot_frq(clear103$Gender,
         wrap.title=30,
         geom.colors = "blue")

本資料中女性佔58.8%，男性佔41.20%，女性受訪者多於男性。

年齡

#年齡：
#frq(clear103$Age ,out = c("viewer"))
plot_frq(clear103$Age,
         wrap.title=30,
         geom.colors = "blue")

資料中最多的受訪者是60歲以上(37.6%)，其次依序為50-59歲(28.0%)、40-49歲(16.5%)、30-39歲(9.6%)，最少的是20-29歲(8.3%)。

教育程度

#教育程度：
#frq(clear103$Edu ,out = c("viewer"))
plot_frq(clear103$Edu,
         wrap.title=30,
         geom.colors = "blue")

受訪者教育程度為高中、高職(27.0%)的人數最多，其次依序為大學及研究所以上(24.1%)、小學及以下(22.2%)、初中、國中(14.1%)，最少的是專科(12.4%)，亦有受訪者未回答(0.2%)。

婚姻狀況

#婚姻狀況：
#frq(clear103$Marital ,out = c("viewer"))
plot_frq(clear103$Marital,
         wrap.title=30,
         geom.colors = "blue")

受訪者中，已婚(76.4%)的人數最多，其次依序為未婚(16.4%)、離婚(1.8%)以及(寡居/喪偶)(4.4%)，最後是(同居/未婚)(0.1%)的受訪者，亦有受訪者未回答(0.8%)。

居住地區

#居住地區：
#frq(clear103$Loc ,out = c("viewer"))
plot_frq(clear103$Loc,
         wrap.title=30,
         geom.colors = "blue")

受訪者以北部地區(39.0%)最多，其次依序為南部地區(29.4%)、中部地區(28.8%)，東部地區(2.5%)的受訪者最少，亦有受訪者未回答(0.4%)。

籍貫

#籍貫：
plot_frq(clear103$Groups,
         wrap.title=30,
         geom.colors = "blue")

受訪者的籍貫共分為4個類別，其中最大的族群為本省閩南人(77.8%)。其次為本省客家人(12.6%)，第三為大陸各省市人(7.6%)，少數為原住民(0.9%)，亦有受訪者未回答(1.1%)。

研究結果與分析

MCA分析

clear103forMCA<- select(clear103, 
                          v1r, #「男性的責任是賺錢，女性的責任是照顧家庭及家人」
                          v2r, #「不管家庭內外，所有工作都應該由男性、女性平均分擔」
                          v3r, #「丈夫是一家之主，妻子應該儘量聽從丈夫」
                          v4r, #「為了傳宗接代，至少要生一個兒子」
                          v5r, #「沒有結過婚的女性，在過世後不能進入家族宗祠」
                          v6r, #「性別平等政策不只是對女性好，男性也一樣可以得到好處」
                          v7r, #「未來應該要把祖父母及外祖父母，改成一律稱為祖父母」
                          v8r, #請問您目前有在工作嗎?
                          v9r, #目前的工作環境，有沒有做到性別平等呢?
                          v10r, #「留職停薪」，請問您知不知道這樣的規定?
                          v11r, #在過去一年，請問您有沒有遭遇到「肢體方面」的性騷擾?
                          v12r, #在過去一年，請問您有沒有遭遇到「言語方面」的性騷擾?
                          v13r, #請問您知不知道可以撥打「113」請求協助?
                          v14r, #請問您認為目前的台灣社會，是男性還是女性的地位比較高?
                          Loc, #居住地
                          Age, #年齡
                          Edu, #教育程度
                          Marital, #婚姻狀況
                          Groups, #籍貫
                          Gender #性別
                          )

clear103forMCA.nona <- na.omit(clear103forMCA)
nrow(clear103forMCA.nona)
[1] 1083
# 以直方圖確認所選的變數之次數分配
par(mfrow=c(2,3))
for (i in 1:ncol(clear103forMCA.nona)) {
  plot(clear103forMCA.nona[,i], main=colnames(clear103forMCA.nona)[i],
       ylab = "Count", col="steelblue", las = 2, ylim=c(0,1500))
}

par(mfrow=c(1,1))

在多元對應分析中，每個變數都存在可能的關聯性，因此出現了多個維度。在下圖中看到由所有的變數構成一個主要的維度排列在第一維度，隨後第二維度與其他維度的坡度趨緩，因此只聚焦觀察分佈在第一維度的重要變數。

## MCA運算
library(FactoMineR)
Warning: package 'FactoMineR' was built under R version 4.3.3
library(factoextra)
Loading required package: ggplot2
Warning: package 'ggplot2' was built under R version 4.3.3

Attaching package: 'ggplot2'
The following object is masked from 'package:sjlabelled':

    as_label
Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa
names(clear103forMCA.nona)  
 [1] "v1r"     "v2r"     "v3r"     "v4r"     "v5r"     "v6r"     "v7r"    
 [8] "v8r"     "v9r"     "v10r"    "v11r"    "v12r"    "v13r"    "v14r"   
[15] "Loc"     "Age"     "Edu"     "Marital" "Groups"  "Gender" 
res <- MCA(clear103forMCA.nona, ncp = 10, 
           quali.sup=15: 20, graph= F) #ncp 為主觀定的維次個數

summary(res, nb.dec = 3, nbelements=10, nbind = 10, 
        ncp = 2, file="result2dim.txt") 

res$dimdesc <- dimdesc(res, axes = 1:10) # 前三維次
# 分析結果存檔
write.infile(res$dimdesc, file ="MCAresults",append=F)
write.infile(res$eig, file ="MCAresults",append=T)
write.infile(res$var, file ="MCAresults",append=T)

## 繪製陡坡圖（screeplot）
fviz_screeplot(res, ncp=10)

下圖中的圓點顏色越深代表該變數對於該維度的重要度越大，在構成第一維度的變數中，除11.在過去一年，請問您有沒有遭遇到「肢體方面」的性騷擾?(v11r)及12.在過去一年，請問您有沒有遭遇到「言語方面」的性騷擾?(v12r)外，其餘都是相關變數。

library(corrplot) 
Warning: package 'corrplot' was built under R version 4.3.3
corrplot 0.92 loaded
corrplot(res$var$cos2, is.corr=FALSE, tl.cex=.6)

#前30個重要的選項類別
plot(res, axes=c(1, 2), new.plot=TRUE, 
     col.var="red", col.ind="black", col.ind.sup="black",
     col.quali.sup="darkgreen", col.quanti.sup="blue",
     label=c("var"), cex=0.8, 
     selectMod = "cos2 30",
     invisible=c("ind", "quali.sup"), 
     autoLab = "yes",
     #title="Distribution of Elements on the MCA Factor Map") 
     title="") 
Warning: ggrepel: 9 unlabeled data points (too many overlaps). Consider
increasing max.overlaps

上圖是MCA分析的變數關聯圖結果顯示，前30個相關的變數裡沒有顯示不同年齡層，表示不同世代在本研究任何性別平等議題上的關聯並不顯著，不支持H1、H2及H3。因此，研究進一步用三個步驟研究受訪者的看法。首先，（一）在MCA變數關聯圖裡，以研究方法中探究的四個問題為主，探索哪些議題有顯著相關，接著，（二）利用卡方檢定分析有顯著相關的議題，最後，（三）以研究方法中探究的四個問題為主，使用卡方檢定進一步研究不同世代的態度。

（一）在MCA變數關聯圖裡，以研究方法中探究的四個問題為主

在MCA變數關聯圖裡，v1r_1、v3r_1、v4r_1有顯著關聯，分別為在「男性的責任是賺錢，女性的責任是照顧家庭及家人」議題上表示同意（v1r_1）、在「丈夫是一家之主，妻子應該儘量聽從丈夫」議題上表示同意（v3r_1）、以及「為了傳宗接代，至少要生一個兒子」議題上表示同意（v4r_1）。具體來說，認同「男性的責任是賺錢，女性的責任是照顧家庭及家人」的人，也傾向於認同「丈夫是一家之主，妻子應該儘量聽從丈夫」以及「為了傳宗接代，至少要生一個兒子」。這反映出持有傳統性別角色觀念的受訪者在多個相關議題上持一致態度。

另外，v1r_3、v2r_3、v3r_3、v4r_3有顯著關聯，分別為在「男性的責任是賺錢，女性的責任是照顧家庭及家人」（男外女內）議題上表示不知道（v1r_3）、在「不管家庭內外所有工作都應該由男性、女性平均分擔」表示不知道（v2r_3）、「丈夫是一家之主，妻子應該儘量聽從丈夫」議題上表示不知道（v3r_3）、以及「為了傳宗接代，至少要生一個兒子」議題上表示不知道（v4r_3）。這反映出在性別角色和家庭關係的議題上不確定或不表態的受訪者回應是一致的，可能是對性別平等的議題上沒有強烈的傾向，或是認為有關的議題敏感而不想表態。

卡方檢定

（二）利用卡方檢定進一分析有顯著相關的議題

卡方檢定結果顯示，受訪者在「丈夫是一家之主」與「男外女內」的議題上態度大致上是一致，同意「丈夫是一家之主」的人裡超過六成也同意「男外女內」，不同意「男外女內」的人超過六成也不同意「丈夫是一家之主」。然而，特別的是，同意「男外女內」的人中，則有超過六成不同意「丈夫是一家之主」。這反映出了一種複雜的態度，在傳統家庭結構與性別角色的認知上，儘管有一定的一致性，但在某些情況下，個體的態度可能會有所偏離，例如有六成的人認同男性負責賺錢但並不認同這就是一家之主。

tab_xtab(clear103$v1r, clear103$v3r, 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 = "red" # 將列百分比顏色改為褐色 （預設為藍色）
         )
1.有人認為：「男性的責任是賺錢，女性的責任是照顧家庭及家人」，請問您同不同意這樣的說法? 3.有人認為：「丈夫是一家之主，妻子應該儘量聽從丈夫」，請問您同不同意這樣的說法? Total
同意 不同意 不知道
同意 113
30.1 %
68.5 %		 241
64.3 %
27.5 %		 21
5.6 %
51.2 %		 375
100 %
34.6 %
不同意 45
6.9 %
27.3 %		 596
91.8 %
68 %		 8
1.2 %
19.5 %		 649
100 %
59.9 %
不知道 7
11.9 %
4.2 %		 40
67.8 %
4.6 %		 12
20.3 %
29.3 %		 59
100 %
5.4 %
Total 165
15.2 %
100 %		 877
81 %
100 %		 41
3.8 %
100 %		 1083
100 %
100 %
χ2=165.208 · df=4 · Cramer's V=0.276 · Fisher's p=0.000

另外，受訪者在「生兒子傳宗接代」與「男外女內」的議題上態度大致上是一致。同意「生兒子傳宗接代」的人裡超過五成(54%) 也同意「男外女內」，不同意「男外女內」的人超過八成(85.1%)也不同意「生男子傳宗接代」。然而，特別的是，同意「男外女內」的人中，則有超過六成不同意「生兒子傳宗接代」。這反映出了在職場生涯平權與傳宗接代的議題上，儘管有一定的一致性，但在某些情況下，個體的態度可能會有所偏離，例如在家庭內部的角色分配上認為男外女內的人，超過一半不認同傳統的男性繼承家族血脈的觀念。

tab_xtab(clear103$v1r, clear103$v4r, 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 = "red" # 將列百分比顏色改為褐色 （預設為藍色）
         )
1.有人認為：「男性的責任是賺錢，女性的責任是照顧家庭及家人」，請問您同不同意這樣的說法? 4.有人認為：「為了傳宗接代，至少要生一個兒子」，請問您同不同意這樣的說法? Total
同意 不同意 不知道
同意 113
30.1 %
53.6 %		 251
66.9 %
30 %		 11
2.9 %
32.4 %		 375
100 %
34.6 %
不同意 84
12.9 %
39.8 %		 552
85.1 %
65.9 %		 13
2 %
38.2 %		 649
100 %
59.9 %
不知道 14
23.7 %
6.6 %		 35
59.3 %
4.2 %		 10
16.9 %
29.4 %		 59
100 %
5.4 %
Total 211
19.5 %
100 %		 838
77.4 %
100 %		 34
3.1 %
100 %		 1083
100 %
100 %
χ2=87.901 · df=4 · Cramer's V=0.201 · Fisher's p=0.000

此外，受訪者在「生兒子傳宗接代」與「丈夫是一家之主」的議題上態度存在複雜性。同意「丈夫是一家之主」的人裡超過五成(58%) 不同意「生兒子傳宗接代」，同意「生兒子傳宗接代」的人裡也有超過六成(65%) 不同意「「丈夫是一家之主」。這結果顯示，有些人可能會認同傳統的男性主導家庭的觀念，但在考慮到生育子女性別的問題時，卻更傾向於支持男女平等的理念。同樣地，一些人可能認同男子傳宗接代的傳統觀念，但對於丈夫在家庭中的主導地位持保守態度。

tab_xtab(clear103$v3r, clear103$v4r, 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 = "red" # 將列百分比顏色改為褐色 （預設為藍色）
         )
3.有人認為：「丈夫是一家之主，妻子應該儘量聽從丈夫」，請問您同不同意這樣的說法? 4.有人認為：「為了傳宗接代，至少要生一個兒子」，請問您同不同意這樣的說法? Total
同意 不同意 不知道
同意 64
38.8 %
30.3 %		 96
58.2 %
11.5 %		 5
3 %
14.7 %		 165
100 %
15.2 %
不同意 137
15.6 %
64.9 %		 721
82.2 %
86 %		 19
2.2 %
55.9 %		 877
100 %
81 %
不知道 10
24.4 %
4.7 %		 21
51.2 %
2.5 %		 10
24.4 %
29.4 %		 41
100 %
3.8 %
Total 211
19.5 %
100 %		 838
77.4 %
100 %		 34
3.1 %
100 %		 1083
100 %
100 %
χ2=114.541 · df=4 · Cramer's V=0.230 · Fisher's p=0.000

（三）以研究方法中探究的四個問題為主，利用卡方檢定進一步研究不同世代的態度

卡方檢定結果顯示，有關「家庭關係」的「有人認為：「不管家庭內外所有工作都應該由男性、女性平均分擔」，請問您同不同意這樣的說法?」議題上，超過八成的受訪者（86%）同意此說法，其他的受訪者表示不同意（11%）及不知道（3%）。20-29歲的及30-39歲受訪者中超過九成（分別為92%及91%）表示同意，40-49歲、50-59歲及60歲以上的受訪者中超過八成（分別為88%、86%及82%）。

tab_xtab(clear103$Age, clear103$v2r, 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 = "red" # 將列百分比顏色改為褐色 （預設為藍色）
         )
16.請問您今年大約幾歲? 2.有人認為：「不管家庭內外所有工作都應該由男性、女性平均分擔」，請問您同不同意這樣的說法? Total
同意 不同意 不知道
20-29歲 83
92.2 %
8.9 %		 6
6.7 %
4.9 %		 1
1.1 %
3.3 %		 90
100 %
8.3 %
30-39歲 95
91.3 %
10.2 %		 8
7.7 %
6.6 %		 1
1 %
3.3 %		 104
100 %
9.6 %
40-49歲 158
88.3 %
17 %		 19
10.6 %
15.6 %		 2
1.1 %
6.7 %		 179
100 %
16.5 %
50-59歲 260
85.8 %
27.9 %		 37
12.2 %
30.3 %		 6
2 %
20 %		 303
100 %
28 %
60歲以上 335
82.3 %
36 %		 52
12.8 %
42.6 %		 20
4.9 %
66.7 %		 407
100 %
37.6 %
Total 931
86 %
100 %		 122
11.3 %
100 %		 30
2.8 %
100 %		 1083
100 %
100 %
χ2=16.828 · df=8 · Cramer's V=0.088 · Fisher's p=0.062

而在有關「家庭關係」的「丈夫是一家之主，妻子應該儘量聽從丈夫」議題上，超過八成的受訪者（81%）不同意此說法，其他的受訪者回答同意（15%）及不知道（4%）。20-29歲的及30-39歲受訪者中超過九成（分別為92%及91%）表示同意，40-49歲及50-59歲的受訪者中超過八成表示同意（分別為86%、85%），60歲以上的受訪者中超過七成表示同意（72%）。這顯示出，對於家務分工的觀念普遍趨向平等，而且這種觀念在年輕一代尤其強烈。

tab_xtab(clear103$Age, clear103$v3r, 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 = "red" # 將列百分比顏色改為褐色 （預設為藍色）
         )
16.請問您今年大約幾歲? 3.有人認為：「丈夫是一家之主，妻子應該儘量聽從丈夫」，請問您同不同意這樣的說法? Total
同意 不同意 不知道
20-29歲 7
7.8 %
4.2 %		 83
92.2 %
9.5 %		 0
0 %
0 %		 90
100 %
8.3 %
30-39歲 10
9.6 %
6.1 %		 94
90.4 %
10.7 %		 0
0 %
0 %		 104
100 %
9.6 %
40-49歲 25
14 %
15.2 %		 153
85.5 %
17.4 %		 1
0.6 %
2.4 %		 179
100 %
16.5 %
50-59歲 32
10.6 %
19.4 %		 256
84.5 %
29.2 %		 15
5 %
36.6 %		 303
100 %
28 %
60歲以上 91
22.4 %
55.2 %		 291
71.5 %
33.2 %		 25
6.1 %
61 %		 407
100 %
37.6 %
Total 165
15.2 %
100 %		 877
81 %
100 %		 41
3.8 %
100 %		 1083
100 %
100 %
χ2=50.822 · df=8 · Cramer's V=0.153 · Fisher's p=0.000

有關「職業生涯平權」的「男性的責任是賺錢，女性的責任是照顧家庭及家人」議題上，60歲以上的受訪者沒有明顯的偏向（44%表示同意，46%表示不同意），而其他年齡的受訪者則大多數都表示不同意。20-29歲的受訪者中80%表示不同意，30-39歲的受訪者中69%表示不同意，40-49歲的受訪者中68%表示不同意，50-59歲的受訪者中65%表示不同意。這顯示出，對於最年輕的受訪者最認同職業生涯平權，而隨著年齡增長，對於這一觀念的支持逐漸減少，反映出隨著年齡增長而產生的態度轉變。

tab_xtab(clear103$Age, clear103$v1r, 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 = "red" # 將列百分比顏色改為褐色 （預設為藍色）
         )
16.請問您今年大約幾歲? 1.有人認為：「男性的責任是賺錢，女性的責任是照顧家庭及家人」，請問您同不同意這樣的說法? Total
同意 不同意 不知道
20-29歲 15
16.7 %
4 %		 72
80 %
11.1 %		 3
3.3 %
5.1 %		 90
100 %
8.3 %
30-39歲 32
30.8 %
8.5 %		 72
69.2 %
11.1 %		 0
0 %
0 %		 104
100 %
9.6 %
40-49歲 52
29.1 %
13.9 %		 122
68.2 %
18.8 %		 5
2.8 %
8.5 %		 179
100 %
16.5 %
50-59歲 97
32 %
25.9 %		 197
65 %
30.4 %		 9
3 %
15.3 %		 303
100 %
28 %
60歲以上 179
44 %
47.7 %		 186
45.7 %
28.7 %		 42
10.3 %
71.2 %		 407
100 %
37.6 %
Total 375
34.6 %
100 %		 649
59.9 %
100 %		 59
5.4 %
100 %		 1083
100 %
100 %
χ2=75.816 · df=8 · Cramer's V=0.187 · p=0.000

有關「生育子女性別」的「為了傳宗接代，至少要生一個兒子」議題上，超過七成的受訪者（77%）不同意此說法，其他的受訪者表示不同意（30%）及不知道（3%）。在年齡介於20歲至59歲之間的受訪者中，超過八成（分別為20-29歲的86%、30-39歲的84%、40-49歲的89%以及50-59歲的83%）都不支持這一說法。然而，在60歲以上的受訪者中，則有64%表示不同意。反映了大多數受訪者對於生育子女性別的觀念已經轉變，不再堅持傳統的「為了傳宗接代，至少要生一個兒子」的觀點。

tab_xtab(clear103$Age, clear103$v4r, 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 = "red" # 將列百分比顏色改為褐色 （預設為藍色）
         )
16.請問您今年大約幾歲? 4.有人認為：「為了傳宗接代，至少要生一個兒子」，請問您同不同意這樣的說法? Total
同意 不同意 不知道
20-29歲 13
14.4 %
6.2 %		 77
85.6 %
9.2 %		 0
0 %
0 %		 90
100 %
8.3 %
30-39歲 15
14.4 %
7.1 %		 87
83.7 %
10.4 %		 2
1.9 %
5.9 %		 104
100 %
9.6 %
40-49歲 19
10.6 %
9 %		 160
89.4 %
19.1 %		 0
0 %
0 %		 179
100 %
16.5 %
50-59歲 40
13.2 %
19 %		 252
83.2 %
30.1 %		 11
3.6 %
32.4 %		 303
100 %
28 %
60歲以上 124
30.5 %
58.8 %		 262
64.4 %
31.3 %		 21
5.2 %
61.8 %		 407
100 %
37.6 %
Total 211
19.5 %
100 %		 838
77.4 %
100 %		 34
3.1 %
100 %		 1083
100 %
100 %
χ2=70.415 · df=8 · Cramer's V=0.180 · Fisher's p=0.000

參考文獻

蘇芊玲，〈臺灣推動兩性平等教育的回顧與前瞻〉，《兩性平等教育季刊》，期14（2001年2月），頁13－18

吳嘉麗、彭渰雯（2017）。公務人員招考之核心職能與性別平等：以警察人員招考為例。載於黃淑玲（編），性別主流化：台灣經驗與國際比較，頁193-214。臺北：五南。