---
output:
html_document:
code_folding: hide
---
```{r block2, message=FALSE, fig.width=8, fig.height=8, dev='svg'}
library(nVennR)
sas <- subset(exampledf, SAS == "Y")$Employee
python <- subset(exampledf, Python == "Y")$Employee
rr <- subset(exampledf, R == "Y")$Employee
plot <- plotVenn(list(SAS=sas, PYTHON=python, R=rr), nCycles = 2000)
showSVG(plot, fontScale=2.5, opacity=0.2)