Exercício 11 [R Markdown]

install.packages(c(“dplyr”,“DT”,“htmlwidgets”))

data(mtcars) dados <- mtcars

conv_mpg_to_kmpl <- 0.425144

carros_ext <- carros %>% mutate( kmpl = mpg * conv_mpg_to_kmpl, pot_peso = hp / wt, cyl_f = factor(cyl, levels = c(4,6,8), labels = c(“4 cilindros”,“6 cilindros”,“8 cilindros”)) ) %>% filter(kmpl >= 8, pot_peso >= 70) %>% arrange(desc(pot_peso))

head(carros_ext, 10)