Add annotation.args examples to all grouped_ function documentation (#1025)

Updates examples for `grouped_` functions to demonstrate
`annotation.args` usage, addressing documentation gap where some
functions lacked examples of this parameter.

### Changes

- **R source files updated**: `ggbetweenstats.R`, `ggwithinstats.R`,
`ggbarstats.R`, `ggpiestats.R`, `ggdotplotstats.R`
- **Man pages updated**: corresponding `.Rd` files in `man/`

### Example

```r
grouped_ggbetweenstats(
  data = filter(movies_long, genre %in% c("Action", "Comedy"), mpaa %in% c("R", "PG")),
  x = genre,
  y = rating,
  grouping.var = mpaa,
  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")
)
```

### Functions already covered (unchanged)
- `grouped_gghistostats`, `grouped_ggcorrmat`, `grouped_ggscatterstats`

<!-- START COPILOT CODING AGENT SUFFIX -->



<details>

<summary>Original prompt</summary>

> 
> ----
> 
> *This section details on the original issue you should resolve*
> 
> <issue_title>Update all examples for `grouped_` to show how to use
`annotation.args` argument</issue_title>
> <issue_description></issue_description>
> 
> <agent_instructions>Also make sure to update `man/.Rd` files for this
change</agent_instructions>
> 
> ## Comments on the Issue (you are @copilot in this section)
> 
> <comments>
> </comments>
> 


</details>

- Fixes #1024

<!-- START COPILOT CODING AGENT TIPS -->
---

💬 We'd love your input! Share your thoughts on Copilot coding agent in
our [2 minute survey](https://gh.io/copilot-coding-agent-survey).

---------

Co-authored-by: copilot-swe-agent[bot] <[email protected]>
Co-authored-by: IndrajeetPatil <[email protected]>
Co-authored-by: Indrajeet Patil <[email protected]>

Author: Copilot

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),

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(

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(

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(

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,

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(

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",