data(“ChickWeight”) ChickWeight dieta1<- ChickWeight[1:220,] dieta1 dieta2<- ChickWeight[221:340,] dieta2 dieta3<- ChickWeight[341:460,] dieta3 dieta4<- ChickWeight[461:578,] dieta4 factor1<- factor(dieta1\(Time) factor1 factor2<- factor(dieta2\)Time) factor2 factor3<- factor(dieta3\(Time) factor3 factor4<- factor(dieta4\)Time) factor4 peso1<- dieta1\(weight peso1 peso2<- dieta2\)weight peso2 peso3<- dieta3\(weight peso3 peso4<- dieta4\)weight peso4 promedio1<- tapply(peso1, INDEX = factor1, FUN = mean) promedio1 promedio2<- tapply(peso2, INDEX = factor2, FUN = mean) promedio2 promedio3<- tapply(peso3, INDEX = factor3, FUN = mean) promedio3 promedio4<- tapply(peso4, INDEX = factor4, FUN = mean) promedio4 promedio<- c(promedio1, promedio2, promedio3, promedio4) promedio time<- c(factor1, factor2, factor3, factor4) time Leyendas<-c(rep(“dieta1”,length(promedio1))) Leyendas<-c(Leyendas,rep(“dieta2”,length(promedio2))) Leyendas<-c(Leyendas,rep(“dieta3”,length(promedio2))) Leyendas<-c(Leyendas,rep(“dieta4”,length(promedio4))) library(ggplot2)

qplot(Leyendas, promedio, color= Leyendas, shape= Leyendas, main = “Crecimiento promedio en funcion de la dieta”, xlab = “Dias”, ylab = “Pesos(gramos)”) + geom_line()