if (FALSE) { # require("see")
# \donttest{
rez <- cor_test(mtcars, "mpg", "wt")
layers <- visualisation_recipe(rez, labs = list(x = "Miles per Gallon (mpg)"))
layers
plot(layers)
plot(rez,
show_text = "label",
point = list(color = "#f44336"),
text = list(fontface = "bold"),
show_statistic = FALSE, show_ci = FALSE, stars = TRUE
)
# }
}
if (FALSE) { # require("see")
# \donttest{
rez <- correlation(mtcars)
x <- cor_sort(as.matrix(rez))
layers <- visualisation_recipe(x)
layers
plot(layers)
#' Get more details using `summary()`
x <- summary(rez, redundant = TRUE, digits = 3)
plot(visualisation_recipe(x))
# Customize
x <- summary(rez)
layers <- visualisation_recipe(x,
show_data = "points",
scale = list(range = c(10, 20)),
scale_fill = list(
high = "#FF5722",
low = "#673AB7",
name = "r"
),
text = list(color = "white"),
labs = list(title = "My Plot")
)
plot(layers) + theme_modern()
# }
}
if (FALSE) { # require("see") && require("tidygraph") && require("ggraph")
# \donttest{
rez <- correlation(iris)
layers <- visualisation_recipe(rez)
layers
plot(layers)
# }
}
Run the code above in your browser using DataLab