Styjun

I have the following data and plot:

library(rcdimple)
df<- data.frame(values=rnorm(5, mean = 5,sd = 2),
labels=c("Short Label", "Medium Laaabel", "Looonnnnnggg Laaaaabbbeeeell",
 "The quick brown fox jumped over the lazy dog",
 "noSpacesLongLabelThatCanHopefullyBeSplitToo"))

dimple(
 labels ~ values,
 groups = "labels",
 data = df,
 type = "bar"
) %>%
 xAxis(type = "addMeasureAxis", title="Just An Axis Label") %>%
 #good test of orderRule on y instead of x
 yAxis(type = "addCategoryAxis", orderRule = "values", title="Wrap These Labels") %>%
 add_legend(
 x = 0,
 y = 10,
 width = "100%",
 height = 30,
 horizontalAlign = "right"
 ) %>%
 rcdimple::set_bounds("40.5%", "8.5%", "90%", "85%") %>%
 rcdimple::add_title(html=paste0("<h4>How Could I wrap long labels?</h4>" ))

In order to fit the labels, I have had to give a considerably large chunk of the plotting area (40.5%) to the labels, and not the bars. I would love to be able to wrap the labels and give the bars in the bar plot more space.

I am wondering if it is possible to do this, and if anyone may have a solution? So far I have tried, to no avail:

# 1. Putting in a "<br>" where desired after a space

df$labels<-stringr::str_replace_all(stringr::str_wrap(df$labels, width = 25), "\n", " <br> ")

# Wrapping it all in HTML, even putting that inside eval(parse(text=df$labels))....

df$labels<- shQuote(paste0('htmltools::HTML("',stringr::str_replace_all(stringr::str_wrap(df$labels, width = 25), "\n", " <br> "),'")'), type = "cmd")

Any help is greatly appreciated. Thank you in advance. -NF