Los cangrejos ermitaños son artrópodos que se encuentran ampliamente distribuidos a lo largo de diversos ecosistemas y su presencia abarca las costas de todos los continentes, con especial concentración en regiones tropicales y subtropicales. Sin embargo, a pesar de su adaptabilidad y gran diversidad, estas especies enfrentan amenazas debido a la creciente popularidad de su comercialización como mascotas, lo que los expone a la sobreexplotación y a cambios en sus hábitats naturales.Por esta razón, es importante estudiar el comportamiento reproductivo de los cangrejos ermitaños para su conservación, específicamente en relación con las hembras que se encuentran rodeadas por machos que son reconocidos como satélites, posiblemente como estrategia reproductiva para aumentar sus 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?
El conjunto de datos conforma una base que contiene información clave sobre los cangrejos ermitaños y sus características relacionadas con el comportamiento reproductivo. Entre las variables se incluyen: un identificador único para cada cangrejo hembra (crab), el número de satélites o machos cercanos a cada hembra (satellites), el peso del cangrejo en miligramos (weight), el ancho en milímetros (width), el color categórico del individuo (color), y una medida categórica de las espinas (spine). Además, se registra una variable binaria (y) que representa si la hembra presenta o no satélites cerca ***
Analizar la relación entre las características físicas de las hembras de cangrejo ermitaño y la cantidad de machos satélites que las rodean.
Determinar si existe una correlación significativa entre el peso de
las hembras y la cantidad de machos que atraen. Identificar el impacto
del color y las características de las espinas en la probabilidad de que
una hembra tenga satélites.
Analizar la distribución de la variable binaria (presencia o ausencia de
satélites) en función de las características morfológicas de las
hembras.
H1: Se esperan mayor porcentaje de hembras con satelites que las que no lo tienen
require(table1)
table1(~satellites>0,data = BASE_DE_DATOS)| Overall (N=173) |
|
|---|---|
| satellites > 0 | |
| Yes | 111 (64.2%) |
| No | 62 (35.8%) |
Sí, el porcentaje de hembras con satélites es de 64.2% (111 hembras) es significativamente mayor en comparación con el de hembras sin satélites que son 35.8% (62 hembras), según los datos presentados en la tabla.
H2: Se espera que el porcentaje de hembras con satelites esta relacionada con la condicion de las espinas (mejor calidad mas satelites)? opc1. descriptiva
table1(~satellites>0 | spine, data = BASE_DE_DATOS)| 1 (N=37) |
2 (N=15) |
3 (N=121) |
Overall (N=173) |
|
|---|---|---|---|---|
| satellites > 0 | ||||
| Yes | 26 (70.3%) | 7 (46.7%) | 78 (64.5%) | 111 (64.2%) |
| No | 11 (29.7%) | 8 (53.3%) | 43 (35.5%) | 62 (35.8%) |
##Hay mas atractivo si tienen las dos espinas buenas pero no hay tanta diferencia La relación entre el porcentaje de hembras con satélites y la condición de las espinas demuestra que, aunque tener ambas espinas en buen estado incrementa la probabilidad de tener satélites, esta característica no es completamente influyente. Esto se debe a que, se observa que el grupo con ambas espinas en buen estado presenta el mayor porcentaje de hembras con satélites, seguido por la categoria 3 con ambas espinas en mal estado, sin embargo, las hembras con solo una espina en mal estado (categoría 2) tienen el menor porcentaje de satélites, Es por esto que se concluye que el estado de las espinas puede influir en la presencia de satélites, pero no se observa una diferencia pronunciada en la cantidad de satélites.
H3: Se espera que el porcentaje de hermbras con satelites esta relacionado con el color (mas oscura mas satelites)?
table1(~satellites | color, data = BASE_DE_DATOS)| 1 (N=12) |
2 (N=95) |
3 (N=44) |
4 (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] |
# Recodificar los niveles de un factor
BASE_DE_DATOS$color_recode <- factor(BASE_DE_DATOS$color,
labels = c("Muy claro","claro","oscuro","muy oscuro"),
levels = c ("1","2","3","4"))
table1(~satellites | color_recode, data = BASE_DE_DATOS)| 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] |
’
Este caso es una relación inversa entre el color de las hembras y la presencia de satélites, porque a medida que el color se vuelve más oscuro, el número de hembras con satélites disminuye. Las hambras con el color mas claro tienen satelites presentando el 70.3%, en cambio el color mas oscuro el porcentaje es menor. Estos resultados indican que el color esta relacionado con la cantidad de satélites, teniendo en cuenta que no aumento progresivamente la cantidad de satélites a medida que el color se oscurece.
H4: Se espera una relacion entre la cantidad de satelites y el peso (mas peso mas satelites)?
#table1(~satellites | weight, data = BASE_DE_DATOS) # No es un buen plan cuando ambas variales son cuantitaicas continuas
##opc1
require (ggplot2)
g1=ggplot(aes(x=weight, y = satellites), data = BASE_DE_DATOS)+
geom_point()+geom_smooth(method = "lm")+theme_bw()
# opcion oara poner color como una categoria
#g1=ggplot(aes(x=weight, y = satellites, colour = color), data = BASE_DE_DATOS)+
#geom_point()+geom_smooth(method = "lm")+theme_bw()
require(plotly)
ggplotly(g1)cor(BASE_DE_DATOS$satellites, BASE_DE_DATOS$weight)## [1] 0.3692474Sí, se observa una relación positiva entre el peso y la cantidad de
satélites, lo que respalda la idea de que un mayor peso podría asociarse
con más satélites. Sin embargo, la relación no es determinista, ya que
hay una gran variabilidad en la cantidad de satélites para un mismo
rango de peso. Esto lo confirmamos con el coeficiente de correlacion
0.3692474, lo que significa que el peso influye en la cantidad de
satelites pero no es la unica razon para esto.
##opc2
BASE_DE_DATOS$weight_code = cut(BASE_DE_DATOS$weight,breaks = c(0,2000,4000,6000), labels = c("Liviano"," medio","pesado")) #peso modificado
table1(~satellites | weight_code, data = BASE_DE_DATOS)| Liviano (N=46) |
medio (N=126) |
pesado (N=1) |
Overall (N=173) |
|
|---|---|---|---|---|
| satellites | ||||
| Mean (SD) | 1.43 (2.39) | 3.43 (3.22) | 7.00 (NA) | 2.92 (3.15) |
| Median [Min, Max] | 0 [0, 10.0] | 3.00 [0, 15.0] | 7.00 [7.00, 7.00] | 2.00 [0, 15.0] |
Se espera una relacion entre la presencia o no de satelites con las cangrejas con un tamaño (ancho) mayor a la mediana?
#V1 : Binaria : Tiene o no satelites
#V2 : Binaria: Es mayor o no de la media del tamaño
tiene_satelites = BASE_DE_DATOS$satellites>0
tamaño_mayor_mediana = BASE_DE_DATOS$width>median(BASE_DE_DATOS$width)
crabs2 = data.frame(tiene_satelites, tamaño_mayor_mediana)
table1(~tiene_satelites | tamaño_mayor_mediana, data = crabs2)| 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%) |
Con base en los datos de la tabla, se observa que existe una relación entre el tamaño de las cangrejas y la presencia de satélites. Las más grandes tienen una mayor proporción de satélites en comparación con las más pequeñas con una diferencia del 30%. Esto significa que el tamaño si influye en la probabilidad de tener satélites. Cabe recalcar que, la tendencia del peso y la cantidad de satélites, es positiva, pero hay excepciones, donde no siempre las más pesadas tienen más satélites, posiblemente hay otros factores que influyen.
Los resultados del análisis de los cangrejos ermitaños indican que las hembras rodeadas por satélites representan el 64.2% de la muestra, lo que confirma que la mayoría de las hembras tienen machos a su alrededor, posiblemente como parte de una estrategia reproductiva. El peso y el tamaño de las hembras son factores clave, ya que las hembras más grandes y pesadas tienen una mayor probabilidad de tener satélites, aunque la relación no es determinista. Además, la calidad de las espinas y el color de las hembras también influyen en la cantidad de satélites, pero estos factores no resultan ser tan determinantes como el peso o el tamaño, lo que sugiere que la atracción de machos depende de una combinación de características físicas.
En cuanto a las características específicas, se observó que las hembras con espinas en buen estado y colores más claros tienen una mayor probabilidad de tener satélites, pero la diferencia no es tan pronunciada. Aunque el color puede influir en la presencia de satélites, no sigue una relación progresiva en la que a mayor oscuridad del color se incrementa la cantidad de machos. En resumen, los resultados sugieren que factores como el tamaño, peso y color juegan un papel importante en la atracción de machos, pero la interacción entre estos factores debe ser considerada en conjunto para entender completamente el comportamiento reproductivo de los cangrejos ermitaños.