search for: ymult

I'm trying to make a transition from S-plus under Windows to R under Linux. My immediate aim is to produce a scatter plot with two y-axes with different scales. That can be done in S-plus with a command of the following form: guiPlot( PlotType="Scatter", DataSet="execon", Columns="years,hstart,ship", AxisType="Multiple Y" ), where years, hstart, and

...then copy to console and edit > > draw.circle2 <- function (x, y, radius, nv = 100, border = NULL, col = NA, lty = 1, > density=NA, angle=45, lwd = 1 ) > { > xylim <- par("usr") > plotdim <- par("pin") > ymult <- getYmult() > angle.inc <- 2 * pi/nv > angles <- seq(0, 2 * pi - angle.inc, by = angle.inc) > if (length(col) < length(radius)) > col <- rep(col, length.out = length(radius)) > for (circle in 1:length(radius)) { > xv <- cos...

...raw.circle: ------ draw.circle # then copy to console and edit draw.circle2 <- function (x, y, radius, nv = 100, border = NULL, col = NA, lty = 1, density=NA, angle=45, lwd = 1 ) { xylim <- par("usr") plotdim <- par("pin") ymult <- getYmult() angle.inc <- 2 * pi/nv angles <- seq(0, 2 * pi - angle.inc, by = angle.inc) if (length(col) < length(radius)) col <- rep(col, length.out = length(radius)) for (circle in 1:length(radius)) { xv <- cos(angles) * radius[circle] + x...

> On Jun 14, 2017, at 9:46 AM, Jeff Newmiller <jdnewmil at dcn.davis.ca.us> wrote: > > I don't see a question. If your question is whether R supports pattern fills, AFAIK it does not. If that is not your question, ask one. > -- > Sent from my phone. Please excuse my brevity. > > On June 14, 2017 7:57:41 AM PDT, jean-philippe <jeanphilippe.fontaine at

hi david Thank you very much for the hack of draw.circle that you proposed me. I don't understand some part of the code, why do you pass radius as a vector in the function (if I understand well the purpose of the for loop) ? Also what is ymult? If I set the radius to the value 0.85 as I wanted (so as a scalar), I don't see any difference in the result when I call this function draw.circle2, the stripes are not drawn inside the circle. I don't know if it is normal. Thanks, best Jean-Philippe On 14/06/2017 19:29, David Win...

...onsole and edit >> draw.circle2 <- function (x, y, radius, nv = 100, border = NULL, col = NA, lty = 1, >> density=NA, angle=45, lwd = 1 ) >> { >> xylim <- par("usr") >> plotdim <- par("pin") >> ymult <- getYmult() >> angle.inc <- 2 * pi/nv >> angles <- seq(0, 2 * pi - angle.inc, by = angle.inc) >> if (length(col) < length(radius)) >> col <- rep(col, length.out = length(radius)) >> for (circle in 1:length(radius)) { >>...

...draw.circle2 <- function (x, y, radius, nv = 100, border = NULL, >col = NA, lty = 1, >>> density=NA, angle=45, lwd = 1 ) >>> { >>> xylim <- par("usr") >>> plotdim <- par("pin") >>> ymult <- getYmult() >>> angle.inc <- 2 * pi/nv >>> angles <- seq(0, 2 * pi - angle.inc, by = angle.inc) >>> if (length(col) < length(radius)) >>> col <- rep(col, length.out = length(radius)) >>> for (circle in 1:length(ra...

...then copy to console and edit > > draw.circle2? <- function (x, y, radius, nv = 100, border = NULL, col = NA, lty = 1, >???????????????????????????? density=NA, angle=45,? lwd = 1 ) > { >????? xylim <- par("usr") >????? plotdim <- par("pin") >????? ymult <- getYmult() >????? angle.inc <- 2 * pi/nv >????? angles <- seq(0, 2 * pi - angle.inc, by = angle.inc) >????? if (length(col) < length(radius)) >????????? col <- rep(col, length.out = length(radius)) >????? for (circle in 1:length(radius)) { >????????? xv <- cos...

...function (x, y, radius, nv = 100, border = NULL, >> col = NA, lty = 1, >>>> density=NA, angle=45, lwd = 1 ) >>>> { >>>> xylim <- par("usr") >>>> plotdim <- par("pin") >>>> ymult <- getYmult() >>>> angle.inc <- 2 * pi/nv >>>> angles <- seq(0, 2 * pi - angle.inc, by = angle.inc) >>>> if (length(col) < length(radius)) >>>> col <- rep(col, length.out = length(radius)) >>>> for (circle...

Dear All: Thank you very much for all of you. I just have one more thing. Is there a way to fill the borders with small dots, may be different sizes. I tried to do it, but it looks ugly. Here what I tried: library(plotrix) plot(0:10, 0:10, type="n",axes=FALSE,xlab="",ylab="") #### 0:5, draw.circle(4,5,radius=3,border="#ff0000aa", lwd=75)

...ot;n", ...) panel(hatval, rs, ...) if (one.fig) title(sub = sub.caption, ...) p <- length(coef(x)) for(crit in cook.levels){ curve(sqrt(crit*p*(1-x)/x), lty=2, add=T) curve(-sqrt(crit*p*(1-x)/x), lty=2, add=T) } xmax <- par()$usr[2] ymult <- sqrt(p*(1-xmax)/xmax) aty <- c(-sqrt(rev(cook.levels))*ymult, sqrt(cook.levels)*ymult) axis(4, at=aty, labels=paste(c(rev(cook.levels), cook.levels)), mgp=c(.25,.25,0), las=2, tck=0, cex.axis=cex.id) mtext(caption[5], 3, 0.25) if (id.n > 0) { y.id &l...