옥스포드 행복 설문지 실험결과를 분석한다. 이 실험에는 두 가지 목적이 있다. 첫째는 있는 그대로 옥스포드 행복 설문지로 측정하는 여러분의 행복 수준은 어느 정도인지, 둘째는 영문판으로 응답할 때와 국문판으로 응답할 때 어떤 차이가 있는지, 특히 응답에 소요되는 시간을 측정해 보았다.

Red, Black을 잘못 표시한 사람들

랜덤화출석부에 있는 Red, Black 과 실제 구글설문에 올린 Red, Black 이 다른 사람들의 수효는 네 명으로 많이 줄었습니다. Red를 Black 이라고 한 사람이 3명, Black 을 Red 라고 한 사람이 1명입니다.

  Red(옥스포드행복설문지) Black(옥스포드행복설문지)
Red(랜덤화출석부) 417 3
Black(랜덤화출석부) 1 423

행복 점수 비교

국문 설문지와 영문 설문지의 행복점수를 비교한다. 행복점수 단계별로 비교했을 때나 기초통계로 비교했을 때나 국문 설문지로 작성한 그룹 (Red)의 행복점수가 높게 나온다. 이는 통계적으로 매우 매우 유의한 수준이다.

summary()

  • 국문:

    Min. 1st Qu. Median Mean 3rd Qu. Max.
    1.759 3.526 3.966 4.034 4.483 5.724
  • 영문:

    Min. 1st Qu. Median Mean 3rd Qu. Max. NA’s
    1.828 3.483 3.81 3.908 4.276 5.655 6

table()

  행복하지 않다 다소 행복하지 않다 그저 그렇다 꽤 행복하다 매우 행복하다 NA
국문 1 18 194 159 46 0 418
영문 1 7 247 143 22 6 426
2 25 441 302 68 6 844
Pearson’s Chi-squared test with simulated p-value (based on 2000 replicates): .
Test statistic df P value
20.54 NA 0.0004998 * * *

백분율(%)

행복하지 않다 다소 행복하지 않다 그저 그렇다 꽤 행복하다 매우 행복하다
0.1 1.5 26.2 18.0 4.0 50.2 100.0

geom_boxplot()

t.test() on means

Welch Two Sample t-test: Scores by group
Test statistic df P value Alternative hypothesis mean in group 국문 mean in group 영문
2.823 816.3 0.002434 * * greater 4.034 3.908

소요시간 비교

초 단위로 측정한 소요시간에서는 오전, 오후를 잘못 쓴다거나 시작 시간이 제출 시간보다 늦게 입력한 사람들이 있고, 과도하게 (한 시간) 이상 소요된 것으로 나오는 사람들이 있어서 일일이 찾아서 수정하였고, 한 시간 이상은 사실상 설문지를 작성하다가 다른 일을 하고 다시 돌아와 마치는 과정을 의미하는 것으로 판단하여 NA 로 처리하였다. 소요 시간에 있어서도 국문과 영문에는 통계적으로 매우 유의한 수준의 차이가 관찰되었다.

평균적으로 107.6초, 즉 1분 48초정도 국문 질문지에 더 빨리 응답한다. 소요시간의 중위값을 비교해 보면 63.5 초, 약 1분 4초 만큼 국문 질문지에 더 빨리 응답하지만 통계적으로 유의한 수준은 아니다.

summary()

  • 국문:

    Min. 1st Qu. Median Mean 3rd Qu. Max. NA’s
    25 130 176 235.5 252 2797 41
  • 영문:

    Min. 1st Qu. Median Mean 3rd Qu. Max. NA’s
    2 122 239.5 343.1 402.2 3497 58

geom_boxplot()

t.test() on means

Welch Two Sample t-test: as.numeric(Duration) by group
Test statistic df P value Alternative hypothesis mean in group 국문 mean in group 영문
-4.406 667.1 1.229e-05 * * * two.sided 235.5 343.1

일 단위 마감 시간으로부터 제출 시간의 분포

분포표

일 단위
  [0,1] (1,2] (2,3] (3,4] (4,5] (5,6] (6,7] (7,8] (8,9] (9,10] (10,11] (11,12] (12,13] (13,14]
국문 127 28 16 12 10 14 21 62 39 24 23 18 11 13
영문 135 34 8 4 13 14 20 68 29 24 23 20 21 13

Quitting from lines 275-288 [unnamed-chunk-15] (Oxford_Happiness2302_Report.Rmd) Error: ! object ‘oxofrd’ not found Backtrace: 1. … %>% pander 6. base::cut(., breaks = c(0:14), include.lowest = TRUE) There were 25 warnings (use warnings() to see them)

막대그래프

Mosaic Plot