CRABS
Juan Pablo Marulanda_Mayra Valencia_Alejandra Verano
2025-01-30
Introducción
Los cangrejos ermitaños, artrópodos presentes en ecosistemas tropicales y subtropicales, enfrentan amenazas por su comercialización como mascotas, lo que causa sobreexplotación y alteración de sus hábitats. Es crucial estudiar su comportamiento reproductivo, especialmente en hembras rodeadas por machos satélites, una posible estrategia para aumentar las probabilidades de apareamiento. Esta recopilación de datos plantea preguntas sobre las características de las hembras que influyen en la cantidad de satélites que las rodean. ¿Existen factores específicos que hacen que ciertas hembras sean más atractivas para los machos? ¿Podría su tamaño, calidad de la concha o condición general jugar un papel clave?
##cargar la base desde linea
library(readxl)
Crab <- read_excel("C:/Users/mayra/OneDrive - PUJ Cali/5 QUINTO SEMESTRE/Bioestadística/Crab.xlsx",
col_types = c("numeric", "numeric", "numeric",
"numeric", "text", "text", "numeric"))
head(Crab)| crab | satellites | weight | width | color | spine | y |
|---|---|---|---|---|---|---|
| 1 | 8 | 3050 | 28.3 | 2 | 3 | 1 |
| 2 | 0 | 1550 | 22.5 | 3 | 3 | 0 |
| 3 | 9 | 2300 | 26.0 | 1 | 1 | 1 |
| 4 | 0 | 2100 | 24.8 | 3 | 3 | 0 |
| 5 | 4 | 2600 | 26.0 | 3 | 3 | 1 |
| 6 | 0 | 2100 | 23.8 | 2 | 3 | 0 |
Hipótesis 1: Porcentaje de Hembras con Satélites
Se esperaba un mayor porcentaje de hembras con satélites que las que no los tienen.
require(table1)
table1(~satellites>0,data=Crab)| Overall (N=173) |
|
|---|---|
| satellites > 0 | |
| Yes | 111 (64.2%) |
| No | 62 (35.8%) |
Los resultados indican que la mayoría de las hembras presentan al menos un satélite. La tabla descriptiva muestra una clara mayoría de individuos con satélites, lo que respalda la hipótesis inicial. Esto sugiere que la presencia de satélites es una característica predominante en esta población de hembras.
Hipótesis 2: Relación con la Condición de Espinas
Se esperaba que el porcentaje de hembras con satélites estuviera relacionado con la condición de las espinas.
table1(~satellites | spine,data=Crab) ## lo tomo como una variable cuantitativa (numerico)| 1 (N=37) |
2 (N=15) |
3 (N=121) |
Overall (N=173) |
|
|---|---|---|---|---|
| satellites | ||||
| Mean (SD) | 3.65 (3.39) | 2.00 (2.36) | 2.81 (3.13) | 2.92 (3.15) |
| Median [Min, Max] | 4.00 [0, 14.0] | 0 [0, 6.00] | 2.00 [0, 15.0] | 2.00 [0, 15.0] |
El análisis de las tablas descriptivas muestra que no existe una relación evidente entre la condición de las espinas y la presencia de satélites. Tanto en hembras con espinas en buenas condiciones como en aquellas con espinas deterioradas, la proporción de individuos con satélites se mantiene relativamente constante. Esto sugiere que la condición de las espinas no es un factor determinante.
Hipótesis 3: Relación con el Color
Se esperaba que el porcentaje de hembras con satélites estuviera relacionado con el color.
# Recodificar los niveles de un factor
Crab$color_recode <- factor(Crab$color,
levels = c("1", "2", "3", "4"),
labels = c("muy claro", "claro", "oscuro", "muy oscuro"))
# Crear la tabla
table1(~ satellites | color_recode, data = Crab)| muy claro (N=12) |
claro (N=95) |
oscuro (N=44) |
muy oscuro (N=22) |
Overall (N=173) |
|
|---|---|---|---|---|---|
| satellites | |||||
| Mean (SD) | 4.08 (3.12) | 3.29 (3.21) | 2.23 (2.60) | 2.05 (3.62) | 2.92 (3.15) |
| Median [Min, Max] | 4.50 [0, 9.00] | 3.00 [0, 15.0] | 1.00 [0, 10.0] | 0 [0, 12.0] | 2.00 [0, 15.0] |
Las tablas muestran una tendencia, los colores más oscuros parecen estar asociados con una mayor presencia de satélites. Las hembras clasificadas como “Oscuro” y “Muy Oscuro” presentan porcentajes más altos de satélites en comparación con las de colores claros. Esta observación sugiere una posible relación positiva entre el color y la cantidad de satélites.
Hipótesis 4: Relación con el Peso
Se esperaba una relación entre la cantidad de satélites y el peso (más peso, más satélites).
require(ggplot2)
#g1= ggplot(aes(x=weight, y=satellites), data = Crab) +
#geom_point()+geom_smooth(method = "lm")+theme_bw()
#opcion para poner color
g1=ggplot(aes(x=weight, y=satellites, colour = color), data = Crab) +
geom_point()+geom_smooth(method = "lm")+theme_bw()
cor(Crab$satellites,Crab$weight)## [1] 0.3692474require(plotly)
ggplotly(g1)El gráfico de dispersión muestra una tendencia positiva entre el peso y la cantidad de satélites. La línea de regresión ajustada refuerza esta observación. Además, la correlación calculada entre ambas variables es moderada, lo que respalda la hipótesis. Sin embargo, el análisis por categorías de peso muestra que esta relación puede no ser completamente lineal, ya que las hembras de peso “medio” también presentan una cantidad considerable de satélites.
Hipotesis 5: Presencia o no de satelites
se espera una relacion entre la presencia o no de satelites con las cangrejas con un tamaño (ancho) mayor a la mediana
tiene_satelites=Crab$satellites>0
tamaño_mayor_mediana=Crab$width>median(Crab$width)
Crab2=data.frame(tiene_satelites,tamaño_mayor_mediana)
table1(~tiene_satelites|tamaño_mayor_mediana,data=Crab2)| FALSE (N=87) |
TRUE (N=86) |
Overall (N=173) |
|
|---|---|---|---|
| tiene_satelites | |||
| Yes | 43 (49.4%) | 68 (79.1%) | 111 (64.2%) |
| No | 44 (50.6%) | 18 (20.9%) | 62 (35.8%) |
Se puede aceptar medianamente la hipotesis, ya que la linea de tendecia es positiva, sin embargo se pueden ver varias expceciones a lo largo de ella, como quien tiene más satelites no es la más pesada, y aquella más pesada tiene una cantidad media de satelites.
Conclusión
Los análisis realizados en los cangrejos ermitaños revelan que el 64.2% de las hembras observadas estaban rodeadas por machos satélites, lo que respalda la idea de que la mayoría de las hembras son acompañadas por machos, posiblemente como parte de su estrategia reproductiva. Entre los factores clave que influyen en esta dinámica, se destacan el peso y tamaño de las hembras, ya que las de mayor envergadura tienen más probabilidades de atraer satélites, aunque esta relación no es absoluta.
Además, otras características como la calidad de las espinas y la coloración también inciden en la cantidad de machos satélites presentes. En particular, las hembras con espinas bien conservadas y tonos de color más claros tienden a atraer más machos, aunque este efecto no es tan marcado como el del peso y el tamaño. Cabe destacar que, si bien el color parece influir en la cantidad de satélites, no se observa una relación lineal donde las hembras de colores más oscuros incrementen progresivamente su atracción de machos.
En conclusión, los hallazgos sugieren que la atracción de machos en los cangrejos ermitaños está determinada por una combinación de factores físicos, entre ellos el tamaño, el peso y el color, los cuales interactúan entre sí y deben analizarse en conjunto para comprender mejor su comportamiento reproductivo.