在换行符中使用bquote（paste（...））

Question

我正在R中绘制图形，并且有图形标题。

我正在尝试使用bquote(paste(...))来正确格式化上标。标题有点长，所以我想将标题分成两行。因此，我将以下代码添加到我的ggplot代码中：

  labs(caption = bquote(paste(r, " = ", .(format(r, digits = 3)), ", ", r^2, " = ",
      .(format(r^2, digits = 3)), "\nData Source: My Source"))))

由于某些原因，仅当我包含换行符转义字符时才会发生错误。这是错误：

Error in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y,  : 
  polygon edge not found

有人知道发生了什么事吗？