The goal of ggstereo is to make stereonet visualizations of 3D orientation information possible using ggplot2. It is currently a work in progress and is under active development.
You can install ggstereo from github with:
# install.packages("remotes")
remotes::install_github("paleolimbot/ggstereo")
Plot points that have a bearing and a dip on a stereonet with an orthographic projection:
library(ggplot2)
library(ggstereo)
df <- data.frame(
bearing = seq(0, 4*180, length.out = 40),
plunge = seq(0, 90, length.out = 40)
)
ggplot(df, aes(bearing, plunge)) +
geom_path(col = "red") +
geom_point(col = "blue") +
coord_bearing_plunge() +
scale_x_bearing() +
theme_bw()
#> Warning: Range calc not implemented
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.