R 如何在flextable迷你吧上覆盖值？

我能用flextable得到的最接近的结果是：

我想要达到的是这样的效果——用ggplot2实现：

有什么想法吗？或者这是一个功能请求

用于生成flextable的代码：

library(tidyverse)
library(flextable)


tib <- tibble(v1 = letters[1:4],
              v2 = c(1, 3, 5, 2))


tib %>% 
  flextable()%>% 
  width(j = 1:2, width = c(0.5, 1.5)) %>% 
  mk_par(j = 2,
         value = as_paragraph(as_chunk(v2, formater = function(x) sprintf("%.0f", x)),
                              " ",
                              minibar(value = v2, max = sum(v2))
                              ),
  part = "body")

[2]: https://i.stack.imgur.com/q6jUF.png