Last updated on 2025-09-13 00:51:24 CEST.
| Package | ERROR | OK |
|---|---|---|
| ggstatsplot | 1 | 12 |
| see | 4 | 9 |
| statsExpressions | 13 |
Current CRAN status: ERROR: 1, OK: 12
Version: 0.13.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [198s/102s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> # graphics engine changed in this version, and so snapshots generated on
> # previous R version won't work
> if (getRversion() >= "4.4.0") {
+ library(testthat)
+ suppressPackageStartupMessages(library(ggstatsplot))
+ test_check("ggstatsplot")
+ }
Starting 2 test processes
[ FAIL 1 | WARN 7 | SKIP 47 | PASS 8 ]
══ Skipped tests (47) ══════════════════════════════════════════════════════════
• On CRAN (47): 'test-combine-plots.R:19:5', 'test-extract-stats.R:8:5',
'test-ggbetweenstats.R:11:5', 'test-ggbetweenstats.R:64:5',
'test-ggbetweenstats.R:95:5', 'test-ggcoefstats.R:4:3',
'test-ggcoefstats.R:13:3', 'test-ggcoefstats.R:63:3',
'test-ggcoefstats.R:98:5', 'test-ggcoefstats.R:145:5',
'test-ggcoefstats.R:164:5', 'test-ggcorrmat.R:5:5', 'test-ggcorrmat.R:24:5',
'test-ggcorrmat.R:67:5', 'test-ggcorrmat.R:92:5', 'test-ggbarstats.R:22:5',
'test-ggbarstats.R:66:5', 'test-ggbarstats.R:166:5',
'test-ggbarstats.R:208:5', 'test-ggbarstats.R:225:5',
'test-ggbarstats.R:251:5', 'test-ggdotplotstats.R:23:5',
'test-ggdotplotstats.R:43:5', 'test-ggdotplotstats.R:104:5',
'test-gghistostats.R:7:5', 'test-gghistostats.R:26:5',
'test-gghistostats.R:51:5', 'test-gghistostats.R:95:5',
'test-ggscatterstats.R:7:5', 'test-ggscatterstats.R:26:5',
'test-ggscatterstats.R:54:3', 'test-ggscatterstats.R:112:5',
'test-ggscatterstats.R:142:5', 'test-ggwithinstats.R:12:5',
'test-ggwithinstats.R:50:5', 'test-ggwithinstats.R:81:5',
'test-pairwise-ggsignif.R:7:5', 'test-pairwise-ggsignif.R:162:5',
'test-pairwise-ggsignif.R:318:5', 'test-ggpiestats.R:21:5',
'test-ggpiestats.R:77:5', 'test-ggpiestats.R:152:5',
'test-ggpiestats.R:196:5', 'test-ggpiestats.R:204:5',
'test-ggpiestats.R:249:5', 'test-utils.R:7:5', 'test-utils.R:22:5'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-extract-stats.R:83:5'): checking if extract_stats works for grouped plots ──
<purrr_error_indexed/rlang_error/error/condition>
Error in `purrr::map(seq_along(p), ~purrr::pluck(p, .x))`: i In index: 1.
Caused by error in `pluck_raw()`:
! Index 1 must be a string, not an integer.
Backtrace:
▆
1. └─testthat::expect_snapshot(...) at test-extract-stats.R:83:5
2. └─rlang::cnd_signal(state$error)
[ FAIL 1 | WARN 7 | SKIP 47 | PASS 8 ]
Deleting unused snapshots:
• ggbarstats/changing-aesthetics-works.svg
• ggbarstats/checking-count-labels.svg
• ggbarstats/checking-paired-two-way-table-with-na.svg
• ggbarstats/checking-paired-two-way-table-without-na.svg
• ggbarstats/checking-percentage-and-count-labels.svg
• ggbarstats/checking-unpaired-two-way-table-with-na.svg
• ggbarstats/label-repelling-works.svg
• ggbarstats/prop-test-fails-with-dropped-levels.svg
• ggbetweenstats/default-plot-as-expected.svg
• ggbetweenstats/mean-shown-with-scarce-data.svg
• ggbetweenstats/plot-with-outliers-as-expected.svg
• ggbetweenstats/specific-geoms-removed.svg
• ggcoefstats/chi2-statistic.svg
• ggcoefstats/f-statistic-with-omega.svg
• ggcoefstats/f-statistic.svg
• ggcoefstats/meta-analysis-works.svg
• ggcoefstats/sorting-works.svg
• ggcoefstats/z-statistic.svg
• ggcorrmat/applying-ggplot2-function-works.svg
• ggcorrmat/non-parametric-correlation-with-nas.svg
• ggcorrmat/with-nas.svg
• ggdotplotstats/further-modification-with-ggplot-works.svg
• ggdotplotstats/robust-with-na.svg
• gghistostats/modification-with-ggplot2-works.svg
• gghistostats/robust-with-na.svg
• ggpiestats/changing-aesthetics-works.svg
• ggpiestats/checking-count-labels.svg
• ggpiestats/checking-one-way-table-with-na.svg
• ggpiestats/checking-paired-two-way-table-with-na.svg
• ggpiestats/checking-paired-two-way-table-without-na.svg
• ggpiestats/checking-percentage-and-count-labels.svg
• ggpiestats/checking-unpaired-two-way-table-with-na.svg
• ggpiestats/checking-unpaired-two-way-table-without-na.svg
• ggpiestats/empty-groups-in-factors-not-dropped.svg
• ggpiestats/grouped-ggpiestats-with-two-way-table.svg
• ggpiestats/label-repelling-works.svg
• ggpiestats/prop-test-fails-with-dropped-levels.svg
• ggscatterstats/aesthetic-modifications-work.svg
• ggscatterstats/no-label-variable-but-expression.svg
• ggscatterstats/robust-correlation-with-nas.svg
• ggwithinstats/centrality-path-can-be-turned-off.svg
• ggwithinstats/defaults-plots-more-than-two-groups.svg
• ggwithinstats/defaults-plots-two-groups.svg
• ggwithinstats/grouped-plots-default.svg
• pairwise-ggsignif/between-bayes.svg
• pairwise-ggsignif/between-non-parametric-all.svg
• pairwise-ggsignif/between-non-parametric-only-non-significant.svg
• pairwise-ggsignif/between-non-parametric-only-significant.svg
• pairwise-ggsignif/between-parametric-all.svg
• pairwise-ggsignif/between-parametric-only-significant.svg
• pairwise-ggsignif/between-robust-all.svg
• pairwise-ggsignif/between-robust-only-non-significant.svg
• pairwise-ggsignif/between-robust-only-significant.svg
• pairwise-ggsignif/within-bayes.svg
• pairwise-ggsignif/within-non-parametric-all.svg
• pairwise-ggsignif/within-non-parametric-only-non-significant.svg
• pairwise-ggsignif/within-non-parametric-only-significant.svg
• pairwise-ggsignif/within-parametric-all.svg
• pairwise-ggsignif/within-parametric-only-significant.svg
• pairwise-ggsignif/within-robust-all.svg
• pairwise-ggsignif/within-robust-only-non-significant.svg
• pairwise-ggsignif/within-robust-only-significant.svg
Error: Test failures
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Current CRAN status: ERROR: 4, OK: 9
Version: 0.11.0
Check: examples
Result: ERROR
Running examples in ‘see-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: geom_from_list
> ### Title: Create ggplot2 geom(s) from a list
> ### Aliases: geom_from_list geoms_from_list
>
> ### ** Examples
>
> ## Don't show:
> if (require("ggside") && require("ggplot2")) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf
+ ## End(Don't show)
+ library(ggplot2)
+
+ # Example 1 (basic geoms and labels) --------------------------
+ l1 <- list(
+ geom = "point",
+ data = mtcars,
+ aes = list(x = "mpg", y = "wt", size = "hp", color = "hp"),
+ show.legend = c("size" = FALSE)
+ )
+ l2 <- list(
+ geom = "labs",
+ title = "A Title"
+ )
+
+ ggplot() +
+ geom_from_list(l1) +
+ geom_from_list(l2)
+
+ ggplot() +
+ geoms_from_list(list(l1 = l1, l2 = l2))
+
+ # Example 2 (Violin, boxplots, ...) --------------------------
+ l1 <- list(
+ geom = "violin",
+ data = iris,
+ aes = list(x = "Species", y = "Sepal.Width")
+ )
+ l2 <- list(
+ geom = "boxplot",
+ data = iris,
+ aes = list(x = "Species", y = "Sepal.Width"),
+ outlier.shape = NA
+ )
+ l3 <- list(
+ geom = "jitter",
+ data = iris,
+ width = 0.1,
+ aes = list(x = "Species", y = "Sepal.Width")
+ )
+
+ ggplot() +
+ geom_from_list(l1) +
+ geom_from_list(l2) +
+ geom_from_list(l3)
+
+ # Example 3 (2D density) --------------------------
+ ggplot() +
+ geom_from_list(list(
+ geom = "density_2d", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length")
+ ))
+ ggplot() +
+ geom_from_list(list(
+ geom = "density_2d_filled", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length")
+ ))
+ ggplot() +
+ geom_from_list(list(
+ geom = "density_2d_polygon", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length")
+ ))
+ ggplot() +
+ geom_from_list(list(
+ geom = "density_2d_raster", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length")
+ )) +
+ scale_x_continuous(expand = c(0, 0)) +
+ scale_y_continuous(expand = c(0, 0))
+
+ # Example 4 (facet and coord flip) --------------------------
+
+ ggplot(iris, aes(x = Sepal.Length, y = Petal.Width)) +
+ geom_point() +
+ geom_from_list(list(geom = "hline", yintercept = 2)) +
+ geom_from_list(list(geom = "coord_flip")) +
+ geom_from_list(list(geom = "facet_wrap", facets = "~ Species", scales = "free"))
+
+ # Example 5 (theme and scales) --------------------------
+ ggplot(iris, aes(x = Sepal.Length, y = Petal.Width, color = Species)) +
+ geom_point() +
+ geom_from_list(list(geom = "scale_color_viridis_d", option = "inferno")) +
+ geom_from_list(list(geom = "theme", legend.position = "top"))
+
+ ggplot(iris, aes(x = Sepal.Length, y = Petal.Width, color = Species)) +
+ geom_point() +
+ geom_from_list(list(geom = "scale_color_material_d", palette = "rainbow")) +
+ geom_from_list(list(geom = "theme_void"))
+
+ # Example 5 (Smooths and side densities) --------------------------
+
+ ggplot(iris, aes(x = Sepal.Length, y = Petal.Width)) +
+ geom_from_list(list(geom = "point")) +
+ geom_from_list(list(geom = "smooth", color = "red")) +
+ geom_from_list(list(aes = list(x = "Sepal.Length"), geom = "ggside::geom_xsidedensity")) +
+ geom_from_list(list(geom = "ggside::scale_xsidey_continuous", breaks = NULL))
+ ## Don't show:
+ }) # examplesIf
Loading required package: ggside
Loading required package: ggplot2
> library(ggplot2)
> l1 <- list(geom = "point", data = mtcars, aes = list(x = "mpg", y = "wt",
+ size = "hp", color = "hp"), show.legend = c(size = FALSE))
> l2 <- list(geom = "labs", title = "A Title")
> ggplot() + geom_from_list(l1) + geom_from_list(l2)
> ggplot() + geoms_from_list(list(l1 = l1, l2 = l2))
> l1 <- list(geom = "violin", data = iris, aes = list(x = "Species", y = "Sepal.Width"))
> l2 <- list(geom = "boxplot", data = iris, aes = list(x = "Species", y = "Sepal.Width"),
+ outlier.shape = NA)
> l3 <- list(geom = "jitter", data = iris, width = 0.1, aes = list(x = "Species",
+ y = "Sepal.Width"))
> ggplot() + geom_from_list(l1) + geom_from_list(l2) + geom_from_list(l3)
Warning in geom_from_list(l2) :
Ignoring unknown parameters: `outlier.shape`
> ggplot() + geom_from_list(list(geom = "density_2d", data = iris, aes = list(x = "Sepal.Width",
+ y = "Petal.Length")))
> ggplot() + geom_from_list(list(geom = "density_2d_filled", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length")))
> ggplot() + geom_from_list(list(geom = "density_2d_polygon", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length")))
> ggplot() + geom_from_list(list(geom = "density_2d_raster", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length"))) + scale_x_continuous(expand = c(0,
+ 0)) + scale_y_continuous(expand = c(0, 0))
Error in `geom_from_list()`:
! Problem while mapping stat to aesthetics.
ℹ Error occurred in the 1st layer.
Caused by error:
! Aesthetics must be valid computed stats.
✖ The following aesthetics are invalid:
• `fill = after_stat(density)`
ℹ Did you map your stat in the wrong layer?
Backtrace:
▆
1. └─(if (getRversion() >= "3.4") withAutoprint else force)(...)
2. └─base::source(...)
3. ├─base::print(yy$value)
4. └─ggplot2 (local) `print.ggplot2::ggplot`(yy$value)
5. ├─ggplot2::ggplot_build(x)
6. └─ggplot2 (local) `ggplot_build.ggplot2::ggplot`(x)
7. └─ggplot2:::by_layer(...)
8. ├─rlang::try_fetch(...)
9. │ ├─base::tryCatch(...)
10. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
11. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
12. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
13. │ └─base::withCallingHandlers(...)
14. └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
15. └─l$map_statistic(d, plot)
16. └─ggplot2 (local) map_statistic(..., self = self)
17. └─ggplot2:::check_nondata_cols(...)
18. └─cli::cli_abort(c(problem, issues, i = hint), call = NULL)
19. └─rlang::abort(...)
Execution halted
Examples with CPU (user + system) or elapsed time > 5s
user system elapsed
add_plot_attributes 6.43 0.512 8.487
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.11.0
Check: examples
Result: ERROR
Running examples in ‘see-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: geom_from_list
> ### Title: Create ggplot2 geom(s) from a list
> ### Aliases: geom_from_list geoms_from_list
>
> ### ** Examples
>
> ## Don't show:
> if (require("ggside") && require("ggplot2")) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf
+ ## End(Don't show)
+ library(ggplot2)
+
+ # Example 1 (basic geoms and labels) --------------------------
+ l1 <- list(
+ geom = "point",
+ data = mtcars,
+ aes = list(x = "mpg", y = "wt", size = "hp", color = "hp"),
+ show.legend = c("size" = FALSE)
+ )
+ l2 <- list(
+ geom = "labs",
+ title = "A Title"
+ )
+
+ ggplot() +
+ geom_from_list(l1) +
+ geom_from_list(l2)
+
+ ggplot() +
+ geoms_from_list(list(l1 = l1, l2 = l2))
+
+ # Example 2 (Violin, boxplots, ...) --------------------------
+ l1 <- list(
+ geom = "violin",
+ data = iris,
+ aes = list(x = "Species", y = "Sepal.Width")
+ )
+ l2 <- list(
+ geom = "boxplot",
+ data = iris,
+ aes = list(x = "Species", y = "Sepal.Width"),
+ outlier.shape = NA
+ )
+ l3 <- list(
+ geom = "jitter",
+ data = iris,
+ width = 0.1,
+ aes = list(x = "Species", y = "Sepal.Width")
+ )
+
+ ggplot() +
+ geom_from_list(l1) +
+ geom_from_list(l2) +
+ geom_from_list(l3)
+
+ # Example 3 (2D density) --------------------------
+ ggplot() +
+ geom_from_list(list(
+ geom = "density_2d", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length")
+ ))
+ ggplot() +
+ geom_from_list(list(
+ geom = "density_2d_filled", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length")
+ ))
+ ggplot() +
+ geom_from_list(list(
+ geom = "density_2d_polygon", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length")
+ ))
+ ggplot() +
+ geom_from_list(list(
+ geom = "density_2d_raster", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length")
+ )) +
+ scale_x_continuous(expand = c(0, 0)) +
+ scale_y_continuous(expand = c(0, 0))
+
+ # Example 4 (facet and coord flip) --------------------------
+
+ ggplot(iris, aes(x = Sepal.Length, y = Petal.Width)) +
+ geom_point() +
+ geom_from_list(list(geom = "hline", yintercept = 2)) +
+ geom_from_list(list(geom = "coord_flip")) +
+ geom_from_list(list(geom = "facet_wrap", facets = "~ Species", scales = "free"))
+
+ # Example 5 (theme and scales) --------------------------
+ ggplot(iris, aes(x = Sepal.Length, y = Petal.Width, color = Species)) +
+ geom_point() +
+ geom_from_list(list(geom = "scale_color_viridis_d", option = "inferno")) +
+ geom_from_list(list(geom = "theme", legend.position = "top"))
+
+ ggplot(iris, aes(x = Sepal.Length, y = Petal.Width, color = Species)) +
+ geom_point() +
+ geom_from_list(list(geom = "scale_color_material_d", palette = "rainbow")) +
+ geom_from_list(list(geom = "theme_void"))
+
+ # Example 5 (Smooths and side densities) --------------------------
+
+ ggplot(iris, aes(x = Sepal.Length, y = Petal.Width)) +
+ geom_from_list(list(geom = "point")) +
+ geom_from_list(list(geom = "smooth", color = "red")) +
+ geom_from_list(list(aes = list(x = "Sepal.Length"), geom = "ggside::geom_xsidedensity")) +
+ geom_from_list(list(geom = "ggside::scale_xsidey_continuous", breaks = NULL))
+ ## Don't show:
+ }) # examplesIf
Loading required package: ggside
Loading required package: ggplot2
> library(ggplot2)
> l1 <- list(geom = "point", data = mtcars, aes = list(x = "mpg", y = "wt",
+ size = "hp", color = "hp"), show.legend = c(size = FALSE))
> l2 <- list(geom = "labs", title = "A Title")
> ggplot() + geom_from_list(l1) + geom_from_list(l2)
> ggplot() + geoms_from_list(list(l1 = l1, l2 = l2))
> l1 <- list(geom = "violin", data = iris, aes = list(x = "Species", y = "Sepal.Width"))
> l2 <- list(geom = "boxplot", data = iris, aes = list(x = "Species", y = "Sepal.Width"),
+ outlier.shape = NA)
> l3 <- list(geom = "jitter", data = iris, width = 0.1, aes = list(x = "Species",
+ y = "Sepal.Width"))
> ggplot() + geom_from_list(l1) + geom_from_list(l2) + geom_from_list(l3)
Warning in geom_from_list(l2) :
Ignoring unknown parameters: `outlier.shape`
> ggplot() + geom_from_list(list(geom = "density_2d", data = iris, aes = list(x = "Sepal.Width",
+ y = "Petal.Length")))
> ggplot() + geom_from_list(list(geom = "density_2d_filled", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length")))
> ggplot() + geom_from_list(list(geom = "density_2d_polygon", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length")))
> ggplot() + geom_from_list(list(geom = "density_2d_raster", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length"))) + scale_x_continuous(expand = c(0,
+ 0)) + scale_y_continuous(expand = c(0, 0))
Error in `geom_from_list()`:
! Problem while mapping stat to aesthetics.
ℹ Error occurred in the 1st layer.
Caused by error:
! Aesthetics must be valid computed stats.
✖ The following aesthetics are invalid:
• `fill = after_stat(density)`
ℹ Did you map your stat in the wrong layer?
Backtrace:
▆
1. └─(if (getRversion() >= "3.4") withAutoprint else force)(...)
2. └─base::source(...)
3. ├─base::print(yy$value)
4. └─ggplot2 (local) `print.ggplot2::ggplot`(yy$value)
5. ├─ggplot2::ggplot_build(x)
6. └─ggplot2 (local) `ggplot_build.ggplot2::ggplot`(x)
7. └─ggplot2:::by_layer(...)
8. ├─rlang::try_fetch(...)
9. │ ├─base::tryCatch(...)
10. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
11. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
12. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
13. │ └─base::withCallingHandlers(...)
14. └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
15. └─l$map_statistic(d, plot)
16. └─ggplot2 (local) map_statistic(..., self = self)
17. └─ggplot2:::check_nondata_cols(...)
18. └─cli::cli_abort(c(problem, issues, i = hint), call = NULL)
19. └─rlang::abort(...)
Execution halted
Examples with CPU (user + system) or elapsed time > 5s
user system elapsed
add_plot_attributes 4.201 0.325 5.543
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.11.0
Check: examples
Result: ERROR
Running examples in ‘see-Ex.R’ failed
The error most likely occurred in:
> ### Name: geom_from_list
> ### Title: Create ggplot2 geom(s) from a list
> ### Aliases: geom_from_list geoms_from_list
>
> ### ** Examples
>
> ## Don't show:
> if (require("ggside") && require("ggplot2")) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf
+ ## End(Don't show)
+ library(ggplot2)
+
+ # Example 1 (basic geoms and labels) --------------------------
+ l1 <- list(
+ geom = "point",
+ data = mtcars,
+ aes = list(x = "mpg", y = "wt", size = "hp", color = "hp"),
+ show.legend = c("size" = FALSE)
+ )
+ l2 <- list(
+ geom = "labs",
+ title = "A Title"
+ )
+
+ ggplot() +
+ geom_from_list(l1) +
+ geom_from_list(l2)
+
+ ggplot() +
+ geoms_from_list(list(l1 = l1, l2 = l2))
+
+ # Example 2 (Violin, boxplots, ...) --------------------------
+ l1 <- list(
+ geom = "violin",
+ data = iris,
+ aes = list(x = "Species", y = "Sepal.Width")
+ )
+ l2 <- list(
+ geom = "boxplot",
+ data = iris,
+ aes = list(x = "Species", y = "Sepal.Width"),
+ outlier.shape = NA
+ )
+ l3 <- list(
+ geom = "jitter",
+ data = iris,
+ width = 0.1,
+ aes = list(x = "Species", y = "Sepal.Width")
+ )
+
+ ggplot() +
+ geom_from_list(l1) +
+ geom_from_list(l2) +
+ geom_from_list(l3)
+
+ # Example 3 (2D density) --------------------------
+ ggplot() +
+ geom_from_list(list(
+ geom = "density_2d", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length")
+ ))
+ ggplot() +
+ geom_from_list(list(
+ geom = "density_2d_filled", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length")
+ ))
+ ggplot() +
+ geom_from_list(list(
+ geom = "density_2d_polygon", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length")
+ ))
+ ggplot() +
+ geom_from_list(list(
+ geom = "density_2d_raster", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length")
+ )) +
+ scale_x_continuous(expand = c(0, 0)) +
+ scale_y_continuous(expand = c(0, 0))
+
+ # Example 4 (facet and coord flip) --------------------------
+
+ ggplot(iris, aes(x = Sepal.Length, y = Petal.Width)) +
+ geom_point() +
+ geom_from_list(list(geom = "hline", yintercept = 2)) +
+ geom_from_list(list(geom = "coord_flip")) +
+ geom_from_list(list(geom = "facet_wrap", facets = "~ Species", scales = "free"))
+
+ # Example 5 (theme and scales) --------------------------
+ ggplot(iris, aes(x = Sepal.Length, y = Petal.Width, color = Species)) +
+ geom_point() +
+ geom_from_list(list(geom = "scale_color_viridis_d", option = "inferno")) +
+ geom_from_list(list(geom = "theme", legend.position = "top"))
+
+ ggplot(iris, aes(x = Sepal.Length, y = Petal.Width, color = Species)) +
+ geom_point() +
+ geom_from_list(list(geom = "scale_color_material_d", palette = "rainbow")) +
+ geom_from_list(list(geom = "theme_void"))
+
+ # Example 5 (Smooths and side densities) --------------------------
+
+ ggplot(iris, aes(x = Sepal.Length, y = Petal.Width)) +
+ geom_from_list(list(geom = "point")) +
+ geom_from_list(list(geom = "smooth", color = "red")) +
+ geom_from_list(list(aes = list(x = "Sepal.Length"), geom = "ggside::geom_xsidedensity")) +
+ geom_from_list(list(geom = "ggside::scale_xsidey_continuous", breaks = NULL))
+ ## Don't show:
+ }) # examplesIf
Loading required package: ggside
Loading required package: ggplot2
> library(ggplot2)
> l1 <- list(geom = "point", data = mtcars, aes = list(x = "mpg", y = "wt",
+ size = "hp", color = "hp"), show.legend = c(size = FALSE))
> l2 <- list(geom = "labs", title = "A Title")
> ggplot() + geom_from_list(l1) + geom_from_list(l2)
> ggplot() + geoms_from_list(list(l1 = l1, l2 = l2))
> l1 <- list(geom = "violin", data = iris, aes = list(x = "Species", y = "Sepal.Width"))
> l2 <- list(geom = "boxplot", data = iris, aes = list(x = "Species", y = "Sepal.Width"),
+ outlier.shape = NA)
> l3 <- list(geom = "jitter", data = iris, width = 0.1, aes = list(x = "Species",
+ y = "Sepal.Width"))
> ggplot() + geom_from_list(l1) + geom_from_list(l2) + geom_from_list(l3)
Warning in geom_from_list(l2) :
Ignoring unknown parameters: `outlier.shape`
> ggplot() + geom_from_list(list(geom = "density_2d", data = iris, aes = list(x = "Sepal.Width",
+ y = "Petal.Length")))
> ggplot() + geom_from_list(list(geom = "density_2d_filled", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length")))
> ggplot() + geom_from_list(list(geom = "density_2d_polygon", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length")))
> ggplot() + geom_from_list(list(geom = "density_2d_raster", data = iris,
+ aes = list(x = "Sepal.Width", y = "Petal.Length"))) + scale_x_continuous(expand = c(0,
+ 0)) + scale_y_continuous(expand = c(0, 0))
Error in `geom_from_list()`:
! Problem while mapping stat to aesthetics.
ℹ Error occurred in the 1st layer.
Caused by error:
! Aesthetics must be valid computed stats.
✖ The following aesthetics are invalid:
• `fill = after_stat(density)`
ℹ Did you map your stat in the wrong layer?
Backtrace:
▆
1. └─(if (getRversion() >= "3.4") withAutoprint else force)(...)
2. └─base::source(...)
3. ├─base::print(yy$value)
4. └─ggplot2 (local) `print.ggplot2::ggplot`(yy$value)
5. ├─ggplot2::ggplot_build(x)
6. └─ggplot2 (local) `ggplot_build.ggplot2::ggplot`(x)
7. └─ggplot2:::by_layer(...)
8. ├─rlang::try_fetch(...)
9. │ ├─base::tryCatch(...)
10. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
11. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
12. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
13. │ └─base::withCallingHandlers(...)
14. └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
15. └─l$map_statistic(d, plot)
16. └─ggplot2 (local) map_statistic(..., self = self)
17. └─ggplot2:::check_nondata_cols(...)
18. └─cli::cli_abort(c(problem, issues, i = hint), call = NULL)
19. └─rlang::abort(...)
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Current CRAN status: OK: 13