library(ggplot2)
library(dplyr, warn.conflicts = FALSE)
alta_coniss <- nested_data(
alta_lake_geochem,
qualifiers = c(age, depth, zone),
key = param,
value = value,
trans = scale
) %>%
nested_chclust_coniss()
ggplot() +
layer_dendrogram(alta_coniss, aes(y = depth)) +
scale_y_reverse()
Run the code above in your browser using DataLab