diff --git a/DESCRIPTION b/DESCRIPTION index 66235398a..95f349409 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -37,13 +37,13 @@ Imports: ggcorrplot (>= 0.1.4.1), ggplot2 (>= 4.0.1), ggrepel (>= 0.9.6), - ggside (>= 0.4.0), + ggside (>= 0.4.1), ggsignif (>= 0.6.4), glue (>= 1.8.0), - insight (>= 1.4.2), + insight (>= 1.4.3), magrittr (>= 2.0.4), paletteer (>= 1.6.0), - parameters (>= 0.28.2), + parameters (>= 0.28.3), patchwork (>= 1.3.2), performance (>= 0.15.2), purrr (>= 1.2.0), diff --git a/R/ggbarstats.R b/R/ggbarstats.R index 7aa85de14..4101b4961 100644 --- a/R/ggbarstats.R +++ b/R/ggbarstats.R @@ -214,11 +214,12 @@ ggbarstats <- function( #' sample_frac(size = 0.05) #' #' grouped_ggbarstats( -#' data = diamonds_short, -#' x = color, -#' y = clarity, -#' grouping.var = cut, -#' plotgrid.args = list(nrow = 2L) +#' data = diamonds_short, +#' x = color, +#' y = clarity, +#' grouping.var = cut, +#' plotgrid.args = list(nrow = 2L), +#' annotation.args = list(title = "Diamond quality by color and clarity") #' ) #' @export grouped_ggbarstats <- function( diff --git a/R/ggbetweenstats.R b/R/ggbetweenstats.R index b72222fc7..41a9c1419 100644 --- a/R/ggbetweenstats.R +++ b/R/ggbetweenstats.R @@ -352,7 +352,8 @@ ggbetweenstats <- function( #' ggplot.component = scale_y_continuous( #' breaks = seq(1, 9, 1), #' limits = (c(1, 9)) -#' ) +#' ), +#' annotation.args = list(title = "Ratings by genre for different MPAA ratings") #' ) #' @export grouped_ggbetweenstats <- function( diff --git a/R/ggdotplotstats.R b/R/ggdotplotstats.R index 5b836f9b3..85a0449c8 100644 --- a/R/ggdotplotstats.R +++ b/R/ggdotplotstats.R @@ -200,11 +200,12 @@ ggdotplotstats <- function( #' #' # plot #' grouped_ggdotplotstats( -#' data = df, -#' x = cty, -#' y = manufacturer, -#' grouping.var = cyl, -#' test.value = 15.5 +#' data = df, +#' x = cty, +#' y = manufacturer, +#' grouping.var = cyl, +#' test.value = 15.5, +#' annotation.args = list(title = "City mileage by manufacturer for different cylinders") #' ) #' @export grouped_ggdotplotstats <- function( diff --git a/R/ggpiestats.R b/R/ggpiestats.R index 447319aa1..013c05ace 100644 --- a/R/ggpiestats.R +++ b/R/ggpiestats.R @@ -248,7 +248,12 @@ ggpiestats <- function( #' @examplesIf identical(Sys.getenv("NOT_CRAN"), "true") #' set.seed(123) #' # grouped one-sample proportion test -#' grouped_ggpiestats(mtcars, x = cyl, grouping.var = am) +#' grouped_ggpiestats( +#' data = mtcars, +#' x = cyl, +#' grouping.var = am, +#' annotation.args = list(title = "Cylinder distribution by transmission type") +#' ) #' @export grouped_ggpiestats <- function( data, diff --git a/R/ggwithinstats.R b/R/ggwithinstats.R index f058a6ce9..1f4a08f84 100644 --- a/R/ggwithinstats.R +++ b/R/ggwithinstats.R @@ -272,7 +272,8 @@ ggwithinstats <- function( #' grouping.var = gender, #' type = "np", #' # additional modifications for **each** plot using `{ggplot2}` functions -#' ggplot.component = scale_y_continuous(breaks = seq(0, 10, 1), limits = c(0, 10)) +#' ggplot.component = scale_y_continuous(breaks = seq(0, 10, 1), limits = c(0, 10)), +#' annotation.args = list(title = "Desire ratings by condition for each gender") #' ) #' @export grouped_ggwithinstats <- function( diff --git a/codemeta.json b/codemeta.json index 8d70c4558..204d84c69 100644 --- a/codemeta.json +++ b/codemeta.json @@ -385,7 +385,7 @@ "@type": "SoftwareApplication", "identifier": "ggside", "name": "ggside", - "version": ">= 0.4.0", + "version": ">= 0.4.1", "provider": { "@id": "https://cran.r-project.org", "@type": "Organization", @@ -424,7 +424,7 @@ "@type": "SoftwareApplication", "identifier": "insight", "name": "insight", - "version": ">= 1.4.2", + "version": ">= 1.4.3", "provider": { "@id": "https://cran.r-project.org", "@type": "Organization", @@ -463,7 +463,7 @@ "@type": "SoftwareApplication", "identifier": "parameters", "name": "parameters", - "version": ">= 0.28.2", + "version": ">= 0.28.3", "provider": { "@id": "https://cran.r-project.org", "@type": "Organization", @@ -557,7 +557,7 @@ }, "SystemRequirements": null }, - "fileSize": "9310.333KB", + "fileSize": "9311.344KB", "citation": [ { "@type": "ScholarlyArticle", diff --git a/man/grouped_ggbarstats.Rd b/man/grouped_ggbarstats.Rd index 56461c963..dc1983bff 100644 --- a/man/grouped_ggbarstats.Rd +++ b/man/grouped_ggbarstats.Rd @@ -148,11 +148,12 @@ diamonds_short <- ggplot2::diamonds \%>\% sample_frac(size = 0.05) grouped_ggbarstats( - data = diamonds_short, - x = color, - y = clarity, - grouping.var = cut, - plotgrid.args = list(nrow = 2L) + data = diamonds_short, + x = color, + y = clarity, + grouping.var = cut, + plotgrid.args = list(nrow = 2L), + annotation.args = list(title = "Diamond quality by color and clarity") ) \dontshow{\}) # examplesIf} } diff --git a/man/grouped_ggbetweenstats.Rd b/man/grouped_ggbetweenstats.Rd index 94378fc3a..8304a022d 100644 --- a/man/grouped_ggbetweenstats.Rd +++ b/man/grouped_ggbetweenstats.Rd @@ -196,7 +196,8 @@ grouped_ggbetweenstats( ggplot.component = scale_y_continuous( breaks = seq(1, 9, 1), limits = (c(1, 9)) - ) + ), + annotation.args = list(title = "Ratings by genre for different MPAA ratings") ) \dontshow{\}) # examplesIf} } diff --git a/man/grouped_ggdotplotstats.Rd b/man/grouped_ggdotplotstats.Rd index 1eac68de7..5738b34fd 100644 --- a/man/grouped_ggdotplotstats.Rd +++ b/man/grouped_ggdotplotstats.Rd @@ -147,11 +147,12 @@ df <- filter(ggplot2::mpg, cyl \%in\% c("4", "6", "8")) # plot grouped_ggdotplotstats( - data = df, - x = cty, - y = manufacturer, - grouping.var = cyl, - test.value = 15.5 + data = df, + x = cty, + y = manufacturer, + grouping.var = cyl, + test.value = 15.5, + annotation.args = list(title = "City mileage by manufacturer for different cylinders") ) \dontshow{\}) # examplesIf} } diff --git a/man/grouped_ggpiestats.Rd b/man/grouped_ggpiestats.Rd index 8d8252b3b..b77de9fff 100644 --- a/man/grouped_ggpiestats.Rd +++ b/man/grouped_ggpiestats.Rd @@ -135,7 +135,12 @@ For details, see: \dontshow{if (identical(Sys.getenv("NOT_CRAN"), "true")) withAutoprint(\{ # examplesIf} set.seed(123) # grouped one-sample proportion test -grouped_ggpiestats(mtcars, x = cyl, grouping.var = am) +grouped_ggpiestats( + data = mtcars, + x = cyl, + grouping.var = am, + annotation.args = list(title = "Cylinder distribution by transmission type") +) \dontshow{\}) # examplesIf} } \seealso{ diff --git a/man/grouped_ggwithinstats.Rd b/man/grouped_ggwithinstats.Rd index c9d4bc0bf..e3deb822c 100644 --- a/man/grouped_ggwithinstats.Rd +++ b/man/grouped_ggwithinstats.Rd @@ -186,7 +186,8 @@ grouped_ggwithinstats( grouping.var = gender, type = "np", # additional modifications for **each** plot using `{ggplot2}` functions - ggplot.component = scale_y_continuous(breaks = seq(0, 10, 1), limits = c(0, 10)) + ggplot.component = scale_y_continuous(breaks = seq(0, 10, 1), limits = c(0, 10)), + annotation.args = list(title = "Desire ratings by condition for each gender") ) \dontshow{\}) # examplesIf} }