diff options
Diffstat (limited to 'scripts/dataset-variability.R')
| -rwxr-xr-x | scripts/dataset-variability.R | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/scripts/dataset-variability.R b/scripts/dataset-variability.R index 68271d9..2fa7327 100755 --- a/scripts/dataset-variability.R +++ b/scripts/dataset-variability.R @@ -3,10 +3,9 @@ library(ggplot2) library(grid) library(gridExtra) -data <- read.csv("data/test_log10.csv",header=T) +data <- read.csv("data/test_log10_database_fix.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) |