rose(san_andreas$azi, dots = TRUE, stack = TRUE, dot_cex = 0.5, dot_pch = 21)
plot_density(san_andreas$azi, kappa = 10, col = "seagreen", shrink = 1.5)
plot_density(san_andreas$azi, kappa = 10, col = "seagreen", add = FALSE, scale = .6)
Run the code above in your browser using DataLab