---
title: "Explorando el dataset Flor Iris"
author: "Valeria Belén Cerpa Salas"
output:
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    theme: spacelab
    source_code: embed
    social: ['facebook','twitter','linkedin','github']
---

```{r setup,include=FALSE}
# Insertando las librerías

library(flexdashboard)

library(ggplot2)

library(rbokeh)

library(lattice)

library(ggpubr)
```



Visualizaciones N°1
=======================================================================

Row
-----------------------------------------------------------------------


### **Gráfico de caja y bigote de la longitud de sépalos de las especies**

```{r barplot,fig.align='center'}
my_comparisons <- list(
  c("setosa", "versicolor"), c("versicolor", "virginica"),
  c("setosa", "virginica")
)
# Creando el diagrama de cajas. Definiendo los colores por grupos, según cada especie.

# Añadiendo los puntos y cambiando la forma de los grupos
ggboxplot(
  iris, x = "Species", y = "Sepal.Length",
  color = "Species", palette = c("#00AFBB", "#E7B800", "#FC4E07"),
  add = "jitter"
  )+
  stat_compare_means(comparisons = my_comparisons, method = "t.test")
```


### **Gráfico de Dispersión de la longitud de sépalos y pétalos**

```{r ggplot2,fig.align='center'}
# Creando gráfico de dispersión por cada especie

qplot(Sepal.Length, Petal.Length, data = iris, color = Species, size = Petal.Width)
```


Column {data-width=380}
-----------------------------------------------------------------------

### **Histograma de la longitud de sépalos**

```{r pie_chart_11,fig.align='center'}
# Trazando el histograma para las 3 especies

qplot(Sepal.Length, data=iris, geom='histogram', fill=Species, alpha=I(1/2))
```

Column {data-width=380}
-----------------------------------------------------------------------

### **Gráfico de caja y bigote de la longitud de sépalos**

```{r pie_chart_10,fig.align='center'}
# Creando gráfico de dispersión de la anchura de sépalos vs su longitud

boxplot(Sepal.Length~Species,
        data=iris,
        main='Sepal Length by Species',
        xlab='Species',
        ylab='Sepal Length',
        col='steelblue',
        border='black')
```




Visualizaciones N°2
=======================================================================

Row
-----------------------------------------------------------------------

### **Gráfico de Dispersión de longitud de pétalos y sépalos**

```{r}
# Se plotean los puntos para la variable longitud

xyplot(
  Sepal.Length ~ Petal.Length, group = Species, 
  data = iris, auto.key = TRUE, pch = 19, cex = 0.5
  )
```


### **Gráfico de Dispersión de la longitud y anchura de sépalos**

```{r}
# Los puntos se colorean según los grupos
# Se utiliza la función scale_color_manual()

ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width))+
  geom_point(aes(color = Species, shape = Species))+
  scale_color_manual(values = c("#00AFBB", "#E7B800", "#FC4E07"))
```

Row
-----------------------------------------------------------------------

### **Gráfico de Densidad de la longitud de sépalos**

```{r}
# Se plotea el gráfico de dispersión con las lineas de media y límites

ggdensity(iris, x = "Sepal.Length",
   add = "mean", rug = TRUE,             # Añadiendo una línea media y límites al gráfico
   color = "Species", fill = "Species",  # Pintando cada una de las especies de flores
   palette = "jco")                      # Usando la paleta de colores jco
```

### **Histograma de la longitud de sépalos de cada especie**

```{r}
# Ploteo de histograma que muestra la longitud de los sépalos

hist(iris$Sepal.Length,
     col='steelblue',
     main='Histogram',
     xlab='Length',
     ylab='Frequency')
```