search for: ybox

...1:30, "+"), xlab = "lon", ylab = "lat") outline <- map("worldHires", plot=FALSE) # returns a list of x/y coords xrange <- range(outline$x, na.rm=TRUE) # get bounding box yrange <- range(outline$y, na.rm=TRUE) xbox <- xrange + c(-2, 2) ybox <- yrange + c(-2, 2) # create the grid path in the current device polypath(c(outline$x, NA, c(xbox, rev(xbox))), c(outline$y, NA, rep(ybox, each=2)), col="light blue", rule="evenodd") As you can see, the polypath is on both sides of the country outline. Any he...

...25c25 < rect2 <- function(left, top, dx, dy, ...) { --- > rect2 <- function(left, top, dx, dy, angle, ...) { 133c133 < rect2(left, top, dx = w, dy = h, col = bg) --- > rect2(left, top, dx = w, dy = h, col = bg, angle = NULL) 141c141 < rect2(left=xt, top=yt+ybox/2, dx = xbox, dy = ybox, col = fill) --- > rect2(left=xt, top=yt+ybox/2, dx = xbox, dy = ybox, col = fill, angle = angle) Uwe Ligges _ platform i386-pc-mingw32 arch x86 os Win32 system x86, Win32 status major...

...- par("ylog") if (xlog) x <- log10(x) if (ylog) y <- log10(y) xchar <- xinch(par("cin")[1]) ychar <- yinch(par("cin")[2]) * 1.2 xbox <- xinch(par("cin")[2] * 0.8) ybox <- yinch(par("cin")[2] * 0.8) yline <- 2 * xchar w <- 2 * xchar + max(strwidth(legend)) h <- (length(legend) + 1) * ychar if (missing(y)) { if (is.list(x)) { y <- x$y x <- x$x...

...egend can match exactly the colors of the actual plot (e.g. in the case of two superimposed histograms which have different shading and different borders). Indeed, the legend function seems to hard code the color "black" for the borders in this call: rect2(left = xt, top = yt + ybox/2, dx = xbox, dy = ybox, col = fill, density = density, angle = angle, border = "black") I worked around this by adding a "border" argument to the function (which defaults to "black"), and changing the call above. It works for me; I have...

On Sun, 27 Jul 2008, S Ellison wrote: > Looking at the legend() source the filled box line colour is hardcoded : > if (mfill) { > if (plot) { > fill <- rep(fill, length.out = n.leg) > rect2(left = xt, top = yt + ybox/2, dx = xbox, dy = ybox, > col = fill, density = density, angle = angle, > border = "black") > } > xt <- xt + dx.fill > } > > ... so it looks like you can have any colour as long as it's black. Ups, but this is a...

...nly a *minimal* change is required. Please consider the following code snipped copied from the function legend (package graphics). The sensible line is marked by ###<- if (mfill) { if (plot) { fill <- rep(fill, length.out = n.leg) rect2(left = xt, top = yt + ybox/2, dx = xbox, dy = ybox, col = fill, density = density, angle = angle, border = "black") ####<-- } xt <- xt + dx.fill } Changing this line from border="black"...

...xjust=0, yjust=1, merge=FALSE, ...) --- > xjust=0, yjust=1, ...) 5,8c5,8 < xchar <- xinch(par("cin")[1])*par("cex") < ychar <- yinch(par("cin")[2])*1.2*par("cex") < xbox <- xinch(par("cin")[2]*0.8)*par("cex") < ybox <- yinch(par("cin")[2]*0.8)*par("cex") --- > xchar <- xinch(par("cin")[1]) > ychar <- yinch(par("cin")[2]) * 1.2 > xbox <- xinch(par("cin")[2] * 0.8) > ybox <- yinch(par("cin")[2] * 0.8) 50c50 < if (!mer...

In legend() is it possibly to mix lines and boxes? I would like to do something like legend(locator(1), legend = c("al", "ben", "chris", "dave"), lty = c(1, 2, 3, NA), fill = c(NA, NA, NA, "gray")) to indicate that "al", "ben" and "chris" have lines, and "dave" has a gray shading. Many thanks,

Hi, I have done the interpolation for my data and I was able to create the contours in multipanel with the help of Pascal. Now, I want to clip the contour with the shapefile. I want only the portion of contour to be displayed which falls inside the boundary of the shapefile. The data mydata.csv can be found on https://www.dropbox.com/s/khi7nv0160hi68p/mydata.csv The data for shapefile can be

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