knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "man/figures/README-", out.width = "100%", dpi = 300 )
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()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.