```{r, echo = FALSE, results='asis', warning=FALSE}

library(table1)
library(dplyr)
library(htmltools)
library(knitr)
var <- levels(iris$Species)

vect_table <- vector()

for (i in var) {

  df <- iris %>% filter(Species == i )

  tb <- table1(~., data = df)

  vect_table <- append(vect_table, tb)


}

for (j in 1: length(vect_table)) {

  print(kable(vect_table[j]), caption = paste("Specie : ",var[j] ))



}

```