Explore 002

### Source:https://cran.r-project.org/web/packages/explore/vignettes/explore_mtcars.html

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(explore)

mtcars %>% describe()

##    variable type na na_pct unique   min   mean    max
## 1       mpg  dou  0      0     25 10.40  20.09  33.90
## 2       cyl  dou  0      0      3  4.00   6.19   8.00
## 3      disp  dou  0      0     27 71.10 230.72 472.00
## 4        hp  dou  0      0     22 52.00 146.69 335.00
## 5      drat  dou  0      0     22  2.76   3.60   4.93
## 6        wt  dou  0      0     29  1.51   3.22   5.42
## 7      qsec  dou  0      0     30 14.50  17.85  22.90
## 8        vs  dou  0      0      2  0.00   0.44   1.00
## 9        am  dou  0      0      2  0.00   0.41   1.00
## 10     gear  dou  0      0      3  3.00   3.69   5.00
## 11     carb  dou  0      0      6  1.00   2.81   8.00

mtcars %>% 
  explore_all()

mtcars %>% 
  explore(gear)

mtcars %>% 
  select(gear, mpg, hp, cyl, am) %>% 
  explore_all(target = gear)

data <- mtcars %>% 
  mutate(highmpg = if_else(mpg > 25, 1, 0, 0)) %>% 
  select(-mpg)

data %>% explore(highmpg)

data %>% 
  select(highmpg, cyl, disp, hp) %>% 
  explore_all(target = highmpg)

data %>% 
  select(highmpg, drat, wt, qsec, vs) %>% 
  explore_all(target = highmpg)

data %>% 
  select(highmpg, am, gear, carb) %>% 
  explore_all(target = highmpg)

data %>% 
  explain_tree(target = highmpg)

data %>% explore(wt, target = highmpg)

mtcars %>% explore(wt, mpg)

mtcars %>% 
  explain_tree(target = hp, minsplit=15)