---
output:
html_document:
code_folding: hide
---
```{r block2, warning=FALSE, message=FALSE, fig.width=8, fig.height=6.5, dev='svg'}
library(phenotypicForest)
library(ggplot2)
inputdata <- INPUTDATAFRAME
p <- polarHistogram(inputdata, familyLabel = family.label)
p <- p + scale_fill_brewer(palette = "fill.palette", type = "qual")
print(p)