Как я могу наложить значения на гибкие минибары? - PullRequest
Новая
       47

Как я могу наложить значения на гибкие минибары?

0 голосов
/ 07 марта 2020

Самое близкое, что я могу получить с помощью flextable, это:

enter image description here

То, чего я хотел бы достичь, это что-то вроде этого - с ggplot2 :

enter image description here

Есть идеи? или это запрос функции?

Код, используемый для генерации гибкой таблицы: 


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
...