#Spheniscidae

Los pinguinos son aves no voladoras que suelen vivir a temperaturas bajas, mayormente en el hemisferio sur. Soportan desde -20ºC hasta los 20ºC, llegando a vivir en el antartico y en ocasiones cerca al ecuador, asegurandose siempre de vivir en zonas cercanas a fuentes de agua fría para la cacería y el mantenimiento de la temperatura corporal. A continuación, estudiaremos mediante el analisis de un archivos shapefile la distribución de la especie según el clima en determinado país, en este caso, Argentina.

global=shapefile("Downloads/Shapefile/g2008_0.shp")
global
## class       : SpatialPolygonsDataFrame 
## features    : 534 
## extent      : -180, 180, -55.72333, 83.62742  (xmin, xmax, ymin, ymax)
## crs         : +proj=longlat +datum=WGS84 +no_defs 
## variables   : 11
## names       :             AREA,       PERIMETER, G2008_0_, G2008_0_ID, ADM0_CODE,   ADM0_NAME, LAST_UPDAT, CONTINENT,                    REGION, STR_YEAR0, EXP_YEAR0 
## min values  : 0.10069705556089,   1.40729013556,    10019,          1,         1, Afghanistan,   20050415,    Africa, Australia and New Zealand,         0,         0 
## max values  :  2825.6935742546, 969.26620675757,     9999,       9998,        98,    Zimbabwe,   20081118,   Oceania,            Western Europe,      2006,         0
pos=which(global$ADM0_NAME=="Argentina")
pos
## [1] 501 526
plot(global[501,])

#TEMPERATURA DE ARGENTINA A continuación, la temperatura de argentina durante el año.

pos=which(global$ADM0_NAME=="Argentina")
arg=global[pos,]
plot(arg)

temp_mapas=list.files("Desktop/wc2/",full.names = TRUE)
temp_global=stack(temp_mapas)
temp_arg=crop(temp_global,arg)
temp_arg=mask(temp_arg,arg)
plot(temp_arg)

En la gráfica anterior se visualizan las temperaturas de Argentina durante todo el año. Los pinguinos se ubican en la zona de la patagonia principalmente, y como se muestra en los mapas las temperaturas en esta zona son menores a comparación del resto del país.

#Mapa de aptitud de Spheniscidae

temp_arg_habi=temp_arg>-20&temp_arg<18
apti_arg=sum(temp_arg_habi)
plot(apti_arg)
plot(arg,add=TRUE)

Según la gráfica resultante, una gran parte del país es apta para la supervivencia de estos pinguinos, sin embargo, por razones de ecología más alla de la temperatura, se encuentran mayormente en las costas, cerca de las fuente de agua para suplir sus necesidades alimenticias.

#Porcentaje de areas aptas

mapas=list(temp_arg)
temp_all=stack(temp_arg)

distri_all=temp_all>-20&temp_all<18

aptitud_clima=sum(distri_all)
table(aptitud_clima[]==12)
## 
## FALSE  TRUE 
##  7045  2954

Según los datos arrojados por el análisis, el área total de distribución de la especie es de 20.747.525km^2, que representa un area mucho mayor a la esperada. Esto se puede deber a la falta de criterios de evaluación en la distribución, pues medir solo mediante temperatura abre paso a una precisión muy poco acertada.