Add observation number in ggboxplot or similar functions?

[ShixiangWang]

Expected behavior

A new feature that implemented in the ggboxplot or similar function to support the view of the observation number in the plot. It's useful in many cases for publication-ready plots.

Actual behavior

I cannot find corresponding options.

Steps to reproduce the problem

# Load data
data("ToothGrowth")
df <- ToothGrowth

# Basic plot
# +++++++++++++++++++++++++++
# width: change box plots width
ggboxplot(df, x = "dose", y = "len", width = 0.8)

Is it possible to add a new option, e.g., show_number to show the observation number alongside the group text? So the 0.5 would be 0.5 (n=20) or similar. If there are better position for showing the number could also be considered.

ggboxplot(df, x = "dose", y = "len", width = 0.8, show_number = TRUE)

> library(dplyr)

Attaching package: ‘dplyr’

The following object is masked from ‘package:Biobase’:

    combine

The following objects are masked from ‘package:BiocGenerics’:

    combine, intersect, setdiff, union

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

> df |> group_by(dose) |> tally()
# A tibble: 3 × 2
   dose     n
  <dbl> <int>
1   0.5    20
2   1      20
3   2      20