ggplot in gt rows: handle "empty" space within cells

Dear all,

I have trouble trying to control ggplots aspect within a gt table. I started from this recipe : https://rfortherestofus.com/2023/10/ggplots-in-gt-tables

Below the relevant lines of my code:

Function to create the ggplot

plot_stacked <- function(arg1, arg2) {
# some hidden code
ggplot(
data = dummy_gg,
mapping = aes(
  y = Univers,
  x = PDM,
  fill = fct_reorder(Laboratoire, PDM),
  label = paste0(Laboratoire, " ", round(PDM), "%")
)
) +
geom_bar(stat = "identity", width = 0.4) +
geom_text(position = position_stack(vjust = 0.5), size = 17) +
theme_void() + 
theme(
  legend.position = "none",
  plot.margin = unit(rep(0, 4), "mm")
)
}

Creating the gt table

dummy %>%
gt() %>%
text_transform(
locations = cells_body(columns = "plot"),
fn = function(column) {
  map(
    column,
    \(x) {
      x <- strsplit(x, split = ";")[[1]]
      plot_stacked(x[[1]], x[[2]])
    }
  ) |>
    ggplot_image(height = px(75), aspect_ratio = 8)
}
) %>%
# some hidden code
tab_options(
data_row.padding = px(0)
)

And here is my current output

=> What I'd like to handle are the "empty zones" (aka reduce them to the minimum size) around the horizontal stacked barplots (which I tried to highlight in red on the screenshot). Can this be handled on the gt side? Any tips ?

Best regards

rstudio / gt

ggplot in gt rows: handle "empty" space within cells #1606