search for: lightgray

...c(23.9,20.3),xlim=c(42.1,39.2),type=''n'') plot(Faciologia,ylab='''',xlab='''',col=c(''lightgreen'',''lightgreen'',''lightgreen'' ,''lightgreen'',''lightgreen'',''lightgray'',''lightgray'',''lightgray'',''lightgray'','' lightgray'',''lightgray'',''lightgray'',''lightgray'',''lightgray'',''lightgray'',''ligh tgr...

I am using R 2.2.1 on a Windows 2000 PC. When I do a grid() after the boxplot it overprints the boxplot: > boxplot(count ~ spray, data = InsectSprays, col = "lightgray") > grid(nx=NA, ny=NULL) > if I try the panel.first > boxplot(count ~ spray, data = InsectSprays, col = "lightgray", + panel.first=grid(nx=NA, ny=NULL)) > I can see the grid flash and go away. If I close the device and then try the panel.first, I do not get...

..., the sample strip is something produced by this: pushViewport(viewport(x = unit(0.638, "npc"), y =unit(0.386, "npc"), width=.62, height=0.006, angle=137.2)) grid.rect(y=100:1/100, just="top", gp=gpar(col=NA, fill=colorRampPalette(c("lightgray", "white"), space="Lab")(200))) I want a same one parallel to it to the right. I've tried something like: pushViewport(viewport(x = unit(c(0.638, 0.648), "npc"), y =unit(c(0.386, 0.386), "npc"), width=unit...

Hi, I wonder whether there is a way to generate a polygon (a triangle in my case) with color gradient using grid.polygon() in package grid? I tried something like library(grid) grid.polygon(x=c(0, 0.5, 1), y=c(0.5, 1, 0.5), gp=gpar(col=NA, fill=colorRampPalette(c("green", "lightgray"), space="Lab")(200))) But am only getting a triangle filled with color green, whereas the aim is a triangle of color gradient from green to lightgray. Can grid.polygon() generate a color gradient, or am I being mistaken? Best to my knowle...

...fr$M1 ,cex=0.8 ,type="o",ylim=c(20,90),xlim=c(1979,2002) ,xlab="year",ylab="M, %" ,pch=20 ,xaxt="n", ); lines(fr$year,fr$M2); points(fr$year,fr$M2,pch=21) axis(1,at=c(1979:2002)); for(x in 1979:2002) { abline(v=x, col = "lightgray", lty = "dotted"); } for(y in seq(20,90,10)){ abline(h=y, col = "lightgray", lty = "dotted"); } legend(1979,0, legend=c("M1","M2"), pch=c(20,21)); par(op); ===8<=== Legend doesn't appear. I tried different coordinates,...

...rm(10000, mean = mu, sd = sigma) for (i in 1:nsim) { amo.i = sample(pop, n, replace = TRUE) t[i] = (mean(amo.i) - mu) / (sigma / sqrt(n)) } win.graph(w = 5, h = 7) split.screen(c(2,1)) screen(1) hist(t, main = "histogram", breaks = nchist, col = "lightgray", xlab = '', ylab = "Fi", font.lab = 2, font = 2) screen(2) hist(t, probability = T, main = 'f.d.p and histogram', breaks = nchist, col = 'lightgray', xlab = 't', ylab = 'f(t...

...r <- rep(0, 1000) for (j in 1:1000) xbar[j] <- mean(rexp(n[i], rate = 1/theta)) heading <- paste("Exp w/ theta =", theta, ", n = ", n[i]) hist(xbar, prob = TRUE, breaks = "FD", main = title(heading, font.main = 6), col = "lightgray", xlab = expression(bar(x))) xbar <- sort(xbar) points(xbar, dnorm(xbar, mean = theta, sd = theta/sqrt(n[i])), type = "l", col = 2) } }

.... > > > > > > El 7 jun. 2017 12:08, "Jim Lemon" <drjimlemon at gmail.com> escribi?: > > Hi Pedro, > As a one-off, you just shove the coordinates around a bit: > > par(mar=c(11,0,6,6)) > barplot(fhist$counts,axes=FALSE, space=0,horiz=TRUE,col="lightgray", > ylim=c(0,24)) > > However, I don't think that this plot illustrates quite what you think it > does. > > Jim > > > On Wed, Jun 7, 2017 at 4:01 PM, Pedro p?ramo <percentil101 at gmail.com> > wrote: > > Please, I'm trying to put the right plo...

...hows a better way to show it? Many thanks in advance. El 7 jun. 2017 12:08, "Jim Lemon" <drjimlemon at gmail.com> escribi?: Hi Pedro, As a one-off, you just shove the coordinates around a bit: par(mar=c(11,0,6,6)) barplot(fhist$counts,axes=FALSE, space=0,horiz=TRUE,col="lightgray", ylim=c(0,24)) However, I don't think that this plot illustrates quite what you think it does. Jim On Wed, Jun 7, 2017 at 4:01 PM, Pedro p?ramo <percentil101 at gmail.com> wrote: > Please, I'm trying to put the right plot higher and centered on the left > values but I...

Hi Pedro, If you keep that same margins for the second plot: par(mar=c(10,0,6,6)) barplot(fhist$counts,axes=FALSE, space=0,horiz=TRUE,col="lightgray") it looks reasonably well aligned to me. Because you are plotting the counts of the values in Simulation, the ordinate (vertical axis) of the bar plot is in quite different units from that of the plot on the left side. Jim On Wed, Jun 14, 2017 at 5:33 PM, Pedro p?ramo <percentil101 at g...

Hi Pedro, As a one-off, you just shove the coordinates around a bit: par(mar=c(11,0,6,6)) barplot(fhist$counts,axes=FALSE, space=0,horiz=TRUE,col="lightgray", ylim=c(0,24)) However, I don't think that this plot illustrates quite what you think it does. Jim On Wed, Jun 7, 2017 at 4:01 PM, Pedro p?ramo <percentil101 at gmail.com> wrote: > Please, I'm trying to put the right plot higher and centered on the left > values but I...

...alues repeat, something like the empirical distribution? 2017-06-14 12:30 GMT+02:00 Jim Lemon <drjimlemon at gmail.com>: > Hi Pedro, > If you keep that same margins for the second plot: > > par(mar=c(10,0,6,6)) > barplot(fhist$counts,axes=FALSE, space=0,horiz=TRUE,col="lightgray") > > it looks reasonably well aligned to me. Because you are plotting the > counts of the values in Simulation, the ordinate (vertical axis) of > the bar plot is in quite different units from that of the plot on the > left side. > > Jim > > On Wed, Jun 14, 2017 at 5...

Dear, I am a newbie to R. Now I am learning to draw boxplot using graphics(). I want to highlight the median position with a round point and the value left (or on the top of)to the point. Please kindly share the command and thank you. Elaine [[alternative HTML version deleted]]

...0)) abline(h = 8000, lwd = 2, col = "black") abline(h = 12000, lwd = 2, col = "black") title("Dinamic Montecarlo Simulation 2 years ahead",font=4) fhist<-hist(Simulation,plot=FALSE) par(mar=c(6,0,6,6)) barplot(fhist$counts,axes=FALSE, space=0,horiz=TRUE,col="lightgray") grid() title("Marginal Distribution",font=4) rect(0, 0, 0, 0) # transparent [[alternative HTML version deleted]]

Dear List-Members, I would like to produce a ordered boxplot in which the categories with the smallest median are plotted at the left end and the box with the largest median at the right. Thanks in advance for any advices Thomas H.

...s.Date(myagg[[datesvar]][index], origin="1970-01-01"), "%Y-%m-%d"), at=myagg[[datesvar]][index], las=2,cex.axis=0.8) axis(2, labels=seq(ymin,ymax,by=mystep),at=seq(ymin,ymax,by=mystep),las=1,cex.axis=0.9) abline(v=myagg[[datesvar]][index],lty="dotted",col = "lightgray") # abline(h=seq(ymin,ymax,by=mystep), lty="dotted",col = "lightgray") legend("topleft",inset=0,legend=invars,fill=all.colors[mycolors],horiz=T,bg="white",cex=1) # ?plot points(myagg[[datesvar]],myagg[[invars[1]]],type="l",lwd=3,lty=i,col...

...everybody! I have a code below that creates a data set and then a stacked bar chart based on that data set. No need to look at it - just notice please that my horizontal axis is a date varible (x=my.data$date). I have a question about the last 2 lines of this code: grid(nx=NULL,ny=NULL,col = "lightgray", lty = "dotted",lwd = par("lwd")) axis(1, las = 2) Could anyone tell me - what are the tick mark labels on my X axis? Why are they not dates? axTicks(side=1) Is there any way to change them to actual dates as in my.data$date? And also - is there a way to force the graph...

...l = "black") > > abline(h = 12000, lwd = 2, col = "black") > title("Dinamic Montecarlo Simulation 2 years ahead",font=4) > > fhist<-hist(Simulation,plot=FALSE) > par(mar=c(6,0,6,6)) > barplot(fhist$counts,axes=FALSE, space=0,horiz=TRUE,col="lightgray") > grid() > title("Marginal Distribution",font=4) > > > rect(0, 0, 0, 0) # transparent > > [[alternative HTML version deleted]]

...ge","green4","navyblue","red","darkviolet","steelblue"), pch=c("v","A","B","C","D","E"),bg='gray100',cex=0.7,box.lty=1,box.lwd=1) abline(h = -1:9, v = 0:8, col = "lightgray", lty=3) par(op) --------------------------------- Jämför pris på flygbiljetter och hotellrum: http://shopping.yahoo.se/c-169901-resor-biljetter.html [[alternative HTML version deleted]]

...ot;, col=1, pch=19,cex=1) legend(38,-2,format(img1,digits=2), cex=0.8) legend(40,-2,format(img2,digits=2),cex=0.8) legend(26, -2, c("Image 1","Image 2"), cex=0.8,lwd=2,col=c("8","1"), pch=19, lty=1:2,bty="n") abline(h = -1:-8, v = 25:45, col = "lightgray", lty=3) axis(1, at=2*0:22) axis(2, at=-8:-2) ----------------------------------- -- View this message in context: http://www.nabble.com/Y-values-below-the-X-plot-tp17670311p17670311.html Sent from the R help mailing list archive at Nabble.com.