데이터 살펴보기

sales <- read.csv('sales.csv',
                  stringsAsFactors = F,
                  fileEncoding = 'UTF-8')
head(sales)

library(dplyr)
nrow(sales)
sales$성별 %>% table 
sales$나이 %>% summary
sales$나이 %>% hist
sales$사용일 %>% hist
sales$사용일 %>% summary
sales$구매여부 %>% table
833/1895
sales$구매여부 %>% mean

sales.y <- sales %>% filter(구매여부 == 1)
sales.n <- sales %>% filter(구매여부 == 0)    

sales.y$사용일 %>% hist
sales.n$사용일 %>% hist

sales.y %>% 
    filter(성별 == '남') %>%
    .$사용일 %>%
    hist

sales.y %>% 
    filter(성별 == '여') %>%
    .$사용일 %>%
    hist