data("jz2017")
res <- ssm_analyze(jz2017, scales = 2:9, measures = "NARPD")
ggcircumplex(octants(), amax = 0.5) +
geom_ssm_arc(
data = res$results,
mapping = ggplot2::aes(
amplitude_min = a_lci, amplitude_max = a_uci,
displacement_min = d_lci, displacement_max = d_uci
),
alpha = 0.4
)
Run the code above in your browser using DataLab