diff options
| author | Christoph Helma <helma@in-silico.ch> | 2017-12-20 16:16:40 +0100 |
|---|---|---|
| committer | Christoph Helma <helma@in-silico.ch> | 2017-12-20 16:16:40 +0100 |
| commit | 0983a03eaf0df05b464a4f537947692825560908 (patch) | |
| tree | e66e24d11f6636673f6ff909c1a5441f9a9fb949 /scripts/median-correlation-plot.R | |
| parent | a5a9144dd7eb4cb9455c5674325ce6e0cc17af61 (diff) | |
database names in figures
Diffstat (limited to 'scripts/median-correlation-plot.R')
| -rwxr-xr-x | scripts/median-correlation-plot.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/median-correlation-plot.R b/scripts/median-correlation-plot.R index f4b28c2..3ea5ddd 100755 --- a/scripts/median-correlation-plot.R +++ b/scripts/median-correlation-plot.R @@ -3,6 +3,6 @@ library(ggplot2) experimental <- read.csv("data/median-correlation.csv",header=T) -img = qplot(mazzatorta,swiss,data=experimental,xlab="-log10(LOAEL Mazzatorta median)",ylab="-log10(LOAEL Swiss Federal Office median)") + geom_point() + geom_abline(intercept=0.0) + xlim(-1,4) + ylim(-1,4) +img = qplot(mazzatorta,swiss,data=experimental,xlab="-log10(LOAEL Nestle median)",ylab="-log10(LOAEL FSVO median)") + geom_point() + geom_abline(intercept=0.0) + xlim(-1,4) + ylim(-1,4) ggsave(file='figures/median-correlation.pdf', plot=img,width=12, height=8) |