Draws the great circles of planes on an equal area stereonet.
stereo_plane(az, dip, dir = c("strike", "dip"), col = "blue", add = FALSE)
az | A vector of angular measurements in degrees (strike or dip directions) |
---|---|
dip | A vector of dip angles in degrees |
dir | A string indicating which direction is being given: "strike" (default) or "dip" |
col | Color for the great circles |
add | A logical indicating to add or not the great circles to an existing plot |
A stereonet plot
If "strike" is given it assumes it is using the 'right-hand-rule'. This can be added to a stereonet from stereo_pole()
strike <- runif(min = 30, max = 80, n = 20) dip.dir <- s2d(strike) dip <- runif(min = 10, max = 60, n = 20) strike2 <- runif(min = 240, max = 290, n = 20) dip2 <- runif(min = 10, max = 60, n = 20) stereo_plane(strike, dip)stereo_plane(dip.dir, dip, dir = "dip")stereo_plane(strike2, dip2, col = "red", add = TRUE)