I have written a function to plot data which will be used for various different
chemistries.
A simplified version is:
plot_data <- function(risk,levels,chem,sd2,measure){
plot(risk, levels,main=paste ("per", sd2, measure, "\n in
usual", chem))
}
The problem is with the title.
This works fine if the variable "chem" is just text, but if it is an
expression then obviously it won't work.
I have experimented with various things and I am at a complete loss for how to
insert an expression into the middle of
a title.
If the expression was going in directly I would use
main=expression(paste("text ", expression, " text")) but
again this
doesn't work.
Can anyone help?
thanks
Emily.
On Thu, 11 Nov 2004, Emily Baldock wrote:> I have written a function to plot data which will be used for various different chemistries. > A simplified version is: > plot_data <- function(risk,levels,chem,sd2,measure){ > plot(risk, levels,main=paste ("per", sd2, measure, "\n in usual", chem)) > } > The problem is with the title. > This works fine if the variable "chem" is just text, but if it is an expression then obviously it won't work. > I have experimented with various things and I am at a complete loss for how to insert an expression into the middle of > a title.With sd2<-10 measure<-quote(mu*g*m^{-3}) chem<-quote(H[2]*SO[4]) You can use plot(1,1,main=bquote("per "*.(sd2)*.(measure)*" in usual "*.(chem))) or plot(1,1,main=substitute("per "*sd2*measure*" in usual "*chem, list(sd2=sd2,measure=measure,chem=chem)) ) You don't get the newlines, someone else will have to work this out. -thomas
Can you be a bit more specific? Exactly what kind of symbol are you trying to put in the title? -roger Emily Baldock wrote:> I have written a function to plot data which will be used for various different chemistries. > A simplified version is: > plot_data <- function(risk,levels,chem,sd2,measure){ > plot(risk, levels,main=paste ("per", sd2, measure, "\n in usual", chem)) > } > The problem is with the title. > This works fine if the variable "chem" is just text, but if it is an expression then obviously it won't work. > I have experimented with various things and I am at a complete loss for how to insert an expression into the middle of > a title. > If the expression was going in directly I would use main=expression(paste("text ", expression, " text")) but again this > doesn't work. > Can anyone help? > thanks > Emily. > > ______________________________________________ > R-help at stat.math.ethz.ch mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html >-- Roger D. Peng http://www.biostat.jhsph.edu/~rpeng/
I am trying to get a subscript into the title.
My expression is quote(bold(apoA[bold("1")]))
I have managed to get something near to what I want with
sd2 <-1.882
measure <- "g/L"
direction <- "increase"
chem <- quote(bold(apoA[bold("1")]))
plot(0,0)
titletxt <- substitute(paste("per ", sd2, "
",measure," ", direction, "\n in usual ",chem),
list(chem = chem,sd2=sd2,measure=measure,direction=direction))
title(main=titletxt,cex.main=1.4,font.main=2)
However, I can't get bold text this way.
Emily.
On 11 Nov 2004 at 12:58, Roger D. Peng wrote:
> Can you be a bit more specific? Exactly what kind of symbol are you
> trying to put in the title?
>
> -roger
>
> Emily Baldock wrote:
> > I have written a function to plot data which will be used for various
different chemistries.
> > A simplified version is:
> > plot_data <- function(risk,levels,chem,sd2,measure){
> > plot(risk, levels,main=paste ("per", sd2, measure,
"\n in usual", chem))
> > }
> > The problem is with the title.
> > This works fine if the variable "chem" is just text, but if
it is an expression then obviously it won't work.
> > I have experimented with various things and I am at a complete loss
for how to insert an expression into the middle of
> > a title. If the expression was going in directly I would use
main=expression(paste("text ", expression, " text")) but
> > again this doesn't work. Can anyone help? thanks Emily.
> >
> > ______________________________________________
> > R-help at stat.math.ethz.ch mailing list
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guide!
http://www.R-project.org/posting-guide.html
> >
>
> --
> Roger D. Peng
> http://www.biostat.jhsph.edu/~rpeng/
>
The existence of "bold" function in base R library is a news for me!
I think that you have to read something about "plotmath" function
(with
it you can write
latex-like expressions).
Best.
A.S.
----------------------------
Alessandro Semeria
Models and Simulations Laboratory
Montecatini Environmental Research Center (Edison Group),
Via Ciro Menotti 48,
48023 Marina di Ravenna (RA), Italy
Tel. +39 544 536811
Fax. +39 544 538663
E-mail: alessandro.semeria@cramont.it
"Emily Baldock" <emily.baldock@ctsu.ox.ac.uk>
Sent by: r-help-bounces@stat.math.ethz.ch
12/11/2004 12.26
Please respond to emily.baldock
To: "Roger D. Peng" <rpeng@jhsph.edu>
cc: r-help@stat.math.ethz.ch
Subject: Re: [R] expressions and paste
I am trying to get a subscript into the title.
My expression is quote(bold(apoA[bold("1")]))
I have managed to get something near to what I want with
sd2 <-1.882
measure <- "g/L"
direction <- "increase"
chem <- quote(bold(apoA[bold("1")]))
plot(0,0)
titletxt <- substitute(paste("per ", sd2, "
",measure," ", direction,
"\n in usual ",chem),
list(chem = chem,sd2=sd2,measure=measure,direction=direction))
title(main=titletxt,cex.main=1.4,font.main=2)
However, I can't get bold text this way.
Emily.
On 11 Nov 2004 at 12:58, Roger D. Peng wrote:
> Can you be a bit more specific? Exactly what kind of symbol are you
> trying to put in the title?
>
> -roger
>
> Emily Baldock wrote:
> > I have written a function to plot data which will be used for various
different chemistries.> > A simplified version is:
> > plot_data <- function(risk,levels,chem,sd2,measure){
> > plot(risk, levels,main=paste ("per", sd2, measure,
"\n in usual",
chem))> > }
> > The problem is with the title.
> > This works fine if the variable "chem" is just text, but if
it is an
expression then obviously it won't work.> > I have experimented with various things and I am at a complete loss
for how to insert an expression into the middle of> > a title. If the expression was going in directly I would use
main=expression(paste("text ", expression, " text"))
but> > again this doesn't work. Can anyone help? thanks Emily.
> >
> > ______________________________________________
> > R-help@stat.math.ethz.ch mailing list
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guide!
http://www.R-project.org/posting-guide.html
> >
>
> --
> Roger D. Peng
> http://www.biostat.jhsph.edu/~rpeng/
>
______________________________________________
R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
[[alternative HTML version deleted]]
Emily,
are you right your code work, but this one maybe work better for you :
sd2 <-"1.882"
measure <- "(g/L)"
direction <- "increase"
chem <- quote(apoA[bold("1")])
plot(0,0)
titletxt <- substitute(paste(bold(per) ," ",
bold(sd2),"
",bold(measure)," ", bold(direction)," ",,bold("in
usual
"),bold(chem)),list(chem =
chem,sd2=sd2,measure=measure,direction=direction))
title(main=titletxt)
Is not elegant but it work!
Best regard
A.S.
----------------------------
Alessandro Semeria
Models and Simulations Laboratory
Montecatini Environmental Research Center (Edison Group),
Via Ciro Menotti 48,
48023 Marina di Ravenna (RA), Italy
Tel. +39 544 536811
Fax. +39 544 538663
E-mail: alessandro.semeria@cramont.it
"Emily Baldock" <emily.baldock@ctsu.ox.ac.uk>
12/11/2004 13.04
Please respond to emily.baldock
To: asemeria@cramont.it
cc:
Subject: Re: [R] expressions and paste
I am using the plotmath function and have read a lot about it!
If you run my code, you will find that it works, the problem isn't with
creating the expression, but with including it
in the title - the chemistry part of the title is bold, it is the rest of
the title I want to get bold.
Emily.
On 12 Nov 2004 at 13:12, asemeria@cramont.it wrote:
>
>
> The existence of "bold" function in base R library is a news for
me!
> I think that you have to read something about "plotmath" function
(with
it you can write > latex-like expressions).
> Best.
> A.S.
>
> ----------------------------
>
> Alessandro Semeria
> Models and Simulations Laboratory
> Montecatini Environmental Research Center (Edison Group),
> Via Ciro Menotti 48,
> 48023 Marina di Ravenna (RA), Italy
> Tel. +39 544 536811
> Fax. +39 544 538663
> E-mail: alessandro.semeria@cramont.it
>
>
>
[[alternative HTML version deleted]]