search for: lwd

...ght", legend=c("2006 mean", "2007 mean", "2008 mean", "1964-2005 mean \n max and min flows "), pch=c(15, 15, 15, 19), col=c(grey.colors(3, gamma=4),"black"), cex=1.5) box(which="plot", lty="solid") points(2.5, 8313, pch=19, lwd=4) points(6, 9665, pch=19, lwd=4) points(10, 10675, pch=19, lwd=4) points(14, 10303, pch=19, lwd=4) points(18, 7926, pch=19, lwd=4) points(22, 7278, pch=19, lwd=4) points(26, 6472, pch=19, lwd=4) points(30, 6719, pch=19, lwd=4) points(34, 6123, pch=19, lwd=4) points(38, 6280, pch=19, lwd=4) points(...

...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) draw.circle(4,5,radius=2.50,border="red",lty=3,lwd=3) draw.circle(4,5,radius=2.55,border="red",lty=3,lwd=3) draw.circle(4,5,radius=2.60,border="red",lty=3,lwd=3) draw.circle(4,5,radius=2.65,border="red",lty=3,lwd=3) draw.circle(4,5,radius=2.70,border=&qu...

Hello, A made a xyplot using the lattice library in R (latest version). The publisher of our paper has requested: 1. all tick marks should point inwards instead of outwards. 2. All lines should be thicker (lines, axes, boxes, etc. Everything). Lines is easy...I used: lwd=1.5 but what about the lines of the axes, and the lines that build up the plot itself?....? Any suggestions? Kind regards, Piet Bell --------------------------------- [[alternative HTML version deleted]]

Another solution: library("HelpersMG") plot(0:10,type="n",axes=FALSE,xlab="",ylab="", asp=1) ellipse(center.x = 3, center.y = 5, radius.x = 5, radius.y = 5, lwd=10, col=NA, border=rgb(red = 1, green = 0, blue=0, alpha = 0.5)) ellipse(center.x = 8, center.y = 5, radius.x = 5, radius.y = 5, lwd=10, col=NA, border=rgb(red = 0, green = 1, blue=0, alpha = 0.5)) (Without the graphic example, it is difficult to know what tit was supposed to do !) Marc Le 3...

That code nees the plotrix package: library(plotrix) pdf("circles.pdf") plot(0:10,type="n",axes=FALSE,xlab="",ylab="") draw.circle(4,5,radius=3,border="#ff0000aa",lwd=10) draw.circle(6,5,radius=3,border="#0000ffaa",lwd=10) dev.off() On Friday, December 29, 2017, 6:06:32 PM EST, Jim Lemon <drjimlemon at gmail.com> wrote: Hi Abou, Without an illustration it's hard to work out what you want. here is a simple example of two circles...

...e=TRUE, col=c('darkorchid1','darkorchid3', 'darkorchid4'), ylim=c(0,80), yaxp=c(0,80,8), font.lab=2, las=1, axes=FALSE,cex.lab=1.6) axis(2, at=c("0", "10", "20", "30", "40", "50", "60", "70"), lwd=2, font=1.7, pos=-.025,cex.axis=2, las=2) mtext("Relative Intensity", side=2, line=6, adj=.525, cex=2, font=1) arrows(1.5, 25.2995, 1.5, 36.7875, code=2, angle=90, lwd=2, length=.1) arrows(2.5, 36.577, 2.5, 48.065, code=2, angle=90, lwd=2, length=.1) arrows(3.5, 38.124, 3.5, 49.612, cod...

Hi all - I'm trying to generate lattice barchart graphs with missing values, and came across the following: This does not run. I would expect it to: library(lattice) D = data.frame(X=1, Y=factor(letters[2], letters[1:2])) barchart(~ X, D, groups=Y) Error in grid.Call.graphics("L_rect", x$x, x$y, x$width, x$height, resolveHJust(x$just, : invalid line type which is simply

...############# # Scritpt ############################################################################################### ######################### # Una ventana, todo bien ######################### W = 12/cm(1) # Por defecto está todo en inch, con lo que paso cm a inch cada vez H= 12/cm(1) LAS = 1 LWD = 2 MFROW = c(1,1) MAR = c(2.5,4,1,1) POINTSIZE = 12 x11(width= W, height=H, pointsize= POINTSIZE) par(las= LAS, lwd = LWD , mfrow= MFROW, mar= MAR, ps= POINTSIZE ) plot(1) title(paste("Con una bien, comprobado en power point. Tamaños", POINTSIZE)) ######################### Segundo...

...like to colour the small square with red and the big square with blue for example.  I tried using polygon but fail.  Thank you so much for your help.     par(mar=c(4,4,2,1.2),oma=c(0,0,0,0),xaxs="i", yaxs="i") plot.new() plot.window(xlim= c(0,8), ylim=c(0,8),col="blue",lwd=3, bg=5) axis(1) axis(2) title(main="The Overall Title") title(xlab="An x-axis label") title(ylab="A y-axis label") box() #segments(x0, y0, x1, y1, col = par("fg"), lty = par("lty"), lwd = par("lwd")) segments(0, 0, 4, 0, col=1, lty = 1, l...

...d inset and I paste below everything I do in this (a bit complicated) figure. Any suggestion is welcome. Cheers Lorenzo pdf("./post-processing-plots/exploratory_research_figure_2.pdf") par( mar = c(4.5,5, 2, 1) + 0.1) plot(time[1:time_end],tot_num_150[1:time_end]/1e6,type="b",lwd=2,col="blue",lty=2, xlab=expression(paste(tau,"[s]")), ylab=expression(paste("N[", cm^{-3},"]")),cex.lab=1.6,ylim=range(c(7.4e7,1.43e8)),yaxt="n",cex.axis=1.4) #lines(time[1],ini_pop/1e6, "p",col="red",lwd=2,lty=1,pch=5...

Dear All, I am hoping to implement a barchart using trellis graphics where all elements have a line width of 2. Using trellis.par.set(), I am able to make most elements lwd=2, but not all. In particular, the top of the box (above the upper most strip) and the left y-axis remain one point. Code with a barchart() example is below. Any advice would be greatly appreciated. Thanks for your time, Dan note: I am using R 2.4.0 on a windows platform. windows(width=6...

Lfo@psykiatri.aaa.dk wrote: > (R1.9.1 Windows) > > In legend( ) lwd have no effect on points - contrary to the behaviour > in e.g. plot( ) and points( ). It would be nice to have an option pt.lwd > affecting the line width of legend points (like pt.cex changes the > magnification). > > > An example (note the difference in line width between poin...

...t it then sits there quite unused. I am not even clear how what data object to put the standard errors for the thing to work... My code (the version that at least draws a plot): xyplot(inbreeding~generations|breeds, data = trellisplot, type = 'l', layout = c(2,5), col = 'black', lwd = 3, errbar = function(x, y, err, down = T, width = 0.005, lwd = 1, plot = T, colour="black") { up <- y + err dn <- y - err x.range <- max(x) - min(x) wid.lf <- x - (x.range * width) wid.rt <- x + (x.range * width) if(plot == F) { return(data.frame(x...

...ried with matplot function but I did not succeed. Thanks for your help. Sincerelly, Jan Sabee test.five.x <- c(0.02,0.05,0.07,0.09,0.10,0.12,0.13,0.14,0.16,0.17,0.20,0.21,0.34,0.40) test.five.y <- c(18,12,17,12,3,15,1,5,1,1,3,10,15,10) plot(test.five.x, test.five.y, type="l",lty=1, lwd=3, col='red') legend(par('usr')[2], par('usr')[4], xjust=1, c('five'), lwd=3, lty=1, col=c('red')) test.six.x <- c(0.03,0.05,0.07,0.08,0.09,0.10,0.12,0.13,0.14,0.15,0.17,0.18,0.21,0.22,0.24,0.33,0.39,0.43) test.six.y <- c(8,32,14...

I'm presumably missing something very obvious, but how does one use the key.opts argument in labcurve (via Ecdf)? In this example, I want the key to be big and have a blue background, but it isn't and doesn't. ch <- rnorm(1000, 200, 40) sex <- factor(sample(c('female','male'), 1000, TRUE)) Ecdf(~ch, group=sex, label.curves=list(keys=c("f",

...ed it. And to the subject matter: I would like to use a command like this: plot(c(1,8), 1:2, type="n") polygon(1:7, c(2,1,2,NA,2,1,2), col=c("red", "blue"), # border=c("green", "yellow"), border=c(1,10), lwd=c(1:10)) To create two triangles, with different line widths. But the polygon command doesn't seem to recycle the "lwd" parameter as it does for the col, lty, and the border parameters. I would like the resulting plot to look like what the following code will produce: plot(c(1,8),...

...ed it. And to the subject matter: I would like to use a command like this: plot(c(1,8), 1:2, type="n") polygon(1:7, c(2,1,2,NA,2,1,2), col=c("red", "blue"), # border=c("green", "yellow"), border=c(1,10), lwd=c(1:10)) To create two triangles, with different line widths. But the polygon command doesn't seem to recycle the "lwd" parameter as it does for the col, lty, and the border parameters. I would like the resulting plot to look like what the following code will produce: plot(c(1,8),...

...side using mfrow.  The first plot should contain data from D1-D4, the second should contain D5-D8. I can plot these separately using the code, par(mfrow=c(1,1)) plot(c(0.000001,1),c(0,100),type="n", xlab="D", ylab="% R", log="x")      points(D1$L0,D1$K1_R1,lwd=2, col="blue", )      points(D2$L0,D2$K1_R2,lwd=2, col="red", )      points(D3$L0,D3$K1_Rt3,lwd=2, col="orange", )      points(D4$L0,D4$K1_R4,lwd=2, col="black", ) or par(mfrow=c(1,1)) plot(c(0.000001,1),c(0,100),type="n", xlab="D", ylab...

...P op, SEXP args, SEXP env) { ! SEXP oargs, c, x, y, z, col, lty; ! int i, j, nx, ny, nc, ncol, nlty; int ltysave, colsave; double atom, zmin, zmax; char *vmax, *vmax0; DevDesc *dd = CurrentDevice(); --- 396,409 ---- } } ! /* contour(x,y,z, levels, col, lty, lwd) */ SEXP do_contour(SEXP call, SEXP op, SEXP args, SEXP env) { ! SEXP oargs, c, x, y, z, col, lty, lwd; ! int i, j, nx, ny, nc, ncol, nlty, nlwd; int ltysave, colsave; + double lwdsave; double atom, zmin, zmax; char *vmax, *vmax0; DevDesc *dd = CurrentDevi...

Hello, if I plot a horizontal line, e.g., plot(c(1,2),c(1,1),xlim=c(0,3),lwd=2,type="l") or plot(c(1,2),c(1,1),xlim=c(0,3),lwd=4,type="l") then the left end (1st example) or both ends (2nd example) of the lines are not rectangular but slanted on the graphical display (screen). That behavour first occurred when I was trying to plot a stepfun, e.g.,...