data("jz2017")
res <- ssm_analyze(jz2017, scales = 2:9, measures = "NARPD")
ggplot2::ggplot(res$results) +
coord_circumplex(amax = 0.5) +
geom_ssm_point(ggplot2::aes(amplitude = a_est, displacement = d_est))
Run the code above in your browser using DataLab