Description Usage Arguments Value Bugs Author(s) See Also Examples

This function draws vectors in a 3D plot, in a way that facilitates constructing vector diagrams. It allows vectors to be specified as rows of a matrix, and can draw labels on the vectors.

1 2 3 |

`X` |
a vector or three-column matrix representing a set of geometric vectors; if a matrix, one vector is drawn for each row |

`origin` |
the origin from which they are drawn, a vector of length 3. |

`headlength` |
the |

`ref.length` |
vector length to be used in scaling arrow heads so that they are all the same size; if |

`radius` |
radius of the base of the arrow heads |

`labels` |
a logical or a character vector of labels for the vectors. If |

`cex.lab` |
character expansion applied to vector labels. May be a number or numeric vector corresponding to the the
rows of |

`adj.lab` |
label position relative to the label point as in |

`frac.lab` |
location of label point, as a fraction of the distance between |

`draw` |
if |

`...` |
other arguments passed on to graphics functions. |

invisibly returns the vector `ref.length`

used to scale arrow heads

At present, the color (`color=`

) argument is not handled as expected when more than one vector is to be drawn.

Michael Friendly

`arrows3d`

, codetexts3d, codergl.material

Other vector diagrams: `Proj`

,
`arc`

, `arrows3d`

,
`corner`

, `plot.regvec3d`

,
`pointOnLine`

, `regvec3d`

,
`vectors`

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | ```
vec <- rbind(diag(3), c(1,1,1))
rownames(vec) <- c("X", "Y", "Z", "J")
library(rgl)
open3d()
vectors3d(vec, color=c(rep("black",3), "red"), lwd=2)
# draw the XZ plane, whose equation is Y=0
planes3d(0, 0, 1, 0, col="gray", alpha=0.2)
vectors3d(c(1,1,0), col="green", lwd=2)
# show projections of the unit vector J
segments3d(rbind(c(1,1,1), c(1, 1, 0)))
segments3d(rbind(c(0,0,0), c(1, 1, 0)))
segments3d(rbind(c(1,0,0), c(1, 1, 0)))
segments3d(rbind(c(0,1,0), c(1, 1, 0)))
# show some orthogonal vectors
p1 <- c(0,0,0)
p2 <- c(1,1,0)
p3 <- c(1,1,1)
p4 <- c(1,0,0)
corner(p1, p2, p3, col="red")
corner(p1, p4, p2, col="red")
corner(p1, p4, p3, col="blue")
rgl.bringtotop()
``` |

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.