compositions (version 2.0-2)

straight: Draws straight lines.

Description

The function draws lines in a given direction d through points x.

Usage

straight(x,...)
          # S3 method for acomp
straight(x,d,...,steps=30,aspanel=FALSE)
          # S3 method for rcomp
straight(x,d,...,steps=30,aspanel=FALSE)
          # S3 method for aplus
straight(x,d,...,steps=30,aspanel=FALSE)
          # S3 method for rplus
straight(x,d,...,steps=30,aspanel=FALSE)
          # S3 method for rmult
straight(x,d,...,steps=30,aspanel=FALSE)

Arguments

x

dataset of points of the given type to draw the line through

d

dataset of directions of the line

…

further graphical parameters

steps

the number of discretisation points to draw the segments, since the representation might not visually be a straight line

aspanel

Logical, indicates use as slave to do acutal drawing only.

Details

The functions add lines to the graphics generated with the corresponding plot functions.

Adding to multipaneled plots redraws the plot completely, and is only possible when the plot has been created with the plotting routines from this library.

Lines end when they leave the space (e.g. the simplex), which sometimes leads to the impression of premature end (specially in rcomp geometry).

See Also

plot.acomp,lines.acomp

Examples

# NOT RUN {
data(SimulatedAmounts)

plot(acomp(sa.lognormals))
straight(mean(acomp(sa.lognormals)),
         princomp(acomp(sa.lognormals))$Loadings[1,],
         col="red")
straight(mean(rcomp(sa.lognormals)),
         princomp(rcomp(sa.lognormals))$loadings[,1],
         col="blue")

plot(aplus(sa.lognormals[,1:2]))
straight(mean(aplus(sa.lognormals[,1:2])),
         princomp(aplus(sa.lognormals[,1:2]))$Loadings[1,],
         col="red")
straight(mean(rplus(sa.lognormals[,1:2])),
         princomp(rplus(sa.lognormals[,1:2]))$loadings[,1],
         col="blue")

plot(rplus(sa.lognormals[,1:2]))
straight(mean(aplus(sa.lognormals[,1:2])),
         princomp(aplus(sa.lognormals[,1:2]))$Loadings[1,],
         col="red")
straight(mean(rplus(sa.lognormals[,1:2])),
         princomp(rplus(sa.lognormals[,1:2]))$loadings[,1],
         col="blue")

# }