---
output:
html_document:
code_folding: hide
---
```{r block2, warning=FALSE, message=FALSE, fig.width=8, fig.height=6.5, dev='svg'}
library(gsoap)
data("pxgenes")
# Reduce to top 100 instances
pxgenes = head(pxgenes[order(pxgenes$FDR),], 100)
# Create layout using default parametrization
layout = gsoap_layout(pxgenes, 'Members', 'p.value')
# Order instances by their significance
layout = layout[order(layout$significance, decreasing = TRUE),]
# Create gsoap plot
plot <- gsoap_plot(layout, as.color = 'cluster', as.alpha = 'significance', which.label = 1:5)
print(plot)