[R] boxplot with text and symbols on x

[Birgit Lemcke]

Thanks Greg.

A useful solution.

Birgit

Am 02.06.2008 um 23:13 schrieb Greg Snow:

> An alternative way to draw the symbols (or some approximation of  
> them) is to use the my.symbols function from the TeachingDemos  
> package along with ms.male and ms.female (or your improvement of  
> these, also from the TeachingDemos package).  See the 4th example  
> from ?ms.male (or ?ms.female).
>
> Hope this helps,
>
> --
> Gregory (Greg) L. Snow Ph.D.
> Statistical Data Center
> Intermountain Healthcare
> greg.snow at imail.org
> (801) 408-8111
>
>
>
>> -----Original Message-----
>> From: r-help-bounces at r-project.org
>> [mailto:r-help-bounces at r-project.org] On Behalf Of Birgit Lemcke
>> Sent: Thursday, May 29, 2008 6:05 AM
>> To: Gabor Grothendieck
>> Cc: R Hilfe
>> Subject: Re: [R] boxplot with text and symbols on x
>>
>> Thanks that was a huge help.
>>
>> Now I am using this:
>>
>> pdf("InfLengMaxVarHomogeneity.pdf")
>> plot(inflorescence_length_Max~Sex,xaxt="n"  #unterdrückt
>> "normale x- Achse , ylab="inflorescence length max",
>> main="Bartletts Homogeneity for inflorescence length
>> Max",data=FemMal_Sex)
>> Homo<-bartlett.test(FemMal_Sex$inflorescence_length_Max,FemMal
>> _Sex$Sex)
>> text( 2, 500, "Bartlett's K-squared=", col='red',adj = c(1,0)
>> ) text( 2, 500, round(Homo$statistic,digits=5), col='red'
>> ,adj = c(0,0)) text( 2, 480, "df=", col='red',adj = c(1,0) )
>> text( 2, 480, Homo$parameter, col='red' ,adj = c(0,0))
>>
>> text( 2, 460, "p-value=", col='red', adj = c(1,0)) text( 2,
>> 460, round(Homo$p.value,digits=5), col='red', adj = c(0,0))
>> axis(1,at=c(1,2) #Mache punkte auf Achse in Position 1 und 2
>> , lab=expression( "\u2642", "\u2640")) #zeichne dort Mann/Frau  
>> Symbole
>> dev.off()
>>
>>
>> But the symbols do not appear in the pdf. What is the reason
>> for that and how can I create a pdf with the symbols.
>>
>> Thanks again
>>
>> Birgit
>>
>> Am 29.05.2008 um 13:13 schrieb Gabor Grothendieck:
>>
>>> 1. See ?locator
>>> 2. Try this:
>>> plot(1:2, pch = c("\u2640", "\u2642"))
>>>
>>>
>>> On Thu, May 29, 2008 at 4:40 AM, Birgit Lemcke
>>> <birgit.lemcke at systbot.uzh.ch> wrote:
>>>> Hello R-user community!
>>>>
>>>> I am running R 2.7.0 on a Power Book (Tiger). (I am still R and
>>>> statistics
>>>> beginner)
>>>>
>>>> I did the following :
>>>>
>>>> pdf("InLnegthMaxHomogeneity.pdf")
>>>> boxplot(inflorescence_length_Max~Sex, main="Bartletts
>> Homogeneity for
>>>> inflorescence length",data=FemMal_Sex)
>>>> Homo<-bartlett.test(FemMal_Sex$inflorescence_length_Max,FemMal_Sex
>>>> $Sex)
>>>> text( 2, 500, "Bartlett's K-squared=", col='red',adj =
>> c(1,0) ) text(
>>>> 2, 500, round(Homo$statistic,digits=5), col='red' ,adj = c
>>>> (0,0))
>>>> text( 2, 480, "df=", col='red',adj = c(1,0) ) text( 2, 480,
>>>> Homo$parameter, col='red' ,adj = c(0,0))
>>>>
>>>> text( 2, 460, "p-value=", col='red', adj = c(1,0)) text( 2, 460,
>>>> round(Homo$p.value,digits=5), col='red', adj = c(0,0))
>>>>
>>>> dev.off()
>>>>
>>>>
>>>> As I am still not very good in R, I guess it is not the
>> easiest way
>>>> to implement the text and it was kind of fiddling around
>> to find the
>>>> right position for the text.
>>>> I would be glad if somebody would have an easier solution.
>>>>
>>>> My second question is about adding symbols (usual male and female
>>>> symbol) to
>>>> the x-axis to label the boxes.
>>>>
>>>> I would be very glad if somebody could help mw with this.
>>>>
>>>> Many thanks in advance.
>>>>
>>>> Greets
>>>>
>>>> Birgit
>>>>
>>>> Birgit Lemcke
>>>> Institut für Systematische Botanik
>>>> Zollikerstrasse 107
>>>> CH-8008 Zürich
>>>> Switzerland
>>>> Ph: +41 (0)44 634 8351
>>>> birgit.lemcke at systbot.uzh.ch
>>>>
>>>> 175 Jahre UZH
>>>> «staunen.erleben.begreifen. Naturwissenschaft zum
>> Anfassen.» Weitere
>>>> Informationen http://www.175jahre.uzh.ch/naturwissenschaft
>>>>
>>>> ______________________________________________
>>>> 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.
>>>>
>>
>> Birgit Lemcke
>> Institut für Systematische Botanik
>> Zollikerstrasse 107
>> CH-8008 Zürich
>> Switzerland
>> Ph: +41 (0)44 634 8351
>> birgit.lemcke at systbot.uzh.ch
>>
>> 175 Jahre UZH
>> «staunen.erleben.begreifen. Naturwissenschaft zum Anfassen.»
>> Weitere Informationen http://www.175jahre.uzh.ch/naturwissenschaft
>>
>> ______________________________________________
>> 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.
>>
>

Birgit Lemcke
Institut für Systematische Botanik
Zollikerstrasse 107
CH-8008 Zürich
Switzerland
Ph: +41 (0)44 634 8351
birgit.lemcke at systbot.uzh.ch

175 Jahre UZH
«staunen.erleben.begreifen. Naturwissenschaft zum Anfassen.»
Weitere Informationen http://www.175jahre.uzh.ch/naturwissenschaft