Add label with final ")"

[BernardoChomboAlvarez]

This is just a request. It would be amazing that the subplot labels could also have a final ")". This will make the plots even more close to publication level withouttoo much edition using other software for .svg's.

What I mean is that the user could use labels = "AUTO" and another option like label_format to give any type of labeling to the subplot labels.

[BernardoChomboAlvarez]

`
plot_grid <- function (..., plotlist = NULL, align = c("none", "h", "v", "hv"),
label_format_fun = NULL,
axis = c("none", "l", "r", "t", "b", "lr", "tb", "tblr"),
nrow = NULL, ncol = NULL, rel_widths = 1, rel_heights = 1,
labels = NULL, label_size = 14, label_fontfamily = NULL,
label_fontface = "bold", label_colour = NULL, label_x = 0,
label_y = 1, hjust = -0.5, vjust = 1.5, scale = 1, greedy = TRUE,
byrow = TRUE, cols = NULL, rows = NULL)
{
plots <- c(list(...), plotlist)
num_plots <- length(plots)

if (!is.null(cols)) warning("Argument 'cols' is deprecated. Use 'ncol' instead.")
if (!is.null(rows)) warning("Argument 'rows' is deprecated. Use 'nrow' instead.")

scale <- rep_len(scale, num_plots)
if (sum(scale <= 0) > 1) stop("Argument 'scale' needs to be greater than 0.")

if (!is.null(ncol)) cols <- ncol
if (!is.null(nrow)) rows <- nrow
if (is.null(cols) && is.null(rows)) {
    cols <- ceiling(sqrt(num_plots))
    rows <- ceiling(num_plots/cols)
}
if (is.null(cols)) cols <- ceiling(num_plots/rows)
if (is.null(rows)) rows <- ceiling(num_plots/cols)

if (!isTRUE(byrow)) {
    plots <- plots[c(t(matrix(c(1:num_plots, rep(NA, (rows*cols) - num_plots)), nrow = rows, byrow = FALSE)))]
    labels <- labels[c(t(matrix(c(1:num_plots, rep(NA, (rows*cols) - num_plots)), nrow = rows, byrow = FALSE)))]
}

grobs <- align_plots(plotlist = plots, align = align, axis = axis, greedy = greedy)

if ("AUTO" %in% labels) labels <- LETTERS[1:num_plots]
else if ("auto" %in% labels) labels <- letters[1:num_plots]

## Apply custom label formatting if provided
if (!is.null(label_format_fun) && is.function(label_format_fun)) {
    labels <- label_format_fun(labels)
}

hjust <- rep_len(hjust, length(labels))
vjust <- rep_len(vjust, length(labels))
label_x <- rep_len(label_x, length(labels))
label_y <- rep_len(label_y, length(labels))
rel_heights <- rep(rel_heights, length.out = rows)
rel_widths <- rep(rel_widths, length.out = cols)

x_deltas <- rel_widths / sum(rel_widths)
y_deltas <- rel_heights / sum(rel_heights)
xs <- cumsum(rel_widths)/sum(rel_widths) - x_deltas
ys <- 1 - cumsum(rel_heights)/sum(rel_heights)

p <- ggdraw()
col_count <- 0
row_count <- 1

for (i in 1:(rows*cols)) {
    if (i > num_plots) break
    x_delta <- x_deltas[col_count + 1]
    y_delta <- y_deltas[row_count]
    x <- xs[col_count + 1]
    y <- ys[row_count]
    
    p_next <- grobs[[i]]
    if (!is.null(p_next)) {
        p <- p + draw_grob(p_next, x, y, x_delta, y_delta, scale[i])
    }
    
    if (i <= length(labels)) {
        p <- p + draw_plot_label(labels[i],
                                 x + label_x[i]*x_delta,
                                 y + label_y[i]*y_delta,
                                 size = label_size,
                                 family = label_fontfamily,
                                 fontface = label_fontface,
                                 colour = label_colour,
                                 hjust = hjust[i],
                                 vjust = vjust[i])
    }
    
    col_count <- col_count + 1
    if (col_count >= cols) {
        col_count <- 0
        row_count <- row_count + 1
    }
}

return(p)

}
`

So at the end the call would also allow:
plot_grid(p1,p2,p3, labels = "AUTO", label_format_fun = function(x) paste0(x,")"))