r - 包装 ggplot2 文本以适合绘图宽度

Question

我想找到一种方法来自动包装 ggplot 标题(或副标题或标题)以占据整个绘图宽度然后换行。

A previous question处理如何使用包装函数很好地包装代码，但您仍然必须指定 width=手动。如何重写此包装函数以根据绘图的绘图宽度自动包装文本？

到目前为止我的代码:

wrapper <- function(x, ...)  {   
  paste(strwrap(x, ...), collapse = "\n") 
}

library("ggplot2")

my_title <- "This is a really long title of a plot that I want to nicely wrap and fit the plot width without having to manually add the backslash n, or having to specify with= manually"

ggplot(data = cars, aes(x = speed, y = dist)) +    
  geom_smooth() +   
  labs(title = wrapper(my_title, width = 100))

我的想法:以某种方式从 ggplot 中提取绘图宽度，然后将其包含在包装函数中，可能是这样的:

plot_width <- ???

wrapper <- function(x)  {   
  paste(strwrap(x, width = plot_width), collapse = "\n") 
}

我怎样才能做到这一点？

或者，还有更好的方法？

Answer 1

您需要提取设备宽度(使用 dev.size 函数)。你可以使用 wrapper函数 where 参数 dev_width是当前设备的宽度。但是，您可能仍然需要调整 strwrap 的宽度。使用 dev_scaler参数(大约 12 左右的值对我来说大部分时间都有效)。

#' @param label character string to wrap
#' @param dev_width numeric value specifying width of current device
#' @param dev_scaler numeric value to scale dev_width (might be around ~12)
#' 
wrapper <- function(label, dev_width = dev.size("in")[1], dev_scaler = 12)  {   
  paste(strwrap(label, dev_width * dev_scaler), collapse = "\n") 
}

ggplot(data = cars, aes(x = speed, y = dist)) +    
  geom_smooth() +   
  labs(title = wrapper(my_title))