From c8c7112c5d2ed4f1ddcbd9179b52b8e3d6d76f8e Mon Sep 17 00:00:00 2001 From: ranke Date: Mon, 10 Oct 2005 11:22:01 +0000 Subject: Change the position of the legend in the checkplate and checksubstance functions to topleft instead of topright. git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@40 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc --- R/drfit.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'R') diff --git a/R/drfit.R b/R/drfit.R index fe76f86..45343e2 100644 --- a/R/drfit.R +++ b/R/drfit.R @@ -523,7 +523,7 @@ checkplate <- function(plate,db="cytotox") points(log10(drdatalist[[i]]$conc),drdatalist[[i]][[responsetype]],col=i); } - legend("topright",substances, pch=1, col=1:length(substances), inset=0.05) + legend("topleft",substances, pch=1, col=1:length(substances), inset=0.05) title(main=paste("Plate ",plate," - ",levels(platedata$experimentator)," - ",levels(platedata$type))) } } @@ -579,7 +579,7 @@ checksubstance <- function(substance,db="cytotox",experimentator="%",celltype="% points(log10(platelist[[i]]$conc),platelist[[i]][[responsetype]],col=i); } - legend("topright", plates, pch=1, col=1:length(plates), inset=0.05) + legend("topleft", plates, pch=1, col=1:length(plates), inset=0.05) title(main=paste(substance," - ",levels(data$experimentator)," - ",levels(data$type))) cat("Substanz ",substance,"\n", -- cgit v1.2.1