ISLR - Chapter 2

Main page

Chapter 2 exercises

Applied

2.8

college <- as_tibble(College)

pairs(college[,1:5])

EX 8 C iii

college %>%
  ggplot(aes(Private, Outstate)) +
  geom_boxplot()

### EX 8, c, iv

college <- college %>%
  mutate(
    Elite = factor(
      ifelse(
      Top10perc > 50,
      "Yes",
      "No"
    )
    )
  )

college %>%
  ggplot(aes(Elite, Outstate)) +
  geom_boxplot()

class(college$Elite)

## [1] "factor"

college %>% 
  filter(Grad.Rate < 100) %>%
  ggplot(aes(Grad.Rate)) +
  geom_histogram(bins = 25, aes(fill = Elite))