Te comento el enunciado de la hoja desde que tengo el problema,que es en todos los pasos. Es como que no me coge bien las variables…
Enunciado:
● Selecciona solo los coches con un mpg más grande que 25
● Selecciona solo los coches con un mpg más grande que 25 y am = 1
● Ordena los coches de mayor a menor en qsec y que sean de am= 0 y gear = 4. ¿Qué coche tiene más qsec?
● Calcula el promedio de wt (peso) por cyl y am
Te escribo el código que puse:
library(ISLR)
library(dplyr)
library(tidyr)
data <- mtcars
summary(data)
nombres_variables = data.frame(Nombre = colnames(data),Num_Columna = seq(ncol(data)))
df_sel = data[seq(from = 5, to=10,by=1),seq(from = 1, to=5,by=1)
]
data_sel_1 = data %>%
select(mpg) %>% # seleccionando variable mpg
filter(mpg>25) %>%
data_sel_2 = data %>%
select(mpg,am) %>% # seleccionando variable mpg
filter(mpg>25, am==1) %>%
data_sel_3 = data %>%
select(am,gear) %>% # seleccionando variable mpg
filter(am==1) %>%
filter(gear==4) %>%
arrange(desc(qsec)) %>%
data_sel_4 = data %>%
group_by(cyl,am) %>%
summarize(Mean_wt = mean(wt),desv_wt = sd(wt))
