search for: intersp

...re right, legend cannot do it. I have now created my own legend function where I changed only one line and now it works the way I want it to. But I'm not sure if that might not have other side effects. I have the impression that the legend and the title start at the same y-position (try y.intersp=0). Only if y.intersp is big enough, then it leads to a non-overlap of title and legend. Thanks a lot Sigbert Am 05.03.23 um 16:20 schrieb Bert Gunter: > Don't think you can do that. > But maybe someone else will show that I'm wrong. > > -- Bert > > On Sat, Mar 4, 20...

What about plot(c(0,1), c(0,1), type="n") legend("top", legend=c("", "a", ""), col=c("blue", "red", "green"), title="test", y.intersp=c(1,-0.4), lwd=1) (in recent versions of R) Best, Uwe On 06.03.2023 11:34, Sigbert Klinke wrote: > Hi, > > I think you are right, legend cannot do it. I have now created my own > legend function where I changed only one line and now it works the way I > want it to. But...

Set the legend position explicitly with x and y values and add xpd = TRUE to the legend call to clip the plot to the figure region and not the plot region (the default). Something like this (you may have to fool around with y.intersp, etc. to allow enough space between the legend lines): plot(c(0,1), c(0,1), type="n") legend(x = .4, y = 1.25, legend=c("", "", "a"), col=c("blue", "red", "green"), xpd = TRUE, lty = 1, y.intersp= .75, title = 'test')...

Hi, my MWE is not working as expected: plot(c(0,1), c(0,1), type="n") legend("top", legend=c("", "", "a"), col=c("blue", "red", "green"), title="test", y.intersp=0.2, lwd=1) The lines are not below the title. I want (nearby) lines as in the plot, but below the title. Is there a way to achieve this? Thanks Sigbert

..."Eklektor","Thermometer","Kreuzfalle"), col=c("#000000","#808080","#707070","#A0A0A0","#404040"), merge=T, pch=c( 1,-1, 5,20, 4), lty=c(-1, 1,-1,-1,-1), xjust=1, yjust=ifelse(ydiff>=0,-1,1), y.intersp=0.8, cex=0.6) and looks like http://www.gwdg.de/~ksueber/beispiel.jpg or +-------------------------+ |O stehender Stamm | |-- Windwurf | |# Eklektor | and so, but it should look something like +----------------------+ | O stehender Stamm |...

...e line in appropriate color for each row in the legend (i was using exactly the same legend statement and same plot function). My legend statement is: legend(x=(daysold+2), y=0.95*maxy.j, legend=leg.txt, col = leg.col, lty=1,angle = NULL, density = NULL, bty = "o", xjust = 0, yjust = 1, x.intersp = 1, y.intersp = 1, ncol = 1, horiz = FALSE) If i write the statement as follows: legend(x=(daysold+2), y=0.95*maxy.j, legend=leg.txt, col = leg.col, lty=1,angle = NULL, density = NULL, bty = "o", xjust = 0, yjust = 1, x.intersp = 1, y.intersp = 1, ncol = 1, horiz = FALSE, merge = TRUE)...

...e = NULL, density = NULL, bty = "o", - bg = par("bg"), pt.bg = NA, cex = 1, pt.cex = cex, + angle = NULL, density = NULL, bty = "o", bg = par("bg"), + pt.bg = NA, cex = 1, pt.cex = cex, pt.lwd = par("lwd"), xjust = 0, yjust = 1, x.intersp = 1, y.intersp = 1, adj = c(0, 0.5), text.width = NULL, text.col = par("col"), merge = do.lines && has.pch, trace = FALSE, @@ -178,8 +178,8 @@ if(trace) catn(" points2(", x1,",", y1,", pch=", pch[ok],", ...)&quo...

Hello everybody, Is it possible to coax legend() into displaying more than one simbol per line in legend? I have a graph like the one attached to this mail; I would like to reorganize the legend in such a way that the duplicate text would be omitted, i.e., the first line would read <square> <triangledown> "increasing frequency" and the second one would read <circle>

...nd legend.R: *** legend2.txt Wed May 31 14:45:18 2000 --- legend2.R Wed May 31 15:02:22 2000 *************** *** 1,7 **** ! function (x, y, legend, fill, col = "black", lty, lwd, pch, bty = "o", ! bg = par("bg"), cex = 1, ! xjust = 0, yjust = 1, x.intersp = 1, y.intersp = 1, adj = 0, ! text.width = NULL, merge = do.lines && has.pch, trace = FALSE) { if(is.list(x)) { if(!missing(y)) { # the 2nd arg maybe really is `legend' --- 1,9 ---- ! function (x, y, legend, fill, col = "black", l...

...t;red")) require(fields) image.plot(volcano, col = Satellite.Palette (500), legend.lab="Scale") contour(volcano, levels = seq(90, 200, by = 5), add = TRUE) However, I am using the basic plot function. So far I have figured out how to remove any space between the colors using the y.intersp call in legend(). Now I need to somehow plot the legend so that it 1) fits on the plotting region, 2) has fewer labels, and 3) doesn't have black lines between each color. The example I am trying to get to work is: Sat.Pal<-Satellite.Palette (101) x<-rnorm(100, mean = 50, sd = 50) y&lt...

Hi, are there any plans to add a colorbar legend to image()? Or such a possibility already implemented which I just haven't discovered yet. Anyway, I will be willing to spent some time on the implementation if there isn't anyone working on that already. Thanks Thomas -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-devel mailing list -- Read

I am creating a CDF plot function more user-friendly than any default r function. Depending upon the bimodality of the data (it is often bimodal), or any other strange data trends, the points can end up gathering in just about any corner of the plot. So, when I add a legend, whether I choose to add it in the bottom right, top left, or wherever, it will sometimes end up putting the legend right

...lease help. threshold <- 0.5 plot(NA, xlab="", ylab="", main="", axes=F, xlim=c(0,1), ylim=c(0,1), xaxs="i", yaxs="i") legend(x=0, y=1, fill=c("orange", "white", "green", "gray90"), cex=0.8, pt.cex=1.8, x.intersp=0.6, bg = "white", legend=c(expression("Up (" >= threshold ")"), "Normal", "Down", "NA"), bty = "n")

i'd like to plot a legend in my diagram. The diagram will be included in a TikZ LaTeX document later. I tried the legend() function, but - it can not find a good place it self where the legend fits and playing around with coordinates and scaling consumes a lot time - standard settings for the text need adjustment (linespacing is quite large and so on) Is there an alternative to

...t;10","1", "2", "3","4","5","6","7","8","9","10")) legend("topright",c("Total","Young secondary forest","Old secondary forest"),cex=0.9,pt.cex=1,y.intersp=0.4,pch=15,col=c("black","chartreuse1","chartreuse4")) [[alternative HTML version deleted]]

...an resize it by adding,say, 'cex=0.6' into the legend code; try--- legend("topleft", #inset=-1, legend = do.call("expression", L), bg='white', ncol = 2, pch=c('','','',':',':',':'), x.intersp = 0.4, title="Yay! Thank You!", cex=0.6 ) John

...ot;))) legend("bottomright",legend=leg,col=c(1,2),lwd=3) plot(a,type="s",lwd=3) leg <- c(expression(paste("data1 \n(",rho,"=1)")), expression(paste("data2 \n(",rho,"=0.0)"))) legend("bottomright",legend=leg,col=c(1,2),lwd=3, y.intersp = 2.0,adj=c(0,1.5)) the problem is that lots of extra space appears between the open parenthesis and the rho. what can be done? (i'm running version 2.10.1 (2009-12-14) on fedora 12) Thanks! George Locke

Hi. I have a plot containing a large number of lines. I have placed a legend in the plot, but with so many lines, the legend takes up a lot of space. I have tried to reduce the spacing between the lines using the legend parameter x.intersp=0.7, but this does not compress the legend enough. Is there some way to make the text font size smaller in "legend"? Thanks, RH.

...ght required arguments had to proceed optional argument. What should happen here if I omit fill and col but specify lty=something? legend function (x, y, legend, fill, col = "black", lty, lwd, pch, bty = "o", bg = par("bg"), cex = 1, xjust = 0, yjust = 1, x.intersp = NULL, y.intersp = NULL, text.width = NULL, merge = FALSE) {... Paul Gilbert -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html Send "info", "help", or "[un]...

I am trying to put a legend below some plots as follows: x11() par(mfcol = c(2, 1), mar = c(5.1, 6.1, 4.1, 2.1)) matplot(matrix(1:30,15,2), type="l", lty=1:2) par(mfg = c(2, 1, 2, 1)) legend((par()$usr)[1:2], (par()$usr)[3:4], c("a","b"), lty = 1:2, col=1:2, bty = "y") The letters "a" and "b" print but not the lines. If I omit