blob: 68271d901466e3b48abc0d0bc997507e57503997 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
#!/usr/bin/Rscript
library(ggplot2)
library(grid)
library(gridExtra)
data <- read.csv("data/test_log10.csv",header=T)
data$SMILES <- reorder(data$SMILES,data$LOAEL)
img = ggplot(data,aes(SMILES,LOAEL,ymin = min(LOAEL), ymax=max(LOAEL),color=Dataset)) + geom_point()
img <- img + ylab('-log(LOAEL mg/kg_bw/day)') + xlab('Compound') + theme(axis.text.x = element_blank()) + theme(legend.title=element_blank())
img = img + scale_fill_discrete(breaks=c("Mazzatorta", "Both", "Swiss Federal Office"))
ggsave(file='figures/dataset-variability.pdf', plot=img, width=12,height=8)
|