Use expression with a variable r

Question

I am trying to label a plot with the following label:

"Some Assay EC50 (uM)" where the "u" is a micro symbol.

I currently have:

assay <- "Some Assay"
plot(0,xlab=expression(paste(assay," AC50 (",mu,"M)",sep="")))

But that gives: "assay EC50 (uM)" rather than the desired "Some Assay EC50 (uM)".

Suggestions? Thanks.

I also tried:

paste(assay,expression(paste(" AC50 (",mu,"M)",sep="")),sep="")

score 67 · Accepted Answer · answered Feb 25 '13 at 18:55

You want a combination of bquote() and a bit of plotmath fu:

assay <- "Some Assay"
xlab <- bquote(.(assay) ~ AC50 ~ (mu*M))
plot(0, xlab = xlab)

The ~ is a spacing operator and * means juxtapose the contents to the left and right of the operator. In bquote(), anything wrapped in .( ) will be looked up and replaced with the value of the named object; so .(assay) will be replaced in the expression with Some Assay.

score 8 · Answer 2 · answered Dec 04 '18 at 10:31

Using tidy_eval approach you could do

library(rlang)

assay <- "Some Assay"
plot(0,xlab=expr(paste(!!assay," AC50 (",mu,"M)",sep="")))

expr and !! are included in tidyverse, so you don't actually need to load rlang. I just put it there to be explicit about where they come from.

agstudy · Answer 3 · 2013-02-25T19:11:05.690

2

another option using mtext and bquote

plot(0,xlab='')
Lines <- list(bquote(paste(assay," AC50 (",mu,"M)",sep="")))
mtext(do.call(expression, Lines),side=1,line=3)

Note that I set the xlab to null in the first plot.

EDIT No need to call expression, since bquote will create an expression with replacement of elements wrapped in .( ) by their value. So a goodanswer is :

plot(0,xlab='')
Lines <- bquote(paste(.(assay)," AC50 (",mu,"M)",sep=""))
mtext(Lines,side=1,line=3)

edited Feb 25 '13 at 19:11

answered Feb 25 '13 at 18:59

agstudy

119,832
17
199
261

1

That defeats the point of `bquote()` which is to form an expression with replacement of elements wrapped in `.( )` by their value. – Gavin Simpson Feb 25 '13 at 19:05
@GavinSimpson Thanks I get your point. Does it look better now? – agstudy Feb 25 '13 at 19:10
Not sure why, but I had to use `do.call(expression, Lines)` to make expression expanded, using the after-edit suggestion wrote literally the expression. – Kamil S Jaron May 21 '18 at 13:07

QkuCeHBH · Answer 4 · 2013-02-25T19:16:38.677

1

You also could try the poor man's approach:

assay <- "Some Assay"
plot(0, xlab = paste0(assay, " AC50 (µM)"))

It specifies the mu character directly rather than using expressions (and paste0 is just paste with sep = "").

edited Feb 25 '13 at 19:16

answered Feb 25 '13 at 18:58

QkuCeHBH

960
1
9
23

Use expression with a variable r

4 Answers4

Linked

Related