diff options
author | Christoph Helma <helma@in-silico.ch> | 2017-04-13 19:18:13 +0200 |
---|---|---|
committer | Christoph Helma <helma@in-silico.ch> | 2017-04-13 19:18:13 +0200 |
commit | 6f527daf4875ce2ed864e8a6f4f30e44b4370561 (patch) | |
tree | 3b94fb789e4a1e33926f9803506ff756a8b63fd4 /scripts | |
parent | c2c5a94d6dccaf59f30a6415d5b2d20e652b50b4 (diff) |
figure legends improved
Diffstat (limited to 'scripts')
-rwxr-xr-x | scripts/crossvalidation-plots.R | 2 | ||||
-rwxr-xr-x | scripts/prediction-test-correlation-plot.R | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/scripts/crossvalidation-plots.R b/scripts/crossvalidation-plots.R index 8a4f76e..de713f1 100755 --- a/scripts/crossvalidation-plots.R +++ b/scripts/crossvalidation-plots.R @@ -4,5 +4,5 @@ library(ggplot2) nr = commandArgs(TRUE)[1] data = read.csv(paste("data/training_log10-cv-",nr,".csv",sep="")) -img = qplot(LOAEL_predicted,LOAEL_measured_median,data=data,xlab="-log10(LOAEL predicted)",ylab="-log10(LOAEL measured median)",colour=Warnings) + geom_point() + geom_abline(intercept=0.0) + xlim(-2,4.5) + ylim(-2,4.5) + scale_color_manual(values=c("#00BFC4", "#F8766D")) +img = qplot(LOAEL_predicted,LOAEL_measured_median,data=data,xlab="-log10(LOAEL predicted)",ylab="-log10(LOAEL measured median)",colour=Warnings) + geom_point() + geom_abline(intercept=0.0) + xlim(-2,4.5) + ylim(-2,4.5) + scale_color_manual(name = "Applicability domain",values=c("#00BFC4", "#F8766D"), breaks=c(TRUE,FALSE), labels=c("distant","close")) ggsave(file=paste('figures/crossvalidation',nr,'.pdf',sep=""), plot=img,width=12, height=8) diff --git a/scripts/prediction-test-correlation-plot.R b/scripts/prediction-test-correlation-plot.R index 648e864..eaa72c9 100755 --- a/scripts/prediction-test-correlation-plot.R +++ b/scripts/prediction-test-correlation-plot.R @@ -4,6 +4,6 @@ library(ggplot2) training = read.csv("data/training-test-predictions.csv",header=T) -img = qplot(LOAEL_predicted,LOAEL_measured_median,data=training,xlab="-log10(LOAEL predicted)",ylab="-log10(LOAEL measured median)", colour = Warnings) + geom_point() + geom_abline(intercept=0.0) + xlim(-1,4) + ylim(-1,4) + scale_color_manual(values=c("#00BFC4", "#F8766D")) +img = qplot(LOAEL_predicted,LOAEL_measured_median,data=training,xlab="-log10(LOAEL predicted)",ylab="-log10(LOAEL measured median)", colour = Warnings) + geom_point() + geom_abline(intercept=0.0) + xlim(-1,4) + ylim(-1,4) + scale_color_manual(name = "Applicability domain",values=c("#00BFC4", "#F8766D"), breaks=c(TRUE,FALSE), labels=c("distant","close")) ggsave(file='figures/prediction-test-correlation.pdf', plot=img,width=12, height=8) |