graficos.Rmd

---
title: "Interactive plots"
output:
  distill::distill_article:
    toc: true
    toc_depth: 3

---



```{r setup, include=FALSE}

source("readdata.R", local = knitr::knit_global())
```



### Strains by species and toxin type

```{r echo=FALSE, layout="l-body-outset"}


fgsc %>% 
  plot_ly(x = ~FGSC, 
         color=~TRI_genotype)%>% 
  layout(barmode = 'stack',
         margin=list(l=40,r=40,t=40,b=120)) %>% 
  highlight(off = "plotly_deselect")    

 #add_trace(x = ~FGSC)
```


### Strains by year and toxin type

```{r echo=FALSE, layout="l-body-outset"}
library(janitor)

fgsc %>% 
  plot_ly(x = ~Year, 
         color=~TRI_genotype) %>% 
  layout(barmode = 'stack',
         margin=list(l=40,r=40,t=40,b=140)) %>% 
  highlight(off = "plotly_deselect")    

  
  


```

### Toxin types by country


```{r echo=FALSE, layout="l-body-outset"}

fgsc %>% 
  plot_ly(x = ~Country, 
         color=~TRI_genotype) %>% 
  layout(barmode = 'stack',
         margin=list(l=40,r=40,t=40,b=140)) %>% 
  highlight(off = "plotly_deselect")    

  


```