包装 ggplot2 文本以适应绘图宽度

Question

我想找到一种方法来自动换行 ggplot 标题（或副标题或字幕）以占据整个绘图宽度，然后换行。

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 函数来实现，其中参数dev_width 是当前设备的宽度。但是，您仍然可能需要使用 dev_scaler 参数调整 strwrap 的宽度（对我来说，大约 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))