使用粘贴和删除功能评估ggplot中的表达式

Question

我正在尝试在ggplot块中编写这段代码。

ggtitle(expression(atop(bold(paste0("Control rates Vs Mean yield for " , deparse(substitute(field)))), atop(italic("(Anova:TukeyHSD)"), "")))) 

它正在生成此错误

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

，并且如果可行，地块将保持原样：paste0("Control rates Vs Mean yield for ", deparse(substitute(field)))

我该如何正确写这个ggtitle？

Answer 1

也许我们可以使用bquote

library(ggplot2)
field <- "Some Variable"
ggplot() +
    ggtitle(bquote(atop(bold(paste("Control rates Vs Mean yield for ", 
           .(field))), atop(italic("(Anova:TukeyHSD)")))))