search for: points2

...pch=1:2,lty=1:2,trace=T) It gives the following trace: > plot(0,0) > legend(0,0,c("Hello!","Hi!"),pch=1:2,lty=1:2,trace=T) xchar= 0.05178 ; (yextra,ychar)= 0 0.07941 rect2(0,0, w=0.3474, h=0.2382...) segments2(0.015540.01554,-0.07941-0.1588, dx=0.1036, dy=0, ...) points2( 0.06732 0.06732 , -0.07941 -0.1588 , pch= 1 2 ...) On the line starting by "segment2", the coordinates are not separated by a space like on the line starting by "points2". My recommendation is to remove the option `sep = ""' in this part of code in legend(). [....

...h) { #- draw points ------------------- pch <- rep(pch, length.out=n.leg) pt.bg <- rep(pt.bg, length.out=n.leg) ok <- is.character(pch) | pch >= 0 ! x1 <- (if(merge) xt-(seg.len/2)*xchar else xt)[ok] y1 <- yt[ok] if(trace) catn(" points2(", x1,",", y1,", pch=", pch[ok],"...)") points2(x1, y1, pch=pch[ok], col=col[ok], cex=cex, bg = pt.bg[ok]) if (!merge) xt <- xt + dx.pch } xt <- xt + x.intersp * xchar --- 141,169 ---- } if(has.pch || do.lines) col...

...h) { #- draw points ------------------- pch <- rep(pch, length.out=n.leg) pt.bg <- rep(pt.bg, length.out=n.leg) ok <- is.character(pch) | pch >= 0 ! x1 <- (if(merge) xt-(seg.len/2)*xchar else xt)[ok] y1 <- yt[ok] if(trace) catn(" points2(", x1,",", y1,", pch=", pch[ok],"...)") points2(x1, y1, pch=pch[ok], col=col[ok], cex=cex, bg = pt.bg[ok]) if (!merge) xt <- xt + dx.pch } xt <- xt + x.intersp * xchar --- 141,169 ---- } if(has.pch || do.lines) col &l...

...ange) RFparameters(PracticalRange=FALSE) data <- GaussRF(points1, grid=FALSE, model=model,param=param1) data[which(data<0)]<-0 xPoint <- runif(nbRainG,0,xMax) yPoint <- runif(nbRainG,0,yMax) MatCoord<-matrix(0,nr=nbRainG,nc=2) MatCoord[,1]<-t(xPoint) MatCoord[,2]<-t(yPoint) points2<-MatCoord dim(data)<-NULL ########################### # PARAMETERS FOR KRIGING ########################### stepSpace <- 0.25 xkrig <- seq(0,xMax,stepSpace) ykrig <- seq(0,yMax,stepSpace) valuesLim <- c(0,3) colour <- rainbow(100) ############### #2D KRIGING ##############...

....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],", ...)") if(plot) - points2(x1, y1, - pch = pch[ok], col= col[ok], cex= pt.cex[ok], bg= pt.bg[ok]) + points2(x1, y1, pch = pch[ok], col = col[ok], cex = pt.cex[ok], + bg = pt.b...

HI there, I want to add a legend to a plot using the density and angle argument, so patterns with lines in different angles are used in the plot and should be referred to. When I use default settings, the filled boxes are too small. With the cex argument I can enlarge the whole legend, but then the text gets too big. How could I just increase the size of the single boxes and not the text. I

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

...R could be the way to go. I have a question regarding R and finding the most "points" in a certain area. I am looking at various places that have a certain point value associated to each place. The data I will be reading in looks like: Latitude1 Longitude1 Points1 Latitude2 Longitude2 Points2 Latitude3 Longitude3 Points3 etc. What I want to do is have an R script run that looks in a "x" mile radius and calculates the total points. Then I want to be able to find the center of the "x" mile radius for the circle with the most points. I am so lost on this that I'...