straight {compositions}

Draws straight lines.

Description

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

Usage

          straight(x,...)
          ## S3 method for class 'acomp'
straight(x,d,...,steps=30,aspanel=FALSE)
          ## S3 method for class 'rcomp'
straight(x,d,...,steps=30,aspanel=FALSE)
          ## S3 method for class 'aplus'
straight(x,d,...,steps=30,aspanel=FALSE)
          ## S3 method for class 'rplus'
straight(x,d,...,steps=30,aspanel=FALSE)
          ## S3 method for class '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).

Author(s)

K.Gerald v.d. Boogaart http://www.stat.boogaart.de

See Also

plot.acomp,lines.acomp

Examples

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")