마무리

R로 하는 탐색적 데이터 분석

Andrew Bray

Assistant Professor, Reed College

원형 차트 vs. 막대 차트

ch4_4.002.png

패싯 vs. 누적

ch4_4.003.png

히스토그램

ggplot(data, aes(x = var1)) +
    geom_histogram()

ch4_4.004.png

밀도 그래프

cars %>%
  filter(eng_size < 2.0) %>%
  ggplot(aes(x = hwy_mpg)) +
  geom_density()

ch4_4.005.png

나란한 상자그림

ggplot(common_cyl, aes(x = as.factor(ncyl), y = city_mpg)) +
  geom_boxplot()

Warning message:
Removed 11 rows containing non-finite values (stat_boxplot).

ch4_4.006.png

중심: 평균, 중앙값, 최빈값

76 78 75 74 76 72 74 73 73 75 74

table(x)
x

72 73 74 75 76 78 
 1  2  3  2  2  1

ch4_4.007.png

소득 분포 형태

ggplot(life, aes(x = income, fill = west_coast)) +
  geom_density(alpha = .3)
ggplot(life, aes(x = log(income), fill = west_coast)) +
  geom_density(alpha = .3)

ch4_4.008.png

group_by()와 함께

life %>%
  slice(240:247) %>%
  group_by(west_coast) %>%
  summarize(mean(expectancy))

# A tibble: 2 x 2
  west_coast mean(expectancy)
       <lgl           <dbl>
1      FALSE         79.26125
2       TRUE         79.29375

ch4_4.009.png

스팸과 느낌표

email %>%
  mutate(zero = exclaim_mess == 0) %>%
  ggplot(aes(x = zero, fill = spam)) +
  geom_bar()

ch4_4.010.png

스팸과 이미지

email %>%
  mutate(has_image = image 0) %>%
  ggplot(aes(x = as.factor(has_image), fill = spam)) +
  geom_bar(position = "fill")

ch4_4.011.png

연습해 봅시다!

R로 하는 탐색적 데이터 분석