Moluscos

Con el siguiente informe se realizará un análisis exploratorio que permitirá conocer cual es el consumos de oxígeno, las distintas concentraciones del agua mar de dos tipos de moluscos según la base de datos (BD_moluscos).

load("C:/Users/Valentina/Desktop/moluscos.RData")
head(BD_moluscos)
##   c_agua molusco cons_o
## 1    100       A   7.16
## 2    100       A   8.26
## 3    100       A   6.78
## 4    100       A  14.00
## 5    100       A  13.60
## 6    100       A  11.10
as.character(BD_moluscos$c_agua)
##  [1] "100" "100" "100" "100" "100" "100" "100" "100" "100" "100" "100" "100"
## [13] "100" "100" "100" "100" "75"  "75"  "75"  "75"  "75"  "75"  "75"  "75" 
## [25] "75"  "75"  "75"  "75"  "75"  "75"  "75"  "75"  "50"  "50"  "50"  "50" 
## [37] "50"  "50"  "50"  "50"  "50"  "50"  "50"  "50"  "50"  "50"  "50"  "50"
summary(BD_moluscos$c_agua)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##      50      50      75      75     100     100
table(BD_moluscos$molusco)
## 
##  A  B 
## 24 24

Con la función head(), nos muestra los primeros 6 registros de la base de datos, su estructura y lo que contiene. Podemos observar que esta base de datos de Moluscos tiene 3 variables que son: la Concentración de agua (c_agua), Tipo de molusco (A y B) y el Consumo de oxígeno(cons_o). con la funciones as.character y summary, nos permite saber que estas concentraciones de agua tiene variables de (50%, 75% y 100%).

require(plotly)
## Loading required package: plotly
## Loading required package: ggplot2
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
require(ggplot2)
summary(BD_moluscos$cons_o)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   1.800   6.312   9.700   9.305  11.232  18.800
tapply(BD_moluscos$cons_o, BD_moluscos$molusco, mean,na.rm=TRUE)
##         A         B 
## 10.000417  8.609167
g1= ggplot(BD_moluscos,aes(y=cons_o,x=molusco,fill=molusco))
g2= g1+geom_boxplot()+theme_bw()+ylab("Consumo de oxígeno")+xlab("Tipo de molusco")+ggtitle("Consumo de oxígeno vs Tipo de molusco")
ggplotly(g2)

Con el diagrama de cajas “Consumo de oxígeno vs Tipo de molusco”, se observa que el molusco de tipo A tiene un promedio mayor de consumo de oxígeno de 10.0, mientras que el molusco de tipo B tiene un promedio menor de consumo de 8.609 pero con más variación que el molusco de tipo A.

require(plotly)
require(ggplot2)
tapply(BD_moluscos$cons_o, BD_moluscos$c_agua, mean,na.rm=TRUE)
##       50       75      100 
## 12.25062  6.99250  8.67125
ggplot(BD_moluscos,aes(y=cons_o,x=c_agua,fill=molusco))+geom_boxplot()+facet_grid(~molusco)+theme_bw()+ylab("Consumo de oxígeno")+xlab("Concentración de agua")+ggtitle("Consumo de oxígeno vs Concentración de agua según el tipo de molusco")

Se observa que el tipo de molusco A, consume una mayor cantidad de oxígeno que el molusco B y que la mejor concentración del agua para obtener un mayor consumo de oxigeno es del 50% con un promedio de 12.25 y que la concentración de agua menos adecuada para estos dos tipos de moluscos es del 75% con un promedio de 6.99.

BD_moluscos$molusco=as.factor(BD_moluscos$molusco)
g1=ggplot(BD_moluscos, aes (y=cons_o, x=molusco, fill= molusco))
g2=g1+geom_boxplot()+xlab("Moluscos")+ylab("Consumo de Oxígeno")+ ggtitle("Consumo de Oxígeno vs Concentración de agua por moluscos")+facet_grid(~c_agua)
ggplotly(g2)
g5= ggplot(BD_moluscos,aes(x=c_agua,y=cons_o,c_agua=as.factor(c_agua)))+facet_grid(~molusco)+geom_boxplot()+ylab("Consumo de Oxígeno")+xlab("Concentración de agua")+ggtitle("Consumo de Oxígeno vs Concentración de agua por moluscos")
ggplotly(g5)

Nota: Ambos diagramas tienen la misma información, solo están en diferente presentación.

Se observa que con la concentración de agua del 50%, el consumo de oxígeno de los dos tipos de moluscos (A y B) es mayor que en las otras concentraciones de agua. El molusco tipo B con el 50% de concentración de agua, presenta una mejor adaptación e indica que estas son las condiciones adecuadas para este molusco y el molusco tipo A consume más oxigeno cuando esta en concentraciones de agua del 75% y 100%.