LOTE 16

Resumen total

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    37.0    59.0    66.0    65.9    74.0   102.0

Resumen Engorde

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    37.0    58.0    65.0    65.6    73.0   102.0

ggplot(datos, aes(1:nrow(datos), Peso)) +
  geom_point(aes(col = Genetica))

ggplot(datos, aes(datos$Peso)) +
  geom_density(aes(fill = Genetica,col = Genetica, alpha = 0.1))

## Warning: Use of `datos$Peso` is discouraged. Use `Peso` instead.

ggplot(datos, aes(Genetica,Peso)) +
  geom_boxplot(aes(fill = Genetica))