Evaluate expression in ggplot with paste and deparse functions

Question

I am trying to write this bit of code in my ggplot block.

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

It is either generating this error

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

and If it works, the plot will have title as it is: paste0("Control rates Vs Mean yield for ", deparse(substitute(field)))

How do I properly write this ggtitle?

akrun · Accepted Answer · 2019-07-14 05:20:04Z

2

May be we can use bquote

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

answered Jul 14, 2019 at 5:20

akrun

891k38 gold badges590 silver badges700 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Evaluate expression in ggplot with paste and deparse functions

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related