턱걸이

Download Rmd

Source

library(hsData)
source(glue::glue("{here::here()}/vignettes/_common.R"), encoding="UTF-8")

턱걸이 데이터: pullup

실용통계 73 페이지 수록된 턱걸이 횟수 데이터를 살펴보자.

Source

knitr::kable(
  pullup, 
  booktabs = TRUE,
  align = c('c'),
  caption = '실용통계 73쪽 고등학교 남학생 24명 턱걸이 횟수'
)

Results

실용통계 73쪽 고등학교 남학생 24명 턱걸이 횟수

턱걸이_횟수
10
6
6
5
5
6
3
3
7
7
5
6
7
7
8
7
3
2
5
14
4
6
6
16

시각화 - 상자그림

고등학교 남학생 24명 턱걸이 횟수 분포를 시각화한다.

Source

pullup %>% 
  ggplot(aes( y = 턱걸이_횟수)) +
    geom_boxplot() +
    theme_bw() +
    labs(title = "고등학생 24명 턱컬이 횟수",
         subtitle = "상자그림(Boxplot), 단위:횟수",
         y = "턱걸이 횟수",
         caption = "출처: 통계개발원 실용통계, P73")

Results

통계량

턱걸이 횟수 주요 통계량을 살펴보자.

Source

pullup_skim <- pullup %>% 
  skimr::skim() %>% 
  skimr::yank("numeric") %>% 
  select(-n_missing, -complete_rate)
  
knitr::kable(
  pullup_skim, 
  booktabs = TRUE,
  align = c(rep('c', times=9)),
  caption = '실용통계  73쪽 고등학생 24명 턱걸이 요약 통계량'
)

Results

실용통계 73쪽 고등학생 24명 턱걸이 요약 통계량

skim_variable	mean	sd	p0	p25	p50	p75	p100	hist
턱걸이_횟수	6.416667	3.202128	2	5	6	7	16	▂▇▁▁▁