Camarones

Introducción:

La acuicultura es uno de los factores económicos más fuertes de nuestra región gracias a nuestras costas repletas de especies y la facilidad de comercio con la que contamos, es por eso que nosotros decidimos enfocar nuestro proyecto a esta área. Para trabajar conseguimos una serie de datos que fueron recopilados de manera semanal sobre una granja de camarones, gracias a esto podemos presentar el siguiente proyecto y poder ver cómo se comporta el crecimiento y la reproducción de esta especie con el fin de encontrar mejoras y posibles causas de algunos problemas que pueda haber en esta área.

Análisis

Antes de hacer cualquier otra gráfica analizamos cuáles datos tienen relación entre ellos y los resultados fueron los siguientes:

   pairs(camaron)

   cor(camaron)

##                  Superficie      Dias    Semana PesoAnterior  PesoActual
## Superficie       1.00000000 0.0000000 0.0000000  -0.01483508 -0.01165829
## Dias             0.00000000 1.0000000 1.0000000   0.98320025  0.98178252
## Semana           0.00000000 1.0000000 1.0000000   0.98320025  0.98178252
## PesoAnterior    -0.01483508 0.9832002 0.9832002   1.00000000  0.99158412
## PesoActual      -0.01165829 0.9817825 0.9817825   0.99158412  1.00000000
## TamanioAlimento  0.01237485 0.8275323 0.8275323   0.87434787  0.88057691
## AlimentoSemana   0.07419489 0.9441085 0.9441085   0.95106083  0.95147028
## AlimentoDiario   0.07419489 0.9441085 0.9441085   0.95106083  0.95147028
##                 TamanioAlimento AlimentoSemana AlimentoDiario
## Superficie           0.01237485     0.07419489     0.07419489
## Dias                 0.82753233     0.94410854     0.94410854
## Semana               0.82753233     0.94410854     0.94410854
## PesoAnterior         0.87434787     0.95106083     0.95106083
## PesoActual           0.88057691     0.95147028     0.95147028
## TamanioAlimento      1.00000000     0.84842292     0.84842292
## AlimentoSemana       0.84842292     1.00000000     1.00000000
## AlimentoDiario       0.84842292     1.00000000     1.00000000

   summary(camaron)

##    Superficie         Dias        Semana    PesoAnterior      PesoActual    
##  Min.   :5.000   Min.   :14   Min.   : 2   Min.   : 0.130   Min.   : 0.600  
##  1st Qu.:5.000   1st Qu.:28   1st Qu.: 4   1st Qu.: 1.550   1st Qu.: 2.163  
##  Median :5.000   Median :49   Median : 7   Median : 4.015   Median : 4.730  
##  Mean   :5.212   Mean   :49   Mean   : 7   Mean   : 4.253   Mean   : 5.288  
##  3rd Qu.:5.000   3rd Qu.:70   3rd Qu.:10   3rd Qu.: 6.338   3rd Qu.: 7.955  
##  Max.   :6.270   Max.   :84   Max.   :12   Max.   :10.360   Max.   :12.260  
##  TamanioAlimento AlimentoSemana AlimentoDiario  
##  Min.   :0.800   Min.   : 402   Min.   : 57.43  
##  1st Qu.:1.000   1st Qu.: 527   1st Qu.: 75.29  
##  Median :1.000   Median :1060   Median :151.43  
##  Mean   :1.226   Mean   :1025   Mean   :146.37  
##  3rd Qu.:1.200   3rd Qu.:1329   3rd Qu.:189.82  
##  Max.   :2.000   Max.   :2075   Max.   :296.43

Regresión lineal

   regresion <- lm( Dias ~ PesoActual, data = camaron)
   plot(camaron$PesoActual, camaron$Dias, xlab='Peso', ylab='Dias', col='Blue')
   abline(regresion, col="Red")

En esta gráfica podemos observar cómo se comporta el peso de los camarones conforme pasan los días de la semana, se puede apreciar como varía el peso, más adelante podremos observar otros factores que nos mostrarán que es lo que hace que estos valores sean diferentes.

Gráfica 2

   ggplot(camaron, aes(x=Dias, y=PesoActual, col=TamanioAlimento)) + 
   geom_point(size=6)

En esta gráfica ya podemos apreciar otro factor importante que es el tamaño del alimento que se le proporciona al camarón, podemos observar que dependiendo del tamaño de alimento que se les dé tienen un mayor crecimiento y por ende, más peso.

Gráfica 3

   ggplot(data=camaron)+
   geom_bar(mapping=aes(x=PesoActual))