Actividad 3

library(ggplot2) library(datasets)

data(“ChickWeight”)

dieta1 <- ChickWeight[ChickWeight\(Diet == 1, ] dieta2 <- ChickWeight[ChickWeight\)Diet == 2, ] dieta3 <- ChickWeight[ChickWeight\(Diet == 3, ] dieta4 <- ChickWeight[ChickWeight\)Diet == 4, ] factor1 <- factor(dieta1\(Time) factor2 <- factor(dieta2\)Time) factor3 <- factor(dieta3\(Time) factor4 <- factor(dieta4\)Time) promedios_dieta1 <- tapply(dieta1\(weight, dieta1\)Time, mean) promedios_dieta2 <- tapply(dieta2\(weight, dieta2\)Time, mean) promedios_dieta3 <- tapply(dieta3\(weight, dieta3\)Time, mean) promedios_dieta4 <- tapply(dieta4\(weight, dieta4\)Time, mean) promedios_dieta1 <- as.numeric(promedios_dieta1) promedios_dieta2 <- as.numeric(promedios_dieta2) promedios_dieta3 <- as.numeric(promedios_dieta3) promedios_dieta4 <- as.numeric(promedios_dieta4) df_promedios <- data.frame( Time = rep(levels(factor1), 4), Weight = c(promedios_dieta1, promedios_dieta2, promedios_dieta3, promedios_dieta4), Diet = factor(rep(1:4, each = length(promedios_dieta1))) ) ggplot(df_promedios, aes(x = as.numeric(as.character(Time)), y = Weight, color = Diet)) + geom_line(aes(group = Diet), size = 1) + geom_point(aes(shape = Diet), size = 3) + labs(title = “Crecimiento promedio en función de la dieta”, x = “días”, y = “Pesos (gramos)”, color = “Leyendas”, shape = “Leyendas”) + theme_minimal() + scale_color_manual(values = c(“red”, “green”, “blue”, “purple”)) + scale_shape_manual(values = c(16, 17, 15, 3)) + scale_x_continuous(breaks = seq(0, 20, by = 1), limits = c(0, 20)) + theme( legend.position = “right”, plot.title = element_text(hjust = 0.5) )