/
graficos.Rmd
72 lines (39 loc) · 1.03 KB
/
graficos.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
---
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")
```