Find best place on plot for placing legend
This function tries to find the best location for placing a legend of a bivariate plot, ie scatter-plot.
All 4 corners of the data to plot are inspected for the least occupation by data plotted while displaying the content of sampleGrp
.
Alternatively, by setting the argument showLegend
the user-defined legend will be returned
checkForLegLoc( matr, sampleGrp = NULL, showLegend = TRUE, suplSpace = 4, testCorner = 1:4, silent = TRUE, callFrom = NULL )
matr |
(matrix, list or data.frame) main data of plot |
sampleGrp |
(character or factor) with this option the text to be displayed in the legend may be taken into consideration for its length |
showLegend |
(logical or character) decide if |
suplSpace |
(numeric) allows to consider extra room taken in legend by symbol and surrounding space, interpreted as n additional characters |
testCorner |
(integer) which corners should be considered (1=left-top, 2=right-top, right-bottom, left-bottom) |
silent |
(logical) suppress messages |
callFrom |
(character) allow easier tracking of message(s) produced |
list with $showL indicating if legend is desired and $loc for the proposition of the best location, $nConflicts gives the counts of conflicts
dat1 <- matrix(c(1:5,1,1:5,5), ncol=2) grp <- c("abc","efghijk") (legLoc <- checkForLegLoc(dat1, grp)) plot(dat1, cex=3) legend(legLoc$loc, legend=grp, text.col=2:3, pch=1, cex=0.8)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.