search for: grey40

...c(max(quad_N_sp$x),min(quad_N_sp$x)) #! Vector com os limites min e max do N de indivíduos observados color.legend(248000,120000,250000,128000,col_lab,sort(unique(paleta)),gradie nt="y",cex=0.6)#! Legenda text(245300,130500,"Nº Indivíduos",cex=0.6) plot(blocos,ol="grey40",fg=NA,add=T) I'd like to replace the grey shade by other colors. Thanks in advance ____________ Paulo E. Cardoso [[alternative HTML version deleted]]

..."2018-05-04", "2018-05-05", "2018-05-06"), format="%Y-%m-%d") plot (x_yyyymmdd, y_duration, type="l", xaxt="n", yaxt="n", ylim=range(240,480)) abline (h=c(240,270,300,330,360,390,420,450,480,510,540), lty=2, lwd=1.0, col="grey40") axis (side=2, at=240, cex.axis=1.0, label="4:00") axis (side=2, at=300, cex.axis=1.0, label="5:00") axis (side=2, at=360, cex.axis=1.0, label="6:00") axis (side=2, at=420, cex.axis=1.0, label="7:00") axis (side=2, at=480, cex.axis=1.0, l...

...ne = -1, adj = 0.1, cex = 0.6)} par(mfrow = c(2, 3)) par(cex = 0.6) par(mar = c(0, 0, 0, 0), oma = c(4, 4, 0.5, 0.5)) par(tcl = -0.25) par(mgp = c(2, 0.6, 0)) for (i in 1:6) { plot(1, axes = FALSE, type = "n") mtext(letters[i], side = 3, line=-1,adj=0.1,cex=0.6, col = "grey40") if (i %in% c(4, 5, 6)) axis(1, col = "grey40", col.axis = "grey20", at = seq(0.6, 1.2, 0.2)) if (i %in% c(1, 4)) axis(2, col = "grey40", col.axis = "grey20", at = seq(0.6,...

Hello, I have been trying to plot correctly a graph for 2 month now, with no success.I want to put a grid, adjusted on the X axis tickers. Here is the way I build my X-Axis and my grid: grid(11, NULL, col="grey40") axis(2) # build the tickers on the beginning of each monthticks.at <- seq(ISOdatetime(lastYear, 01, 01, hour=0, min=0, sec=0, tz="GMT"), ISOdatetime(lastYear, 12, 31, hour=0, min=0, sec=0, tz="GMT"), by = "months") ticks.lab <- format(ticks.at, format =...

1. Did you study the functions (esp. ?layout) to which I referred you? 2. Show us your code! -- "to no avail" is meaningless! -- Bert Bert Gunter "The trouble with having an open mind is that people keep coming along and sticking things into it." -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip ) On Mon, Jun 19, 2017 at 7:01 PM, Andr? Luis Neves

...frow = c(2, 3)) > par(cex = 0.6) > par(mar = c(0, 0, 0, 0), oma = c(4, 4, 0.5, 0.5)) > par(tcl = -0.25) > par(mgp = c(2, 0.6, 0)) > > for (i in 1:6) { > plot(1, axes = FALSE, type = "n") > mtext(letters[i], side = 3, line=-1,adj=0.1,cex=0.6, col = "grey40") > if (i %in% c(4, 5, 6)) > axis(1, col = "grey40", col.axis = "grey20", at = seq(0.6, > 1.2, 0.2)) > if (i %in% c(1, 4)) > axis(2, col = "grey40", col.axis = "grey20",...

Hi Greg, Easy: plot (x_yyyymmdd, y_duration, type="l", xaxt="n", yaxt="n", ylim=range(240,480)) abline (h=c(240,270,300,330,360,390,420,450,480,510,540), lty=2, lwd=1.0, col="grey40") axis(1,at=x_yyyymmdd,labels=format(x_yyyymmdd,"%Y-%m-%d")) axis(2,at=seq(240,480,by=60),labels=c("4.00","5.00","6.00","7.00","8.00")) However, you are only getting every third label. If you want to display more of them you can use...

...> par(mar = c(0, 0, 0, 0), oma = c(4, 4, 0.5, 0.5)) > > par(tcl = -0.25) > > par(mgp = c(2, 0.6, 0)) > > > > for (i in 1:6) { > > plot(1, axes = FALSE, type = "n") > > mtext(letters[i], side = 3, line=-1,adj=0.1,cex=0.6, col = > "grey40") > > if (i %in% c(4, 5, 6)) > > axis(1, col = "grey40", col.axis = "grey20", at = seq(0.6, > > 1.2, 0.2)) > > if (i %in% c(1, 4)) > > axis(2, col = "grey40", col.a...

I'm trying to recreate a graph similar to the last one found on this link: https://sites.ualberta.ca/~lkgray/uploads/7/3/6/2/7362679/6c_-_line_plots_with_error_bars.pdf The difference is that I want budbreak on the top, and the temperatures at the bottom. I tried to set par before each graph and include lines, with no avail. Thanks, Bert. Andre On Mon, Jun 19, 2017 at 7:41 PM, Bert Gunter

...to get it??? The code and data are: grafico<-{ pdf(file=file, paper="special",width=30, height=20) par(bg="white",font=3,font.axis=3,las=1,cex.axis=2.2, mar=c(8,6,8,8)+8) barplot(Imp$TassoV, width=10,space=c(0,0.1),legend.text = FALSE,beside=TRUE, border="grey40", main="",col="midnightblue",cex.main=2.4, axes = FALSE, axisnames =FALSE) lab=as.character(pretty(Imp$TassoV)) axis(side=4,at=pretty(Imp$TassoV),labels=lab,cex.axis=2.4) par(new=T) chart.TimeSeries(Imp$ValueA, type="l", lwd=8, main="&quot...

Jim, That you very much! How do I instruct staxlab to label once every n days, rather than labeling every day? Greg > On May 5, 2018, at 6:50 PM, Jim Lemon <drjimlemon at gmail.com> wrote: > > staxlab(1,at=x_yyyymmdd,labels=format(x_yyyymmdd,"%Y-%m-%d")) [[alternative HTML version deleted]]

Hi Greg, By default, the "axis" function puts the labels on one line and drops labels that would overlap. When you have labels that are all the same length, this usually results in every second, or third, or fourth label being displayed. So you can probably get what you want by not using staxlab. However, if you really want to use staxlab, try this:

I am trying to add a copyright disclaimer outside the plot borders of some images I have created. I can use mtext() to add the written portion, but I would like to have the Creative Commons license image (http://en.wikipedia.org/wiki/File:Cc.logo.circle.svg) before the text. I've found that I can plot a .png image inside the plot boundaries using rasterImage() but I can't figure out how to

...545454", "grey34", "#575757", "grey35", "#595959", "grey36", "#5C5C5C", "grey37", "#5E5E5E", "grey38", "#616161", "grey39", "#636363", "grey40", "#666666", "grey41", "#696969", "grey42", "#6B6B6B", "grey43", "#6E6E6E", "grey44", "#707070", "grey45", "#737373", "grey46", "#757575&q...