---
output:
html_document:
code_folding: hide
---
```{r block2, message=FALSE, fig.width=fig.1.width, fig.height=fig.1.height, dev='svg'}
library(GGally)
data <- INPUTDATAFRAME
gg_3<-ggpairs(data,mapping=aes(color=color.by),
columns=c(columns.show),
diag=list(continuous=wrap(ggally_densityDiag,alpha=0.7)),
legend=c(2,2))
for(i in 1:gg_3$nrow){
for(j in 1:gg_3$ncol){
gg_3[i,j]<-gg_3[i,j]+scale_fill_brewer(palette="Set2")+scale_color_brewer(palette="Set2")
}
}
print(gg_3)