2018年6月10日

大綱

  • 資料庫簡介

  • 整理資料

  • 分析資料

  • 結論

資料庫簡介

  • 本研究所適用的資料來自世界價值調查(World Values Survey)網站上公開的各波調查資料。目前該網站已開放六波資料可供下載與線上的分析,每波資料會考慮各國人數作為調查所需樣本的參考依據,也會根據該國當時的政治體制或經濟狀況等對國家有重大影響的事件作為某些價值測量或問題是否能調查或詢問的依據。

  • 以第六波(2014年)作為探索資料

  • 皆為點式量尺的自陳問卷資料

  • 選用國家:德、美、日、韓、中、台

SET UP

## Bioconductor version 3.6 (BiocInstaller 1.28.0), ?biocLite for help
## A new version of Bioconductor is available after installing the most
##   recent version of R; see http://bioconductor.org/install

選擇變項

## Loading required package: lattice
## Loading required package: grid
## Loading required package: latticeExtra
## Loading required package: RColorBrewer
## 
## Attaching package: 'latticeExtra'
## The following object is masked from 'package:ggplot2':
## 
##     layer
## Loading required package: multcomp
## Loading required package: mvtnorm
## Loading required package: survival
## Loading required package: TH.data
## Loading required package: MASS
## 
## Attaching package: 'MASS'
## The following object is masked from 'package:dplyr':
## 
##     select
## 
## Attaching package: 'TH.data'
## The following object is masked from 'package:MASS':
## 
##     geyser
## Loading required package: gridExtra
## 
## Attaching package: 'gridExtra'
## The following object is masked from 'package:dplyr':
## 
##     combine
## Loading required package: xtable
## 
## Attaching package: 'likert'
## The following object is masked from 'package:HH':
## 
##     likert
## The following object is masked from 'package:dplyr':
## 
##     recode

查看資料

##   country family friends leisure_time politics work religion satisfaction
## 1   China      1       2            2        2    2        3            7
## 2   China      1       2            2        3    3        3            8
## 3   China      2       2            1        2    1        2            9
## 4   China      1       1            2        2    1        2            8
## 5   China      2       2            2        2    3        2            7
## 6   China      2       1            3        3    2        3            5
##   freedom  age income sex edu
## 1       9 Age5      7   1   9
## 2       9 Age5      6   2   5
## 3       9 Age3      7   1   9
## 4       7 Age4      7   2   7
## 5       8 Age5      8   2   7
## 6       7 Age3      5   1   3
## 'data.frame':    9392 obs. of  13 variables:
##  $ country     : Factor w/ 6 levels "Germany","United States",..: 5 5 5 5 5 5 5 5 5 5 ...
##  $ family      : int  1 1 2 1 2 2 1 2 1 1 ...
##  $ friends     : int  2 2 2 1 2 1 2 1 2 2 ...
##  $ leisure_time: int  2 2 1 2 2 3 3 2 2 2 ...
##  $ politics    : int  2 3 2 2 2 3 3 3 3 3 ...
##  $ work        : int  2 3 1 1 3 2 2 2 2 3 ...
##  $ religion    : int  3 3 2 2 2 3 3 3 3 3 ...
##  $ satisfaction: int  7 8 9 8 7 5 5 7 7 8 ...
##  $ freedom     : int  9 9 9 7 8 7 7 8 5 7 ...
##  $ age         : Factor w/ 9 levels "Age1","Age2",..: 5 5 3 4 5 3 4 2 4 3 ...
##  $ income      : int  7 6 7 7 8 5 3 6 6 8 ...
##  $ sex         : Factor w/ 2 levels "1","2": 1 2 1 2 2 1 2 1 1 1 ...
##  $ edu         : int  9 5 9 7 7 3 5 7 7 5 ...
##  - attr(*, "val.labels")= chr  "VL_V1" "VL_V2" "VL_V2A" "VL_V3" ...
##  - attr(*, "var.labels")= chr  "Wave" "Country Code" "Country/regions [with split ups]" "Interview number" ...
##  - attr(*, "label.table")=List of 430
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5 ...
##   .. ..- attr(*, "names")= chr  "Missing; Unknown" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 4 8 12 16 20 ...
##   .. ..- attr(*, "names")= chr  "Missing; Unknown" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 8 12 16 20 24 ...
##   .. ..- attr(*, "names")= chr  "Missing; Unknown" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1
##   .. ..- attr(*, "names")= chr  "Missing; Unknown" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "BH: Missing; AR,DE,SE: Inapplicable;RU: Inappropriate respon" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "RU:Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "AR,DE,SE: Inapplicable;RU: Inappropriate response{Inappropri" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "PS,SE: Inapplicable;RU: Inappropriate response{Inappropriate" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "BH: Missing; AR,DE,PS,SE: Inapplicable;RU: Inappropriate res" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "BH: Missing; RU:Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "RU: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "BH: Missing; RU:Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "DE: Inapplicable;RU: Inappropriate response{Inappropriate}" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "DE: Inapplicable;RU: Inappropriate response{Inappropriate}" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "DE: Inapplicable;RU: Inappropriate response{Inappropriate}" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "DE: Inapplicable;RU: Inappropriate response{Inappropriate}" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "DE: Inapplicable;RU: Inappropiate response{Inappropriate}" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "DE: Inapplicable;RU: Inappropiate response{Inappropriate}" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "DE: Inapplicable;RU: Inappropiate response{Inappropriate}" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "DE: Inapplicable;RU: Inappropiate response{Inappropriate}" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "DE: Inapplicable;RU: Inappropiate response{Inappropriate}" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "DE: Inapplicable;RU: Inappropiate response{Inappropriate}" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "Missing; RU,DE: Inappropriate response{Inappropriate}" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5 ...
##   .. ..- attr(*, "names")= chr  "RU:Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer; BH: Refused" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "DE,SE: Inapplicable;RU: Inappropiate response;SG :Missing{In" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 0 1 2
##   .. ..- attr(*, "names")= chr  "SE: Inapplicable;RU: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 0 1 2
##   .. ..- attr(*, "names")= chr  "RU:Inappropriate response{Inappropriate}" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 0 1 2
##   .. ..- attr(*, "names")= chr  "RU:Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 0 1 2
##   .. ..- attr(*, "names")= chr  "DE: Inapplicable;RU: Inappropiate response{Inappropriate}" "Not asked in survey" "Not applicable (SE:Non active persons){Not applicable]" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 0 1 2
##   .. ..- attr(*, "names")= chr  "RU:Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 0 1 2
##   .. ..- attr(*, "names")= chr  "RU:Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 0 1 2
##   .. ..- attr(*, "names")= chr  "DE: Inapplicable;RU: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable (SE: Non active persons){Not applicable}" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 0 1 2
##   .. ..- attr(*, "names")= chr  "RU:Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 0 1 2
##   .. ..- attr(*, "names")= chr  "Missing; RU,DE: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 0 1 2
##   .. ..- attr(*, "names")= chr  "DE: Inapplicable;RU: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 0 1 2
##   .. ..- attr(*, "names")= chr  "TR: Missing;SE: Inapplicable;RU: Inappropriate response{Inap" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "SG: Missing;DE: Inapplicable;RU: Inappropriate response{Inap" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "SG: Missing;DE: Inapplicable;RU: Inappropriate response{Inap" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "SG: Missing;DE: Inapplicable;RU: Inappropriate response{Inap" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "SG: Missing;DE: Inapplicable;RU: Inappropriate response{Inap" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "SG: Missing;RU: Inappropriate response{Inappropriate}" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "SG: Missing;DE: Inapplicable;RU: Inappropriate response{Inap" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "SG: Missing;DE: Inapplicable;RU: Inappropriate response{Inap" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "SG: Missing;DE: Inapplicable;RU: Inappropriate response{Inap" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "SG: Missing;DE: Inapplicable;RU: Inappropriate response{Inap" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "Missing; Unknown" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3
##   .. ..- attr(*, "names")= chr  "BH, SG: Missing; RU: Inappropriate response{Inappropriate}" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3
##   .. ..- attr(*, "names")= chr  "BH,SG: Missing; RU: Inappropriate response{Inappropriate}" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3
##   .. ..- attr(*, "names")= chr  "SG:Missing; DE:Inapplicable; RU:Inappropriate response{Inapp" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3
##   .. ..- attr(*, "names")= chr  "BH,SG:Missing; DE,SE:Inapplicable; RU:Inappropriate response" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "BH: Missing; AM,DE,SE: Inapplicable; RU: Inappropriate respo" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "BH: Missing; DE: Inapplicable; RU: Inappropriate response{In" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "BH: Missing; DE: Inapplicable; RU: Inappropriate response{In" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "RU: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "RU: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "BH: Missing; RU: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5 ...
##   .. ..- attr(*, "names")= chr  "SG: Missing; DE:Inapplicable; RU: Inappropriate response{Ina" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5 ...
##   .. ..- attr(*, "names")= chr  "Missing; RU,DE: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "Missing; Unknown{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5 ...
##   .. ..- attr(*, "names")= chr  "SG: Missing; RU: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 0 1 2 3 4 ...
##   .. ..- attr(*, "names")= chr  "BH,SG:Missing; DE:Inapplicable; RU:Inappropriate response{In" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5 ...
##   .. ..- attr(*, "names")= chr  "DE,SE:Inapplicable ; RU:Inappropriate response{Inappropriate" "Not asked in survey" "Not applicable" "No answer; BH: Refused" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "DE,SE:Inapplicable; RU:Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "BH,SG:Missing; RU:Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable (Not first choice)" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "Missing; RU,DE: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "BH: Missing; RU,DE: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable (Not first choice)" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "Missing; RU: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "BH: Missing; RU,DE: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable (Not first choice){Not applicable}" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "Missing; RU,DE: Inappropriate response{Inappropriate}" "Not asked" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3
##   .. ..- attr(*, "names")= chr  "Missing; RU,DE: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3
##   .. ..- attr(*, "names")= chr  "EC,DE,SE:Inapplicable ; RU:Inappropriate response{Inappropri" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3
##   .. ..- attr(*, "names")= chr  "EC,DE,SE:Inapplicable ; RU:Inappropriate response{Inappropri" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5 ...
##   .. ..- attr(*, "names")= chr  "BH: Missing; RU: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5 ...
##   .. ..- attr(*, "names")= chr  "Missing; RU,DE: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5 ...
##   .. ..- attr(*, "names")= chr  "BH: Missing; DE,SE:Inapplicable ; RU:Inappropriate response{" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5 ...
##   .. ..- attr(*, "names")= chr  "DE,SE:Inapplicable ; RU:Inappropriate response{Inappropriate" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5 ...
##   .. ..- attr(*, "names")= chr  "Missing; RU,DE: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5 ...
##   .. ..- attr(*, "names")= chr  "Missing; RU,DE: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5 ...
##   .. ..- attr(*, "names")= chr  "DE,SE:Inapplicable ; RU:Inappropriate response; Missing{Inap" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5 ...
##   .. ..- attr(*, "names")= chr  "BH: Missing; RU,DE: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5 ...
##   .. ..- attr(*, "names")= chr  "Missing;SE:Inapplicable ; RU:Inappropriate response{Inapprop" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5 ...
##   .. ..- attr(*, "names")= chr  "Missing; RU,DE: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5 ...
##   .. ..- attr(*, "names")= chr  "DE,SE:Inapplicable ; RU:Inappropriate response; Missing{Inap" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5
##   .. ..- attr(*, "names")= chr  "Missing; SE:Inapplicable; RU:Inappropriate response; BH: Mis" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3
##   .. ..- attr(*, "names")= chr  "DE,SE:Inapplicable ; RU:Inappropriate response; Missing{Inap" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "BH: Missing; RU: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2
##   .. ..- attr(*, "names")= chr  "Missing; RU: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4
##   .. ..- attr(*, "names")= chr  "BH: Missing; RU: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3
##   .. ..- attr(*, "names")= chr  "Missing; RU,DE: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3
##   .. ..- attr(*, "names")= chr  "DE,MX,SE:Inapplicable ; RU:Inappropriate response; Missing{I" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3
##   .. ..- attr(*, "names")= chr  "Missing; RU,DE: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3
##   .. ..- attr(*, "names")= chr  "DE,SE:Inapplicable ; RU:Inappropriate response; Missing{Inap" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3
##   .. ..- attr(*, "names")= chr  "CN,DE,SE:Inapplicable ; RU:Inappropriate response; Missing{I" "Not asked in survey" "Not applicable" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5
##   .. ..- attr(*, "names")= chr  "Missing; RU: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable ('Have not done'){Not applicable}" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5
##   .. ..- attr(*, "names")= chr  "Missing; RU: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable ('Have not done'){Not applicable}" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5
##   .. ..- attr(*, "names")= chr  "Missing; RU: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable ('Not have done'){Not applicable}" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5
##   .. ..- attr(*, "names")= chr  "Missing; RU: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable ('Not have done'){Not applicable}" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5
##   .. ..- attr(*, "names")= chr  "Missing; RU: Inappropriate response{Inappropriate}" "Not asked in survey" "Not applicable ('Have not done'){Not applicable}" "No answer" ...
##   ..$ : Named num  -5 -4 -3 -2 -1 1 2 3 4 5 ...
##   .. ..- attr(*, "names")= chr  "DE,SE:Inapplicable ; RU:Inappropriate response; Missing{Inap" "Not asked in survey" "Not applicable" "No answer" ...
##   .. [list output truncated]

整理資料

1.比較不同國家對自由程度的認知

答題分布1

2.比較不同年齡層對自由程度的認知

答題分布2

3.比較不同性別對自由程度的認知

答題分布3

4.比較不同教育程度對自由程度的認知

答題分布4

5.比較不同國家的生活滿意度

答題分布5

6.比較不同年齡層的生活滿意度

答題分布6

7.比較不同性別的生活滿意度

答題分布7

8.比較不同教育程度的生活滿意度

答題分布8

東西方差異比較

9.不同年齡層的自由程度

答題分布9

不同性別的自由程度

答題分布10

不同教育程度的自由程度

答題分布11

12.東西方不同年齡層的生活滿意度

答題分布12

13.東西方不同性別的生活滿意度

答題分布13

14.東西方不同教育程度的生活滿意度

答題分布14

結論

  • 自由程度會因為國籍、年齡、薪水而有所不同

  • 生活滿意度會因為國籍、年齡、薪水而有所不同

  • 男女在自由程度和生活滿意度上的差別不明顯