Informe de experimento de semillas

En el siguiente experimento se analizaron una serie de datos correspondientes a la germinación de unas semillas plantadas a diferentes niveles de humedad en 8 cajas, las cuales 4 quedaron totalmente cubiertas, mientras que las otras 4 quedaron sin cubrir. Las variables que se analizaron fueron: el porcentaje de germinación, el nivel de humedad y el factor de si se cubrió la caja o no.

require(faraway)
data("seeds")
head(seeds)

Se realizó una exploración univariada de los datos en las que se muestran los siguientes resultados:

require(ggplot2)
seeds$moisture=as.factor(seeds$moisture)
ggplot(seeds, aes(x=moisture,fill=moisture))+geom_bar()+ggtitle("Niveles de humedad")+ylab("Número de Cajas")+xlab("Porcentaje de humedad")

Se logra observar en el gráfico de barras que los diferentes 6 niveles de humedad se realizaron efectivamente en 8 cajas sin ningun tipo de variabilidad.

ggplot(seeds,aes(x=germ))+geom_histogram()+ggtitle("Germinación")+ylab("Número de Cajas")+xlab("Porcentaje de germinación")

Se observa en el histograma una variabilidad muy grande en cuanto al comportamiento de la germinación.

ggplot(seeds,aes(x=covered, fill=covered))+geom_bar()+ggtitle("Cajas cubiertas")+ylab("Cantidad")+xlab("Factor")

Con base a los datos obtenidos se concluye que es un diseño balanceado. Con base a esto, se compáraron las variables del factor de si estaban cubiertas o no y el porcentaje de humedad con la germinación para determinar la eficiencia de cada variable y si determina el porcentaje de germinación.

tapply(seeds$germ, seeds$covered, mean, na.rm=T)

      no      yes 
47.95833 47.65217 

ggplot(seeds, aes(y=germ, x=covered, fill=covered))+geom_boxplot()

Como se logra observar en los datos y en el diagrama de cajas, es una muy baja variabilidad en las cajas que estan cubiertas y las que no lo estan, por lo que no influye en el porcentaje de germinación y se recomienda no cubrirlas para evitar el gasto de plástico innecesario.

tapply(seeds$germ, seeds$moisture, mean, na.rm=T)

       1        3        5        7        9       11 
33.50000 60.62500 71.37500 65.00000 57.57143  0.00000 

ggplot(seeds, aes(y=germ, x=moisture, fill=moisture))+geom_boxplot()+ggtitle("Niveles de humedad")+ylab("Germinación")+xlab("Porcentaje de humedad")

Por último se concluye que a diferentes niveles de humedad hay mayor variación en el porcentaje de germinación y el nivel cuyo porcentaje de germinación es mayor y menos variable, por ende, más eficiente es al 5% de humedad y el menos eficiente es al 11% de humedad.