knitr::opts_chunk$set(echo = TRUE)
library(ggplot2)
library(datasets)
data("ChickWeight")
dieta1 <- subset(ChickWeight, Diet == 1)
dieta2 <- subset(ChickWeight, Diet == 2)
dieta3 <- subset(ChickWeight, Diet == 3)
dieta4 <- subset(ChickWeight, Diet == 4)
factor1 <- factor(dieta1$Time)
factor2 <- factor(dieta2$Time)
factor3 <- factor(dieta3$Time)
factor4 <- factor(dieta4$Time)
promedios1 <- tapply(dieta1$weight, dieta1$Time, mean)
promedios2 <- tapply(dieta2$weight, dieta2$Time, mean)
promedios3 <- tapply(dieta3$weight, dieta3$Time, mean)
promedios4 <- tapply(dieta4$weight, dieta4$Time, mean)
vector1 <- as.numeric(promedios1)
vector2 <- as.numeric(promedios2)
vector3 <- as.numeric(promedios3)
vector4 <- as.numeric(promedios4)
promedios1 <- data.frame(Time = as.numeric(names(promedios1)), weight = vector1, Diet = "Dieta 1")
promedios2 <- data.frame(Time = as.numeric(names(promedios2)), weight = vector2, Diet = "Dieta 2")
promedios3 <- data.frame(Time = as.numeric(names(promedios3)), weight = vector3, Diet = "Dieta 3")
promedios4 <- data.frame(Time = as.numeric(names(promedios4)), weight = vector4, Diet = "Dieta 4")
promedios <- rbind(promedios1, promedios2, promedios3, promedios4)
ggplot(promedios, aes(x = Time, y = weight, color = Diet, shape = Diet)) +
geom_line() +
geom_point(size = 3) +
scale_color_manual(values = c("Dieta 1" = "red", "Dieta 2" = "green", "Dieta 3" = "blue", "Dieta 4" = "purple")) +
scale_shape_manual(values = c("Dieta 1" = 16, "Dieta 2" = 17, "Dieta 3" = 15, "Dieta 4" = 3)) +
labs(title = "Crecimiento promedio en función de la dieta", x = "Días", y = "Pesos (gramos)") +
theme_minimal() +
theme(
legend.position = "right",
legend.title = element_text(size = 12, face = "plain")
) +
guides(color = guide_legend(title = "Leyendas"), shape = guide_legend(title = "Leyendas"))
