MT_CARS 2-6

Question 1: Keep only cars with more than 6 cylinders and mpg greater than 15

high_powered_cars <-mtcars %>% # (then)
  filter(cyl > 6 & mpg > 15)


print(head(high_powered_cars, 3))

##                    mpg cyl  disp  hp drat   wt  qsec vs am gear carb
## Hornet Sportabout 18.7   8 360.0 175 3.15 3.44 17.02  0  0    3    2
## Merc 450SE        16.4   8 275.8 180 3.07 4.07 17.40  0  0    3    3
## Merc 450SL        17.3   8 275.8 180 3.07 3.73 17.60  0  0    3    3

head(high_powered_cars, 3)

##                    mpg cyl  disp  hp drat   wt  qsec vs am gear carb
## Hornet Sportabout 18.7   8 360.0 175 3.15 3.44 17.02  0  0    3    2
## Merc 450SE        16.4   8 275.8 180 3.07 4.07 17.40  0  0    3    3
## Merc 450SL        17.3   8 275.8 180 3.07 3.73 17.60  0  0    3    3

Question 2: Select only the mpg, hp, and wt columns

efficiency_power <- mtcars %>%
  select(mpg, hp, wt)

head(efficiency_power, 4)

##                 mpg  hp    wt
## Mazda RX4      21.0 110 2.620
## Mazda RX4 Wag  21.0 110 2.875
## Datsun 710     22.8  93 2.320
## Hornet 4 Drive 21.4 110 3.215