Skip to content

- Obtaining superscripts to affix to means that are not significantly different from each other with R

4 messages · Joachim Audenaert, David L Carlson, Jim Lemon

#
Hello all,

It is often time consuming to interpret p-values of multiple pairwise 
comparisons of groups and assign them a letter code for publication 
purposes. So I found this interesting link to a program that does this for 
you. 

http://www.jerrydallal.com/lhsp/similar.htm

I was wondering if something similar exists in R?


Met vriendelijke groeten - With kind regards,

Joachim Audenaert 
onderzoeker gewasbescherming - crop protection researcher

PCS | proefcentrum voor sierteelt - ornamental plant research

Schaessestraat 18, 9070 Destelbergen, Belgi?
T: +32 (0)9 353 94 71 | F: +32 (0)9 353 94 95
E: joachim.audenaert at pcsierteelt.be | W: www.pcsierteelt.be   

Heb je je individuele begeleiding bemesting (CVBB) al aangevraagd? | Het 
PCS op LinkedIn
Disclaimer | Please consider the environment before printing. Think green, 
keep it on the screen!
#
The function cld() in package multcomp generates compact letter displays, but does not format them as exponents of the group names.

-------------------------------------
David L Carlson
Department of Anthropology
Texas A&M University
College Station, TX 77840-4352

-----Original Message-----
From: R-help [mailto:r-help-bounces at r-project.org] On Behalf Of Joachim Audenaert
Sent: Thursday, April 23, 2015 4:58 AM
To: r-help at r-project.org
Subject: [R] - Obtaining superscripts to affix to means that are not significantly different from each other with R

Hello all,

It is often time consuming to interpret p-values of multiple pairwise 
comparisons of groups and assign them a letter code for publication 
purposes. So I found this interesting link to a program that does this for 
you. 

http://www.jerrydallal.com/lhsp/similar.htm

I was wondering if something similar exists in R?


Met vriendelijke groeten - With kind regards,

Joachim Audenaert 
onderzoeker gewasbescherming - crop protection researcher

PCS | proefcentrum voor sierteelt - ornamental plant research

Schaessestraat 18, 9070 Destelbergen, Belgi?
T: +32 (0)9 353 94 71 | F: +32 (0)9 353 94 95
E: joachim.audenaert at pcsierteelt.be | W: www.pcsierteelt.be   

Heb je je individuele begeleiding bemesting (CVBB) al aangevraagd? | Het 
PCS op LinkedIn
Disclaimer | Please consider the environment before printing. Think green, 
keep it on the screen!
#
Is there also a version for non parametric tests like: 

pairwise.wilcox.test {stats} 



Met vriendelijke groeten - With kind regards,

Joachim Audenaert 
onderzoeker gewasbescherming - crop protection researcher

PCS | proefcentrum voor sierteelt - ornamental plant research

Schaessestraat 18, 9070 Destelbergen, Belgi?
T: +32 (0)9 353 94 71 | F: +32 (0)9 353 94 95
E: joachim.audenaert at pcsierteelt.be | W: www.pcsierteelt.be 



From:   David L Carlson <dcarlson at tamu.edu>
To:     Joachim Audenaert <Joachim.Audenaert at pcsierteelt.be>, 
"r-help at r-project.org" <r-help at r-project.org>
Date:   23/04/2015 14:51
Subject:        RE: [R] - Obtaining superscripts to affix to means that 
are not significantly different from each other with R



The function cld() in package multcomp generates compact letter displays, 
but does not format them as exponents of the group names.

-------------------------------------
David L Carlson
Department of Anthropology
Texas A&M University
College Station, TX 77840-4352

-----Original Message-----
From: R-help [mailto:r-help-bounces at r-project.org] On Behalf Of Joachim 
Audenaert
Sent: Thursday, April 23, 2015 4:58 AM
To: r-help at r-project.org
Subject: [R] - Obtaining superscripts to affix to means that are not 
significantly different from each other with R

Hello all,

It is often time consuming to interpret p-values of multiple pairwise 
comparisons of groups and assign them a letter code for publication 
purposes. So I found this interesting link to a program that does this for 

you. 

http://www.jerrydallal.com/lhsp/similar.htm

I was wondering if something similar exists in R?


Met vriendelijke groeten - With kind regards,

Joachim Audenaert 
onderzoeker gewasbescherming - crop protection researcher

PCS | proefcentrum voor sierteelt - ornamental plant research

Schaessestraat 18, 9070 Destelbergen, Belgi?
T: +32 (0)9 353 94 71 | F: +32 (0)9 353 94 95
E: joachim.audenaert at pcsierteelt.be | W: www.pcsierteelt.be 

Heb je je individuele begeleiding bemesting (CVBB) al aangevraagd? | Het 
PCS op LinkedIn
Disclaimer | Please consider the environment before printing. Think green, 

keep it on the screen!




Heb je je individuele begeleiding bemesting (CVBB) al aangevraagd? | Het 
PCS op LinkedIn
Disclaimer | Please consider the environment before printing. Think green, 
keep it on the screen!
#
Hi Joachim,
This function allows the user to set some characters in a string to
superscript or subscript. If sup or sub are set to one or more numbers
corresponding to an index in the string, those letters will be placed
appropriately. I can't properly test this as there is some problem
with X11 fonts that has appeared with the upgrade to R 3.2.0 and the
cex argument seems to have no effect.

supsubtext<-function(x,y,label,sup=NA,sub=NA,cex=1,sscex=0.8,xadj=0,...) {
 nlabchar<-nchar(label)
 yadj<-rep(0.5,nlabchar)
 if(!is.na(sup)) yadj[sup]<-0
 if(!is.na(sub)) yadj[sub]<-1
 labbits<-strsplit(label,"")[[1]]
 currentx<-x
 for(labchar in 1:nlabchar) {
  text(x,y,labbits[labchar],adj=c(xadj,yadj[labchar]),
   cex=ifelse(yadj[labchar]!=0.5,sscex,cex),...)
  x<-x+strwidth(labbits[labchar])
 }
}

Jim


On Thu, Apr 23, 2015 at 11:02 PM, Joachim Audenaert
<Joachim.Audenaert at pcsierteelt.be> wrote: