Самое близкое, что я могу получить с помощью flextable, это:
То, чего я хотел бы достичь, это что-то вроде этого - с ggplot2 :
Есть идеи? или это запрос функции?
Код, используемый для генерации гибкой таблицы:
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