x <- correlation(mtcars, redundant = TRUE) # Generate full matrix
x <- cor_lower(x)
if (require("ggplot2")) {
ggplot(x, aes(x = Parameter2, y = Parameter1, fill = r)) +
geom_tile()
}
# Sorted
x <- correlation(mtcars, redundant = TRUE) # Generate full matrix
x <- cor_sort(x)
x <- cor_lower(x)
if (require("ggplot2")) {
ggplot(x, aes(x = Parameter2, y = Parameter1, fill = r)) +
geom_tile()
}
Run the code above in your browser using DataLab