[R] two lines in axis title combined with 'substitute' command

[N.Hubner at ncmls.ru.nl]

Hi!

Thanks a lot for your help!
I now do have exactly the plot that I wanted!
(I also realized that I have to use the 'text' command outside of the plot function; beginners mistake :-)

Cheers,
Nina

______________________________________________

Dr. Nina Hubner
scientist quantitative proteomics

Dep. of Molecular Biology, Radboud University Nijmegen, The Netherlands
e-mail: n.hubner at ncmls.ru.nl
tel: +31-24-3613655

Visiting address:
NCMLS, Dept of Molecular Biology (route 274)
Geert Grooteplein 26/28
6525 GA Nijmegen
The Netherlands



________________________________________
From: David Winsemius [dwinsemius at comcast.net]
Sent: Thursday, January 03, 2013 5:28 PM
To: Uwe Ligges
Cc: Hubner, Nina; r-help at r-project.org
Subject: Re: [R] two lines in axis title combined with 'substitute' command

On Jan 3, 2013, at 8:00 AM, Uwe Ligges wrote:

>
>
> On 03.01.2013 15:00, N.Hubner at ncmls.ru.nl wrote:
>> Hello,
>>
>> I want to have the x-axis title of my plot in 2 lines, centered:
>>
>> experiment 1:
>> log2(Ratio H/L)
>>
>> I know that in principle that works with '\n'. However, I am also
>> using the 'substitute' command for my axis title. However, it does
>> not make a new line.
>
> You cannot.

That has been my experience and I believe it is documented on the
help(plotmath) page.

> One way out is to use two calls to title(xlab=...., line=...), one
> for each line of the xlab title.

Another way would be with the use of the 'atop' function.

  substitute( atop(
          log[logbase]* ("Ratio L"/"H reverse"),
          italic("experiment 2")
                    ), list(logbase=logbase)
               )
Returns:

atop(log[2] * ("Ratio L"/"H reverse"), italic("experiment 2"))


--
David.
>
> Best,
> Uwe Ligges
>
>
>>
>> What I have so far:
>>
>> logbase <- 2
>> test <- "bait"
>> cellline <- "cellline"
>>
>> plot(
>> log(filteredproteins[["Ratio.H.L.normalized.UW21_FW"]],base=logbase),
>> -
>> log
>> (filteredproteins[["Ratio.H.L.normalized.UW21_REV"]],base=logbase),
>> main= substitute("bait = "* bait *" in "*cellline, list(bait=bait,
>> cellline=cellline)),
>> xlab = substitute(
>> log[logbase]*
>> ("Ratio H"/"L forward")*
>> italic("\n experiment 1"),
>> list(logbase=logbase)
>> ),
>> ylab = substitute(
>> log[logbase]*
>> ("Ratio L"/"H reverse")*
>> italic("\n experiment 2"),
>> list(logbase=logbase)
>> ),
>> col="lightblue",
>> bg="black",
>> pch=16
>> )
>>
>> Thanks for your help!
>> Nina
>>
>>
>>
>> The Radboud University Nijmegen Medical Centre is listed in the
>> Commercial Register of the Chamber of Commerce under file number
>> 41055629.
>>
>>
>>      [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> R-help at r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>>
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.

David Winsemius, MD
Alameda, CA, USA



The Radboud University Nijmegen Medical Centre is listed in the Commercial Register of the Chamber of Commerce under file number 41055629.