Grouped barplot with text above bars

[jarbet]

When creating a grouped barplot (create.barplot with the groups argument), it is challenging to add text above the bars. The text.above.bars argument gives an error saying it is not supported when using groups.

Here is my current solution:

suppressPackageStartupMessages(library(BoutrosLab.plotting.general));
data(mtcars);
mtcars$gear <- factor(
    x = mtcars$gear,
    levels = 3:5
    );
mtcars$vs <- factor(
    x = mtcars$vs,
    levels = c(0, 1)
    );
barplot.stats <- aggregate(
    x = mpg ~ gear + vs,
    FUN = median,
    data = mtcars
    );
barplot.stats;
#>   gear vs   mpg
#> 1    3  0 15.20
#> 2    4  0 21.00
#> 3    5  0 17.75
#> 4    3  1 21.40
#> 5    4  1 23.60
#> 6    5  1 30.40

##### try adding text using add.text
# Important to sort the data by the xvar, then the groupvar, otherwise labels won't show right
barplot.stats <- barplot.stats[order(barplot.stats$gear, barplot.stats$vs),];
text.x <- rep(1:length(levels(mtcars$gear)), each = 2);

# text.x.offset: controls how much the labels are to the left/right of the xtick mark
text.x.offset <- rep(c(-0.15, 0.15), length(levels(mtcars$gear)));
# y.offset: increase distance between top of bar and text
y.offset <- 2;

yat <- seq(0, 35, 5);
create.barplot(
    formula = mpg ~ gear,
    groups = vs,
    col = c('black', 'grey'),
    data = barplot.stats,
    add.text = TRUE,
    text.x = text.x + text.x.offset,
    text.y = barplot.stats$mpg + y.offset,
    text.labels = barplot.stats$mpg,
    disable.factor.sorting = TRUE,
    ylimits = c(min(yat), max(yat)),
    yaxis.lab = yat,
    yat = yat
    )

^{Created on 2024-09-05 with reprex v2.0.2}