# Plot the rose histogram first:
rose(san_andreas$azi, dots = TRUE, stack = TRUE, dot_cex = 0.5, dot_pch = 21)
# Add density curve outside of main plot:
plot_density(san_andreas$azi,
kappa = 100, col = "#51127CFF", shrink = 1.5,
norm.density = FALSE
)
# Plot density inside plot only:
plot_density(san_andreas$azi,
kappa = 100, col = "#51127CFF", add = FALSE,
scale = .5, shrink = 2, norm.density = TRUE, grid = TRUE
)
Run the code above in your browser using DataLab