Tarea R
Utitiaj Jose
2025-02-01
[Link] 4 vectores en R en los cuales haya
información ficticia sobre 15 personas. Los vectores
deben ser nombrados de la siguiente manera: edad,
genero,
#peso y estatura. La estatura debe ser medida en metros y la variable genero debe #ser
establecida como factor.
Crear vectores en R
edad <- c(18, 21, 21, 57, 27, 37, 39, 54, 41, 24, 42, 42, 30, 19, 56) genero <-
factor(c(“Femenino”, “Femenino”, “Masculino”, “Masculino”, “Femenino”, “Femenino”,
“Femenino”, “Femenino”, “Masculino”, “Femenino”, “Masculino”, “Femenino”,
“Masculino”, “Femenino”, “Femenino”)) peso <- c(88.91, 93.50, 98.93, 89.96, 73.07,
89.03, 55.91, 82.00, 57.17, 97.23, 76.09, 70.73, 63.23, 88.71, 72.81) estatura <- c(1.78,
1.51, 1.81, 1.81, 1.81, 1.97, 1.84, 1.68, 1.72, 1.85, 1.53, 1.83, 1.84, 1.61, 1.56)
Mostrar los vectores
edad genero peso estatura
Crear vectores en R
edad <- c(18, 21, 21, 57, 27, 37, 39, 54, 41, 24, 42, 42, 30, 19, 56) genero <-
factor(c(“Femenino”, “Femenino”, “Masculino”, “Masculino”, “Femenino”, “Femenino”,
“Femenino”, “Femenino”, “Masculino”, “Femenino”, “Masculino”, “Femenino”,
“Masculino”, “Femenino”, “Femenino”)) peso <- c(88.91, 93.50, 98.93, 89.96, 73.07,
89.03, 55.91, 82.00, 57.17, 97.23, 76.09, 70.73, 63.23, 88.71, 72.81) estatura <- c(1.78,
1.51, 1.81, 1.81, 1.81, 1.97, 1.84, 1.68, 1.72, 1.85, 1.53, 1.83, 1.84, 1.61, 1.56)
#2. Construya un [Link] con los vectores previamente mencionados. Los títulos #de
cada columna deben ser Edad, Genero, Peso y Estatura.
Crear un [Link]
datos <- [Link]( Edad = edad, Genero = genero, Peso = peso, Estatura = estatura )
Mostrar el [Link]
print(datos)
#3. Use el pipe y la función round() de R para calcular el logaritmo base 5 del promedio de
cada una de las variables numéricas de la base de datos construida #previamente. round()
debe ser usada para establecer redondeo con una cifra decimal.
Calcular el logaritmo base 5 del promedio de cada
variable numérica y redondear a una cifra decimal
datos %>% summarise( Edad = round(log(mean(Edad), base = 5), 1), Peso =
round(log(mean(Peso), base = 5), 1), Estatura = round(log(mean(Estatura), base = 5), 1)
#3. Establezca en cada uno de los vectores numéricos, cuántas personas están por
#encima del promedio (del vector en consideración) y cuántas personas están por #debajo
del promedio (del vector en consideración).
Calcular promedios
promedio_edad <- mean(edad) promedio_peso <- mean(peso) promedio_estatura <-
mean(estatura)
Contar cuántas personas están por encima y por
debajo del promedio en cada vector numérico
por_encima_promedio_edad <- sum(edad > promedio_edad)
por_debajo_promedio_edad <- sum(edad < promedio_edad)
por_encima_promedio_peso <- sum(peso > promedio_peso) por_debajo_promedio_peso
<- sum(peso < promedio_peso)
por_encima_promedio_estatura <- sum(estatura > promedio_estatura)
por_debajo_promedio_estatura <- sum(estatura < promedio_estatura)
Resultados
resultados <- list( Edad = list( “Por encima del promedio” = por_encima_promedio_edad,
“Por debajo del promedio” = por_debajo_promedio_edad ), Peso = list( “Por encima del
promedio” = por_encima_promedio_peso, “Por debajo del promedio” =
por_debajo_promedio_peso ), Estatura = list( “Por encima del promedio” =
por_encima_promedio_estatura, “Por debajo del promedio” =
por_debajo_promedio_estatura ) )
print(resultados)
#5. Construya una lista con tres espacios. El primer espacio debe contener un vector con
los promedios de cada variable numérica del conjunto de datos previo. El segundo
espacio debe contener un vector con las medianas de cada variable numérica del
conjunto de datos previo. Finalmente, el tercer espacio debe contener la variable
cualitativa de la base de datos previamente mencionada
Crear vectores en R
edad <- c(18, 21, 21, 57, 27, 37, 39, 54, 41, 24, 42, 42, 30, 19, 56) genero <-
factor(c(“Femenino”, “Femenino”, “Masculino”, “Masculino”, “Femenino”, “Femenino”,
“Femenino”, “Femenino”, “Masculino”, “Femenino”, “Masculino”, “Femenino”,
“Masculino”, “Femenino”, “Femenino”)) peso <- c(88.91, 93.50, 98.93, 89.96, 73.07,
89.03, 55.91, 82.00, 57.17, 97.23, 76.09, 70.73, 63.23, 88.71, 72.81) estatura <- c(1.78,
1.51, 1.81, 1.81, 1.81, 1.97, 1.84, 1.68, 1.72, 1.85, 1.53, 1.83, 1.84, 1.61, 1.56)
Crear un [Link]
datos <- [Link]( Edad = edad, Genero = genero, Peso = peso, Estatura = estatura )
Calcular promedios y medianas
promedios <- c(mean(datos𝐸𝑑𝑎𝑑), 𝑚𝑒𝑎𝑛(𝑑𝑎𝑡𝑜𝑠Peso),
mean(datos𝐸𝑠𝑡𝑎𝑡𝑢𝑟𝑎))𝑚𝑒𝑑𝑖𝑎𝑛𝑎𝑠 < −𝑐(𝑚𝑒𝑑𝑖𝑎𝑛(𝑑𝑎𝑡𝑜𝑠Edad),
median(datos𝑃𝑒𝑠𝑜), 𝑚𝑒𝑑𝑖𝑎𝑛(𝑑𝑎𝑡𝑜𝑠Estatura))
Crear la lista con tres espacios
lista_resultados <- list( Promedios = promedios, Medianas = medianas, Genero =
datos$Genero )
Mostrar la lista
print(lista_resultados)