---
output: slidy_presentation
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, message=FALSE, warning=FALSE)
```

\  

<center>
<h1> Estudio del anidamiento de Caretta caretta en Boavista </h1>
</center>


```{r, fig.align='center', out.width="600px"}
library(knitr)
include_graphics("Tortuga-boba-Caretta-caretta.jpg")
```

\  

<center>
<h3> Autores: Yo mismo y mis circunstancias </h3>
</center>



## Objetivos 

\  

Describir los hábitos de anidamiento de la tortuga _Caretta caretta_ en la isla de Boa Vista en el archipiélago de Cabo Verde, en particular a lo que se refiere a:

  * Distribución de nidos por playa.
  * Localización de nidos en cada playa (distancia a la orilla).
  * Número de huevos por nido.
  * Éxito reproductivo (crías vivas vs. tamaño de la puesta).
  * Asociación entre las distintas variables.
  
  

## Material y métodos

Se realizó una campaña anual entre 1999 y 2004 en la isla de Boa Vista (Cabo Verde). Durante cada campaña se observaron los nidos excavados en cada una de cuatro playas de la isla (Ervatao, Ponta Cosme, Calheta y Porto Ferreiro). Para cada nido se midieron las siguientes variables:

* Variables biométricas del ejemplar que construyó el nido: __LCC__ (Longitud Curva del Caparazón, en cm.), __ACC__ (Anchura Curva del Caparazón, en cm) y __Peso__. 

* Tamaño de la puesta (número de huevos depositados en el nido).

* Distancia (en metros) medida perpendicularmente desde la linea de marea alta hasta la posición del nido. 

* Profundidad del nido (cm).



## ¿Difiere entre playas la presencia/ausencia de cangrejos?

```{r}
# Carga de librerías y lectura de datos 
library(tidyverse)
library(janitor)
library(flextable)
tortugas <- read_csv2("tortugas.csv")
```

```{r fig.width=8,fig.height=5, fig.align='center'}
# Gráfica
tortugas %>% tabyl(cangrejos,playa,show_na = FALSE) %>% 
  adorn_percentages("col") %>% 
  pivot_longer(cols =-1, names_to = "playa", values_to = "proporcion") %>% 
  mutate(porcentaje=100*proporcion) %>% 
  mutate(cangrejos=factor(cangrejos,levels=c(0,1),labels=c("No","Si"))) %>% 
  ggplot(aes(x=playa, y=porcentaje, fill=cangrejos)) +
  geom_col(position = "dodge") +
  geom_text(aes(label=sprintf("%.2f%%",porcentaje)), 
            position=position_dodge(width=0.9),
            vjust=1.5, col="white", fontface="bold") +
  labs(fill="Presencia/Ausencia\n de Cangrejos")
```

```{r}
miTabla <- tortugas %>% tabyl(cangrejos,playa,show_na = FALSE) %>%
  mutate(cangrejos=factor(cangrejos,levels=c(0,1),labels=c("No","Si"))) %>% 
  adorn_totals("col") %>% 
  adorn_percentages("col") %>% 
  adorn_pct_formatting() %>% 
  flextable() %>% fontsize(size = 22, part = "all") %>%
  autofit() %>% 
  htmltools_value() # Imprescindible para que se muestre en html

miTabla
```


\