feature request (maybe from another package)

[higgi13425]

Ideally, to have a function able to insert into geom_textbox()
small summary tibbles (2-3 columns by 2-6 rows)
and to have the textbox sized to the appropriate width and height
(using information from the initial tibble)

related to, but a bit fancier than, current issue #36

# Example (can likely be done much more elegantly)

# build a simple table 
iris %>% 
  count(Species) %>% 
  select(n, Species)->
table

# glue together text into a single variable
# ideally would auto-extract colnames to do this, rather than manual gluing
table %>% 
  mutate(text_f = glue("{n} {Species}<br>")) ->
table_f

# count the maximum width in characters
# subtract 4 for "<br>"
char_wide <- max(nchar(table_f$text_f)) - 4

# collapse text to a single text string with linebreaks (except for the last line)
label <- glue_collapse(table_f$text_f) %>% 
  str_extract(pattern = "^.+(?=<br>$)")

# set up locations of text boxes
df <- tibble( label = label,  
              x = c(0.2, .6), 
              y = c(0.8, .5))

# plot text boxes, with width in cm related to character count (plus one for spaces)
ggplot(df) +
  aes(
    x, y, label = label,
    hjust = c(0.5,0.5), vjust = c(0.5,0.5)
    ) +
    geom_textbox(width = unit((char_wide)*0.2, "cm")) +
    xlim(0, 1) + ylim(0, 1)