tests/testthat/test-stat-correlation.R
In aphalo/ggpmisc: Miscellaneous Extensions to 'ggplot2'
context("stat_correlation")
old.out.dec <- options(OutDec = ".")
on.exit(options(old.out.dec), add = TRUE, after = FALSE)
set.seed(4321)
# generate artificial data
my.data <- data.frame(x = (1:100) / 10 + rnorm(n = 100),
y = (1:100) / 5 + rnorm(n = 100))
if (isNamespaceLoaded(name = "package:ggpmisc")) detach(package:ggpmisc, unload = TRUE)
if (isNamespaceLoaded(name = "package:ggpp")) detach(package:ggpp, unload = TRUE)
if (isNamespaceLoaded(name = "package:ggplot2")) detach(package:ggplot2, unload = TRUE)
test_that("corr_noload", {
set.seed(4321)
{ # output under linux does not match snapshots created under Windows
skip_on_os(c("mac", "linux", "solaris"))
vdiffr::expect_doppelganger("stat_correlation_pearson_noload",
ggplot2::ggplot(my.data, ggplot2::aes(x, y)) +
ggplot2::geom_point() +
ggpmisc::stat_correlation(method = "pearson",
mapping =
ggplot2::aes(label = paste(ggplot2::after_stat(r.label),
ggplot2::after_stat(r.confint.label),
ggplot2::after_stat(t.value.label),
ggplot2::after_stat(p.value.label),
ggplot2::after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_correlation_pearson_noload_use_label",
ggplot2::ggplot(my.data, ggplot2::aes(x, y)) +
ggplot2::geom_point() +
ggpmisc::stat_correlation(method = "pearson",
mapping = ggpmisc::use_label(c("R", "R.CI", "t", "P", "n"),
sep = "~~"))
)
vdiffr::expect_doppelganger("stat_correlation_pearson_noload_use_label_lc",
ggplot2::ggplot(my.data, ggplot2::aes(x, y)) +
ggplot2::geom_point() +
ggpmisc::stat_correlation(method = "pearson",
mapping = ggpmisc::use_label(c("cor", "r.ci", "t", "p", "n"),
sep = "~~"))
)
}
vdiffr::expect_doppelganger("stat_correlation_kendall_noload",
ggplot2::ggplot(my.data, ggplot2::aes(x, y)) +
ggplot2::geom_point() +
ggpmisc::stat_correlation(method = "kendall",
r.conf.level = 0.95,
mapping =
ggplot2::aes(label = paste(ggplot2::after_stat(r.label),
ggplot2::after_stat(r.confint.label),
ggplot2::after_stat(z.value.label),
ggplot2::after_stat(p.value.label),
ggplot2::after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_correlation_kendall_noload_use_label",
ggplot2::ggplot(my.data, ggplot2::aes(x, y)) +
ggplot2::geom_point() +
ggpmisc::stat_correlation(method = "kendall",
r.conf.level = 0.95,
mapping = ggpmisc::use_label(c("R", "R.CI", "Z", "P", "n"),
sep = "~~"))
)
vdiffr::expect_doppelganger("stat_correlation_kendall_noload_use_label_lc",
ggplot2::ggplot(my.data, ggplot2::aes(x, y)) +
ggplot2::geom_point() +
ggpmisc::stat_correlation(method = "kendall",
r.conf.level = 0.95,
mapping = ggpmisc::use_label(c("tau", "tau.CI", "z", "p", "n"),
sep = "~~"))
)
vdiffr::expect_doppelganger("stat_correlation_spearman_noload",
ggplot2::ggplot(my.data, ggplot2::aes(x, y)) +
ggplot2::geom_point() +
ggpmisc::stat_correlation(method = "spearman",
r.conf.level = 0.95,
mapping =
ggplot2::aes(label = paste(ggplot2::after_stat(r.label),
ggplot2::after_stat(r.confint.label),
ggplot2::after_stat(S.value.label),
ggplot2::after_stat(p.value.label),
ggplot2::after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_correlation_spearman_noload_use_label",
ggplot2::ggplot(my.data, ggplot2::aes(x, y)) +
ggplot2::geom_point() +
ggpmisc::stat_correlation(method = "spearman",
r.conf.level = 0.95,
mapping = ggpmisc::use_label(c("R", "R.CI", "S", "P", "N"),
sep = "~~"))
)
vdiffr::expect_doppelganger("stat_correlation_spearman_noload_use_label_lc",
ggplot2::ggplot(my.data, ggplot2::aes(x, y)) +
ggplot2::geom_point() +
ggpmisc::stat_correlation(method = "spearman",
r.conf.level = 0.95,
mapping = ggpmisc::use_label(c("rho", "rho.ci", "s", "p", "n"),
sep = "~~"))
)
})
library(ggpmisc)
test_that("corr_load", {
set.seed(4321)
{ # output under linux does not match snapshots created under Windows
skip_on_os(c("mac", "linux", "solaris"))
vdiffr::expect_doppelganger("stat_correlation_pearson_load",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "pearson",
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
}
vdiffr::expect_doppelganger("stat_correlation_kendall_load",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "kendall",
r.conf.level = 0.95,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(z.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_correlation_spearman_load",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "spearman",
r.conf.level = 0.95,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(S.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
{ # output under linux does not match snapshots created under Windows
skip_on_os(c("mac", "linux", "solaris"))
vdiffr::expect_doppelganger("stat_correlation_pearson_small",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "pearson", small.r = TRUE, small.p = TRUE,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
}
})
test_that("corr_exact", {
set.seed(4321)
{ # output under linux does not match snapshots created under Windows
skip_on_os(c("mac", "linux", "solaris"))
vdiffr::expect_doppelganger("stat_correlation_pearson_exact",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "pearson", exact = TRUE,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_correlation_pearson_exact_boot",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "pearson", exact = TRUE,
boot.R = 999,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
}
vdiffr::expect_doppelganger("stat_correlation_kendall_exact",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "kendall", exact = TRUE,
r.conf.level = 0.95,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(z.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_correlation_spearman_exact",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "spearman", exact = TRUE,
r.conf.level = 0.95,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(S.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
})
test_that("corr_continuity", {
set.seed(4321)
{ # output under linux does not match snapshots created under Windows
skip_on_os(c("mac", "linux", "solaris"))
vdiffr::expect_doppelganger("stat_correlation_pearson_cont",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "pearson", continuity = TRUE,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
}
vdiffr::expect_doppelganger("stat_correlation_kendall_cont",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "kendall", continuity = TRUE,
r.conf.level = 0.95,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(z.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_correlation_spearman_cont",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "spearman", continuity = TRUE,
r.conf.level = 0.95,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(S.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
})
test_that("rounding_signif", {
set.seed(4321)
vdiffr::expect_doppelganger("stat_coor_pearson_round",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(r.digits = 3,
p.digits = 4,
t.digits = 4,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_coor_pearson_round2",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(r.digits = 2,
p.digits = 2,
t.digits = 2,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_coor_pearson_round_Inf",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(r.digits = 4,
p.digits = Inf,
t.digits = 4,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_coor_kendall_round",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "kendall",
r.conf.level = 0.95,
r.digits = 3,
p.digits = 4,
t.digits = 4,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(z.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_coor_kendall_round2",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "kendall",
r.conf.level = 0.95,
r.digits = 2,
p.digits = 2,
t.digits = 2,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(z.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_coor_kendall_roundInf",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "kendall",
r.conf.level = 0.95,
r.digits = 2,
p.digits = Inf,
t.digits = 2,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(z.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_coor_spearman_round",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "spearman",
r.conf.level = 0.95,
r.digits = 3,
p.digits = 4,
t.digits = 4,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(S.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_coor_spearman_round2",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "spearman",
r.conf.level = 0.95,
r.digits = 2,
p.digits = 2,
t.digits = 2,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(S.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_coor_spearman_round_Inf",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "spearman",
r.conf.level = 0.95,
r.digits = 2,
p.digits = Inf,
t.digits = 2,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(S.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
})
# Markdown ----------------------------------------------------------------
if (requireNamespace("ggtext", quietly = TRUE)) {
library(ggtext)
test_that("corr_markdown", {
set.seed(4321)
skip_on_os(c("mac", "linux", "solaris"))
vdiffr::expect_doppelganger("stat_correlation_pearson_markdown",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(geom = "richtext",
hjust = 0, vjust = 0,
label.x = 0,
label.y = 21,
method = "pearson",
r.conf.level = NA,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = " ")))
)
vdiffr::expect_doppelganger("stat_correlation_kendall_markdown",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(geom = "richtext",
hjust = 0, vjust = 0,
label.x = 0,
label.y = 21,
method = "kendall",
r.conf.level = 0.95,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(z.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = " ")))
)
vdiffr::expect_doppelganger("stat_correlation_spearman_markdowm",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(geom = "richtext",
hjust = 0, vjust = 0,
label.x = 0,
label.y = 21,
method = "spearman",
r.conf.level = 0.95,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(S.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = " ")))
)
{ # output under linux does not match snapshots created under Windows
skip_on_os(c("mac", "linux", "solaris"))
vdiffr::expect_doppelganger("stat_correlation_pearson_small_markdown",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(geom = "richtext",
hjust = 0, vjust = 0,
label.x = 0,
label.y = 21,
method = "pearson", small.r = TRUE, small.p = TRUE,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label))))
)
}
})
}
aphalo/ggpmisc documentation built on April 13, 2025, 3:24 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("stat_correlation")
old.out.dec <- options(OutDec = ".")
on.exit(options(old.out.dec), add = TRUE, after = FALSE)
set.seed(4321)
# generate artificial data
my.data <- data.frame(x = (1:100) / 10 + rnorm(n = 100),
y = (1:100) / 5 + rnorm(n = 100))
if (isNamespaceLoaded(name = "package:ggpmisc")) detach(package:ggpmisc, unload = TRUE)
if (isNamespaceLoaded(name = "package:ggpp")) detach(package:ggpp, unload = TRUE)
if (isNamespaceLoaded(name = "package:ggplot2")) detach(package:ggplot2, unload = TRUE)
test_that("corr_noload", {
set.seed(4321)
{ # output under linux does not match snapshots created under Windows
skip_on_os(c("mac", "linux", "solaris"))
vdiffr::expect_doppelganger("stat_correlation_pearson_noload",
ggplot2::ggplot(my.data, ggplot2::aes(x, y)) +
ggplot2::geom_point() +
ggpmisc::stat_correlation(method = "pearson",
mapping =
ggplot2::aes(label = paste(ggplot2::after_stat(r.label),
ggplot2::after_stat(r.confint.label),
ggplot2::after_stat(t.value.label),
ggplot2::after_stat(p.value.label),
ggplot2::after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_correlation_pearson_noload_use_label",
ggplot2::ggplot(my.data, ggplot2::aes(x, y)) +
ggplot2::geom_point() +
ggpmisc::stat_correlation(method = "pearson",
mapping = ggpmisc::use_label(c("R", "R.CI", "t", "P", "n"),
sep = "~~"))
)
vdiffr::expect_doppelganger("stat_correlation_pearson_noload_use_label_lc",
ggplot2::ggplot(my.data, ggplot2::aes(x, y)) +
ggplot2::geom_point() +
ggpmisc::stat_correlation(method = "pearson",
mapping = ggpmisc::use_label(c("cor", "r.ci", "t", "p", "n"),
sep = "~~"))
)
}
vdiffr::expect_doppelganger("stat_correlation_kendall_noload",
ggplot2::ggplot(my.data, ggplot2::aes(x, y)) +
ggplot2::geom_point() +
ggpmisc::stat_correlation(method = "kendall",
r.conf.level = 0.95,
mapping =
ggplot2::aes(label = paste(ggplot2::after_stat(r.label),
ggplot2::after_stat(r.confint.label),
ggplot2::after_stat(z.value.label),
ggplot2::after_stat(p.value.label),
ggplot2::after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_correlation_kendall_noload_use_label",
ggplot2::ggplot(my.data, ggplot2::aes(x, y)) +
ggplot2::geom_point() +
ggpmisc::stat_correlation(method = "kendall",
r.conf.level = 0.95,
mapping = ggpmisc::use_label(c("R", "R.CI", "Z", "P", "n"),
sep = "~~"))
)
vdiffr::expect_doppelganger("stat_correlation_kendall_noload_use_label_lc",
ggplot2::ggplot(my.data, ggplot2::aes(x, y)) +
ggplot2::geom_point() +
ggpmisc::stat_correlation(method = "kendall",
r.conf.level = 0.95,
mapping = ggpmisc::use_label(c("tau", "tau.CI", "z", "p", "n"),
sep = "~~"))
)
vdiffr::expect_doppelganger("stat_correlation_spearman_noload",
ggplot2::ggplot(my.data, ggplot2::aes(x, y)) +
ggplot2::geom_point() +
ggpmisc::stat_correlation(method = "spearman",
r.conf.level = 0.95,
mapping =
ggplot2::aes(label = paste(ggplot2::after_stat(r.label),
ggplot2::after_stat(r.confint.label),
ggplot2::after_stat(S.value.label),
ggplot2::after_stat(p.value.label),
ggplot2::after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_correlation_spearman_noload_use_label",
ggplot2::ggplot(my.data, ggplot2::aes(x, y)) +
ggplot2::geom_point() +
ggpmisc::stat_correlation(method = "spearman",
r.conf.level = 0.95,
mapping = ggpmisc::use_label(c("R", "R.CI", "S", "P", "N"),
sep = "~~"))
)
vdiffr::expect_doppelganger("stat_correlation_spearman_noload_use_label_lc",
ggplot2::ggplot(my.data, ggplot2::aes(x, y)) +
ggplot2::geom_point() +
ggpmisc::stat_correlation(method = "spearman",
r.conf.level = 0.95,
mapping = ggpmisc::use_label(c("rho", "rho.ci", "s", "p", "n"),
sep = "~~"))
)
})
library(ggpmisc)
test_that("corr_load", {
set.seed(4321)
{ # output under linux does not match snapshots created under Windows
skip_on_os(c("mac", "linux", "solaris"))
vdiffr::expect_doppelganger("stat_correlation_pearson_load",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "pearson",
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
}
vdiffr::expect_doppelganger("stat_correlation_kendall_load",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "kendall",
r.conf.level = 0.95,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(z.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_correlation_spearman_load",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "spearman",
r.conf.level = 0.95,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(S.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
{ # output under linux does not match snapshots created under Windows
skip_on_os(c("mac", "linux", "solaris"))
vdiffr::expect_doppelganger("stat_correlation_pearson_small",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "pearson", small.r = TRUE, small.p = TRUE,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
}
})
test_that("corr_exact", {
set.seed(4321)
{ # output under linux does not match snapshots created under Windows
skip_on_os(c("mac", "linux", "solaris"))
vdiffr::expect_doppelganger("stat_correlation_pearson_exact",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "pearson", exact = TRUE,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_correlation_pearson_exact_boot",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "pearson", exact = TRUE,
boot.R = 999,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
}
vdiffr::expect_doppelganger("stat_correlation_kendall_exact",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "kendall", exact = TRUE,
r.conf.level = 0.95,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(z.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_correlation_spearman_exact",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "spearman", exact = TRUE,
r.conf.level = 0.95,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(S.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
})
test_that("corr_continuity", {
set.seed(4321)
{ # output under linux does not match snapshots created under Windows
skip_on_os(c("mac", "linux", "solaris"))
vdiffr::expect_doppelganger("stat_correlation_pearson_cont",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "pearson", continuity = TRUE,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
}
vdiffr::expect_doppelganger("stat_correlation_kendall_cont",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "kendall", continuity = TRUE,
r.conf.level = 0.95,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(z.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_correlation_spearman_cont",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "spearman", continuity = TRUE,
r.conf.level = 0.95,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(S.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
})
test_that("rounding_signif", {
set.seed(4321)
vdiffr::expect_doppelganger("stat_coor_pearson_round",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(r.digits = 3,
p.digits = 4,
t.digits = 4,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_coor_pearson_round2",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(r.digits = 2,
p.digits = 2,
t.digits = 2,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_coor_pearson_round_Inf",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(r.digits = 4,
p.digits = Inf,
t.digits = 4,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_coor_kendall_round",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "kendall",
r.conf.level = 0.95,
r.digits = 3,
p.digits = 4,
t.digits = 4,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(z.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_coor_kendall_round2",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "kendall",
r.conf.level = 0.95,
r.digits = 2,
p.digits = 2,
t.digits = 2,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(z.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_coor_kendall_roundInf",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "kendall",
r.conf.level = 0.95,
r.digits = 2,
p.digits = Inf,
t.digits = 2,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(z.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_coor_spearman_round",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "spearman",
r.conf.level = 0.95,
r.digits = 3,
p.digits = 4,
t.digits = 4,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(S.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_coor_spearman_round2",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "spearman",
r.conf.level = 0.95,
r.digits = 2,
p.digits = 2,
t.digits = 2,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(S.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
vdiffr::expect_doppelganger("stat_coor_spearman_round_Inf",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(method = "spearman",
r.conf.level = 0.95,
r.digits = 2,
p.digits = Inf,
t.digits = 2,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(S.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = "~~")))
)
})
# Markdown ----------------------------------------------------------------
if (requireNamespace("ggtext", quietly = TRUE)) {
library(ggtext)
test_that("corr_markdown", {
set.seed(4321)
skip_on_os(c("mac", "linux", "solaris"))
vdiffr::expect_doppelganger("stat_correlation_pearson_markdown",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(geom = "richtext",
hjust = 0, vjust = 0,
label.x = 0,
label.y = 21,
method = "pearson",
r.conf.level = NA,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = " ")))
)
vdiffr::expect_doppelganger("stat_correlation_kendall_markdown",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(geom = "richtext",
hjust = 0, vjust = 0,
label.x = 0,
label.y = 21,
method = "kendall",
r.conf.level = 0.95,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(z.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = " ")))
)
vdiffr::expect_doppelganger("stat_correlation_spearman_markdowm",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(geom = "richtext",
hjust = 0, vjust = 0,
label.x = 0,
label.y = 21,
method = "spearman",
r.conf.level = 0.95,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(S.value.label),
after_stat(p.value.label),
after_stat(n.label),
sep = " ")))
)
{ # output under linux does not match snapshots created under Windows
skip_on_os(c("mac", "linux", "solaris"))
vdiffr::expect_doppelganger("stat_correlation_pearson_small_markdown",
ggplot(my.data, aes(x, y)) +
geom_point() +
stat_correlation(geom = "richtext",
hjust = 0, vjust = 0,
label.x = 0,
label.y = 21,
method = "pearson", small.r = TRUE, small.p = TRUE,
mapping =
aes(label = paste(after_stat(r.label),
after_stat(r.confint.label),
after_stat(t.value.label),
after_stat(p.value.label),
after_stat(n.label))))
)
}
})
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.