- Versión: 2021-2022
- Asignatura (grado): Ecología (Ciencias ambientales). Curso 2021-2022
- Autor: Curro Bonet-García (fjbonet@uco.es)
- Duración: 3 horas.
Esta práctica tiene los siguientes objetivos:
Disciplinares:
Instrumentales:
Esta sesión práctica está muy relacionada con el Tema 4 de teoría (Comunidades. El concepto de diversidad). En concreto, usaremos los conocimientos adquiridos en esa sesión para construir un mapa de biodiversidad de Sierra Nevada. Esto quiere decir, que debes de repasar dichos conceptos con objeto de que el aprendizaje de esta práctica sea realmente efectivo.
Para cuantificar la diversidad biológica se pueden utilizar muchos índices. En nuestro caso usaremos el denominado índice de Shannon-Wiever, que es uno de los más robustos y comunmente utilizados. Para su cálculo se necesita la siguiente información:
La siguiente presentación muestra los conceptos básicos necesarios para hacer la práctica. También puedes verla aquí y descargarla aquí para Windows y aquí para Mac. Y aquí la tienes en formato pdf.
Como se puede observar en la presentación anterior, para calcular la diversidad de una comunidad, necesitamos dos fuentes de información:


A partir de estas dos fuentes de datos obtendremos el índice de Shannon para cada una de las comunidades de Sierra Nevada. Es decir, usaremos los datos de presencia de cada especie que hay en cada una de las comunidades para calcular su índice de Shannon. En la siguiente figura puedes ver la distribución de ocurrencias de especies en unas cuantas comunidades.

Para ello seguiremos los pasos que se muestran en el siguiente flujo de trabajo (se ve un poco pequeño, pero si vas a la parte de abajo encontrarás una herramienta lupa para aumentar y otra para desplazarte). También puedes descargar el flujo de trabajo aquí (se abre con esta aplicación).
La ejecución del anterior flujo de trabajo se realiza usando R. R es un lenguaje de programación muy frecuentemente utilizado en ámbitos científicos. Se usa para hacer análisis de datos, dibujar gráficas, mapas, etc. En esta práctica nos familiarizaremos un poco con este lenguaje. Concretamente usaremos un interfaz gráfico llamado RStudio. Aquí tienes un breve vídeo en el que cuento cómo instalar QGIS, R y Rstudio.
El flujo de trabajo anterior se realiza ejecutando secuencialmente las líneas del siguiente bloque de código:
x#Este script calcula el Indice Shannon de Sierra Nevada# usando la información existente en GBIF y un mapa de vegetación a escala 1:10.000
## Establece directorio de trabajo. Recuerda cambiarlo por el tuyo.setwd("/Users/fjbonet_trabajo/Google_Drive/4_docencia/eco_ccaa_uco/actos_docentes/P_shannon_ecologia_ccaa/preparacion")
## Carga paquetes que necesitamosinstall.packages("rgdal")library(rgdal)
install.packages("sqldf")library(sqldf)
## Importa la capa con las ocurrencias de GBIFocurrencias<-readOGR(dsn=".", layer="ocurrencias_sierra_nevada_23030", verbose = FALSE)
## Importa la capa con la delimitación de las comunidades ecológicas.comunidades<-readOGR(dsn=".",layer="vegetacion_snevada_23030", verbose = FALSE)
## Unión espacial: asigna a cada punto el código de la comunidad en la que se encuentra.ocurrencias$id_com <- over(ocurrencias, comunidades)$OBJECTID
## Extraer la "tabla de atributos" para hacer los cálculos del índice de Shannonbio<-ocurrencias@data
## Calcular el índice de Shannon
### Calcular el número de individuos por especie y por comunidad (num_ind_sp_com)T_num_ind_sp_com<-sqldf("SELECT id_com, scientific, count(scientific) num_ind_sp_com FROM bio GROUP BY id_com, scientific")
### Calcular el número total de individuos por comunidad.T_num_ind_com<-sqldf("SELECT id_com, sum(num_ind_sp_com) num_ind_com FROM T_num_ind_sp_com GROUP BY id_com")
### Fusionar las tablas anteriores para calcular PiT_num_ind_sp_com_mas_num_ind_com<-sqldf("SELECT id_com, scientific, num_ind_sp_com, num_ind_com FROM T_num_ind_sp_com LEFT JOIN T_num_ind_com USING(id_com)")
### Calcular pi por especie y por comunidadT_num_ind_sp_com_mas_num_ind_com<-sqldf("SELECT id_com, scientific, num_ind_sp_com, num_ind_com, (num_ind_sp_com*1.0/num_ind_com) pi FROM T_num_ind_sp_com_mas_num_ind_com")
### Calcular el log2 pi por especie y por comunidad (log = ln). Log2(pi)=log(pi)/log(2)T_num_ind_sp_com_mas_num_ind_com<-sqldf("SELECT id_com, scientific, num_ind_sp_com, num_ind_com, pi, (log(pi)/log(2))*pi lnpi_pi FROM T_num_ind_sp_com_mas_num_ind_com")
### Calcular H por comunidadT_Shannon<-sqldf("SELECT id_com, sum(lnpi_pi)*-1 H FROM T_num_ind_sp_com_mas_num_ind_com GROUP BY id_com")
## Fusionar la tabla que tiene el índice de Shannon con la distribución de comunidades.comunidades<-merge(x = comunidades, y = T_Shannon, by.x = "OBJECTID", by.y = "id_com")
## Exportar la capa resultante a un shapefile.writeOGR(comunidades, dsn=".", layer="Shannon_com_sierra_nevada", driver="ESRI Shapefile", overwrite=TRUE )
La siguiente presentación muestra paso a paso el flujo de trabajo. También puedes verla aquí y descargarla aquí para Windows y aquí para Mac. Y aquí la tienes en formato pdf.
El siguiente mapa muestra el resultado obtenido en esta práctica. Se trata de un fichero de formas vectorial en el que se ha asignado el valor del índice Shannon a cada polígono del mapa de vegetación inicial. Aquí se puede descargar dicho fichero de formas.

En el mapa resultante se pueden identificar varios patrones de distribución espacial de la biodiversidad en Sierra Nevada. Durante la práctica reflexionamos sobre dichos patrones:
¿Cómo cambia la diversidad al aumentar la altitud?
¿A qué se puede deber dicho patrón?
¿Crees que se repetiría el mismo patrón en otras montañas de la Tierra?
¿hay algún patrón de cambio de diversidad en dirección este-oeste?
En caso afirmativo, ¿a qué puede deberse?
Aquí puedes ver los resultados que, por ahora, arroja esta encuesta sobre grado de satisfacción de los objetivos planteados. Por favor, rellénala si no lo has hecho ya. Se tardan 10 segundos y sus resultados son de gran utilidad para mejorar los contenidos cada año. Gracias.


Además, un estudiante dejó el siguiente comentario en el apartado de "sugerencias":