search for: angl

I am trying to use the angle option in polygon to create polygons filled with horizontal and vertical lines. The polygons I am crating are irregular and it the angle function appears to set the angle of the shading perpendicular to the polygon sides rather than perpendicular to the axes. Is there any way to set the angle re...

...("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, code=2, angle=90, lwd=2, length=.1) arrows(5.5, 0.7625, 5.5,24.2575, code=2, angle=90, lwd=2, length=.1) arrows(6.5, 39.7085, 6.5,63.2035, code=2, angle=90, lwd=2, length=.1...

...emp.loc.1, temp.loc.2), ncol = 2) } else { if (!is.matrix(locations) || ncol(locations) != 2) stop("locations must be a 2-column matrix.") loc <- .Alias(locations) } if (n.loc != nrow(loc)) stop("number of rows of locations and x must be equal.") angles <- if (full) seq(0, 2 * pi, length = n.seg + 1)[-(n.seg + 1)] else if (draw.segments) seq(0, pi, length = n.seg + 1)[-(n.seg + 1)] else seq(0, pi, length = n.seg) if (length(angles) != n.seg) stop("length(angles) must be the same as ncol(x)") x[is.na(x)] <-...

...tter: 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), 1:2, type="n") polyg...

...tter: 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), 1:2, type="n") polyg...

...ects are nested within each other .... This is not the case here: I am using a typical repeated measures design where each subject does everything: 30 subjects judge the laterality of a hand shown on a computer screen, completing 18 trials in all combinations of the following experimental factors (Angle, 8 levels (hand shown in 8 different orientations), Laterality, 2 levels (both right and left hands shown), Condition, 3 levels (participant holds own hands in posture a,b or c). With repeated measures ANOVA the Error structure is specified as follows aov(percentErrors~angle*condition*lateralit...

Dear all, I'd like to produce a simple pie chart for a customer (I know it's bad but they insist), and I have some difficulties setting the initial angle. For example: pie(c(60, 40), init.angle=14) and pie(c(80, 20), init.angle=338) both present the slices in the same direction, where: pie(c(60, 40)) pie(c(80, 20)) present the slices in different directions. I read everything I could about init.angle argument, I even played with various fo...

The angle is not based on the polygon edges, but it can seem that way if you do not use the asp=1 argument in your plot. Try this example, > plot(1:10, 1:10, type='n') > x <- c(1, 3, 5, 3) > y <- c(3, 5, 3, 1) > polygon(x, y, angle=0, density=10) > polygon(x, y + 4.5, angle=45,...

Tena koe Simon plot(1:10, 1:10, type='n') polygon(c(2,3,6,8), c(2,5,5,3), density=20, angle=90) polygon(c(2,3,6,8), 5+c(2,5,5,3), density=20, angle=0) I don't understand your problem. Perhaps if you "provide[d] commented, minimal, self-contained, reproducible code" it would help. HTH .... Peter Alspach -----Original Message----- From: R-help [mailto:r-help-bounces at r...

...llow stripes instead of a uniform >>>> yellow color. To draw the circle I used the following command after >>>> having loaded the (very nice !) plotrix library : > > I finally understood the question and it needs a hack to the draw.circle function in plotrix since the angle and density arguments don't get passed in: > > First get code for draw.circle: > > ------ > > draw.circle # then copy to console and edit > > draw.circle2 <- function (x, y, radius, nv = 100, border = NULL, col = NA, lty = 1, > d...

....002081666 0.009865766 0.015716234 0.040253364 0.017691806 0.013868429 0.007234178 I use the command: plotCI(OD600, cellconc, uiw=stdev) And I receive a graph that looks correct but without any error bars. I also receive these warnings: 1: In arrows(...) : zero-length arrow is of indeterminate angle and so skipped 2: In arrows(...) : zero-length arrow is of indeterminate angle and so skipped 3: In arrows(...) : zero-length arrow is of indeterminate angle and so skipped 4: In arrows(...) : zero-length arrow is of indeterminate angle and so skipped 5: In arrows(...) : zero-length arrow is of in...

..., 39, 29, 24) plot(1,1, col = "white", xlim = c(1.3,11.7), ylim = c(0,80), axis = FALSE, xaxt = "n") axis(1, at = c(1:12)) polygon(c(c(1:12),c(12:1)), c(top, bottom), col = adjustcolor("#33a02c",alpha.f = 0.7) ,border = "#33a02c", lty = 4, density = 80, angle = 180) I would like the hatched lines to all go in the same direction (parallel to the x-axis) so that I can layer another polygon on top with perpendicular hatches and you will be able to differentiate between the two. -----Original Message----- From: Peter Alspach [mailto:Peter.Alspach at pla...

...a circle with yellow stripes instead of a uniform >>> yellow color. To draw the circle I used the following command after >>> having loaded the (very nice !) plotrix library : I finally understood the question and it needs a hack to the draw.circle function in plotrix since the angle and density arguments don't get passed in: First get code for draw.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...

When legend() is used with the angle argument as follows, not only the boxes beside the legend text, but also the whole legend box is filled with shading lines. I think this is not intended: plot(1:10) legend(8, 4, c("A", "B"), angle=c(10, 80), fill=NULL, density=20) I'd suggest as a fix (legend.R of R-1....

...from that day, so you may want to reconsider why you want polygons filled with lines instead of just a solid color (and I consider white, grey, and black as colors for this purpose). On Wed, Apr 27, 2016 at 2:17 PM, Simon, Heather <Simon.Heather at epa.gov> wrote: > I am trying to use the angle option in polygon to create polygons filled with horizontal and vertical lines. The polygons I am crating are irregular and it the angle function appears to set the angle of the shading perpendicular to the polygon sides rather than perpendicular to the axes. Is there any way to set the angle re...

...t; draw.circle(-12.85,-10.9,0.85,nv=1000,border=NULL,col="yellow",lty=1,lwd=1) >> dev.off() >> Agree that the coding question remains unclear, so not using the offered example but responding to the natural language query. The `polygon` function has 'density' and 'angle' argument that with 'col' and 'lwd' can make slanted fill lines. This is a modification of hte first example on `?polygon`? x <- c(1:9, 8:1) y <- c(1, 2*(5:3), 2, -1, 17, 9, 8, 2:9) op <- par(mfcol = c(3, 1)) for(xpd in c(FALSE, TRUE, NA)) { plot(1:10, main = past...

...photos each of their optic nerve head. I want to check that the orientation of the nerve head is consistent, ie the 6 replicates show minimal or preferably no rotation differences. I'll draw an arbitrary line between some blood vessels (same reference in each set of replicates) and determine an angle of deviation from the vertical and that angle will be my dependent variable. Subject Replicate Angle of Deviation 1 1 x 1 2 x 1 3 x 1 4 x 1 5 x 1 6 x 2 1 x 2 2 x 2...

Hey guys, Not sure if I encountered a bug with the scatterplot3d function. Here's the calls I made: s3d1 <- scatterplot3d(TotLogDisttenp,TotDifftenp,TotMeasuredRSLtenp,pch=16,highlight.3d=TRUE,angle=40,type="h",main="MRSL ~ LogDist + Diff"); s3d1$plane3d(fitols); s3d1 <- scatterplot3d(TotLogDisttenp,TotDifftenp,TotMeasuredRSLtenp,pch=16,highlight.3d=TRUE,angle=130,type="h",main="MRSL ~ LogDist + Diff"); s3d1$plane3d(fitols); s3d1 <- scatterplot3d(...

I was teaching new R users to make some fun graphs. I had some arrows examples worked up we came across a problem. The arrows function ignores 2nd and following elements of vectors given as code an angle. Would you please consider 1) allowing vectors for code and angle, or 2) returning an error or warning when user mistakenly supplies a vector for those parameters? When code like this is wrapped into an Sweaved document--we I don't see the graph on the screen--this error is difficult to catc...

...recent enquiry, I've been playing with the idea of creating a colour gradient for a polygon, using the Grid package. The idea is to draw a number of stripes of different colours, using the grid.clip function. Below is my current attempt at this, library(grid) rotate.polygon <- function(g, angle=0){ # utility function, works fine matR <- matrix(c(cos(angle), -sin(angle), sin(angle), cos(angle)), nrow = 2) gravity.x = unit(mean(g$x),"npc") gravity.y = unit(mean(g$y),"npc") x.center = convertX(g$x - gravity.x ,"npc",TRUE) y.center = convertY(g$y -...