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

건전지 수명 데이터: battery

두 회사의 건전지 수명을 데이터를 통해 비교하여 객관적으로 우수한 건전지를 제조하는 회사를 식별해 낸다.

Source
knitr::kable(
  battery, 
  booktabs = TRUE,
  align = c('c', 'c'),
  caption = '실용통계  68쪽 두 회사 건전지 수명'
)
Results
실용통계 68쪽 두 회사 건전지 수명
회사명 건전지_수명
A 174
A 157
A 140
A 177
A 181
A 156
A 167
A 179
A 181
A 164
A 180
A 173
A 169
A 157
A 179
A 165
A 176
A 165
A 149
A 177
A 188
A 186
A 186
A 162
A 150
B 188
B 165
B 165
B 169
B 159
B 154
B 161
B 162
B 174
B 161
B 178
B 143
B 191
B 165
B 160
B 161
B 166
B 170
B 165
B 163

시각화 - 상자그림

두 회사의 건전지 수명을 상자그림을 통해 시각적으로 비교할 수 있다.

Source

battery %>% 
  ggplot(aes( x = 회사명, y = 건전지_수명)) +
    geom_boxplot() +
    theme_bw() +
    labs(title = "두 회사 건전지 수명 비교",
         subtitle = "상자그림(Boxplot), 단위:분",
         x = "회사명",
         y = "건전지 수명",
         caption = "출처: 통계개발원 실용통계, P68")
Results

기술통계량

두 회사의 건전지 수명을 다양한 통계량을 통해 비교할 수 있다.

Source
battery_skim <- battery %>% 
  group_by(회사명) %>% 
  skimr::skim() %>% 
  skimr::yank("numeric") %>% 
  select(-n_missing, -complete_rate)
  
knitr::kable(
  battery_skim, 
  booktabs = TRUE,
  align = c(rep('c', times = ncol(battery_skim))),
  caption = '실용통계  68쪽 두 회사 건전지 수명'
)
Results
실용통계 68쪽 두 회사 건전지 수명
skim_variable 회사명 mean sd p0 p25 p50 p75 p100 hist
건전지_수명 A 169.52 12.79362 140 162 173 179.00 188 ▂▃▅▆▇
건전지_수명 B 166.00 10.77033 143 161 165 169.25 191 ▁▇▇▂▂