diff options
author | Christoph Helma <helma@in-silico.ch> | 2018-03-15 16:20:17 +0100 |
---|---|---|
committer | Christoph Helma <helma@in-silico.ch> | 2018-03-15 16:20:17 +0100 |
commit | 41190556d2c02d8ebf3ac01edda3f7f8e41bad9d (patch) | |
tree | 47f1e5776fd7725c6985f5f0264606e3cc2765e8 /scripts/test-prediction-plot.R | |
parent | 1aa8093ea8f182ec7cc9aae626f494a1e14c8c84 (diff) |
first revision
Diffstat (limited to 'scripts/test-prediction-plot.R')
-rwxr-xr-x | scripts/test-prediction-plot.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/test-prediction-plot.R b/scripts/test-prediction-plot.R index dddf91a..ddd908b 100755 --- a/scripts/test-prediction-plot.R +++ b/scripts/test-prediction-plot.R @@ -6,6 +6,6 @@ data = read.csv("data/predictions-measurements.csv",header=T) data$SMILES <- reorder(data$SMILES,data$LOAEL) img <- ggplot(data, aes(SMILES,LOAEL,ymin = min(LOAEL), ymax=max(LOAEL),color=Origin)) img <- img + ylab('-log(LOAEL mg/kg_bw/day)') + xlab('Compound') + theme(axis.text.x = element_blank()) + theme(legend.title=element_blank()) -img <- img + geom_point() + scale_color_manual(values=c("#619CFF", "#00BFC4", "#F8766D")) +img <- img + geom_point() + scale_color_manual(values=c("#000000", "#00BFC4", "#F8766D")) ggsave(file='figures/test-prediction.pdf', plot=img,width=12, height=8) |