[R] Displaying median value over the horizontal(median)line in the boxplot

[arun]

Hi,
set.seed(45)
test1<-data.frame(columnA=rnorm(7,45),columnB=rnorm(7,10)) #used an example probably similar to your actual data
apply(test1,2,function(x) sprintf("%.1f",median(x)))
#columnA columnB 
# "44.5"  "10.2" 
par(mfrow=c(1,2))
lapply(test1,function(x) {b<- boxplot(x,range=0,horizontal=TRUE);mtext(sprintf("%.1f",b$stats[3]),side=3,at=b$stats[3],line=-8)})
A.K.



----- Original Message -----
From: "shanthimulinti at gmail.com" <shanthimulinti at gmail.com>
To: smartpink111 at yahoo.com
Cc: 
Sent: Thursday, March 21, 2013 4:05 PM
Subject: Re: Displaying median value over the horizontal(median)line in the boxplot

Here is what I am doing
my=read.csv("test.csv")
apply(my,2,median,na.rm=TRUE)
b<-boxplot(my,range=0, pars=list(boxwex=0.6))
After this I am not sure how to automatically list the median in each of the two boxplots

test.csv has
columnA  columnB
1                 1        
2                  2
3                  3
4                 4
5                 5
6                6
7                7

Finally how do I control the output. My actual data has a median value of 7.642552 but I only want it to be displayed as 7.6.

Thank you so much for your help. I am very sorry for troubling you but I am very very new to this programming and to R as you can see.



<quote author='arun kirshna'>
Hi,
Lines1<-readLines(textConnection("Column1 -1,2,3,4,5,6,6,7
COlumn2- 3,4,5,6,7,8,8
Column3-- 45,66,7,8,89,
COlumn4-5,6,7,7,8,9
Column5 -5,6,7,8,8")) 
vec1<-unlist(strsplit(Lines1,"-"))

dat1<-as.data.frame(t(read.table(text=vec1[grepl(",",vec1)],sep=",",fill=TRUE)))
row.names(dat1)<-NULL
colnames(dat1)<-tolower(gsub(" $","",vec1[grepl("^C",vec1)]))
dat1
#  column1 column2 column3 column4 column5
#1       1       3      45       5       5
#2       2       4      66       6       6
#3       3       5       7       7       7
#4       4       6       8       7       8
#5       5       7      89       8       8
#6       6       8      NA       9      NA
#7       6       8      NA      NA      NA
#8       7      NA      NA      NA      NA
apply(dat1,2,median,na.rm=TRUE)
#column1 column2 column3 column4 column5 
#    4.5     6.0    45.0     7.0     7.0 

#to save it as a pdf
pdf("Shanthiboxplot.pdf")
par(mfrow=c(3,2))
lapply(dat1,function(x)
{b<-boxplot(x,range=0,horizontal=TRUE);mtext(b$stats[3],side=3,at=b$stats[3],line=-8)})
dev.off()

#to just print it on screen
par(mfrow=c(3,2))# you can change this according to your need
lapply(dat1,function(x)
{b<-boxplot(x,range=0,horizontal=TRUE);mtext(b$stats[3],side=3,at=b$stats[3],line=-8)})
A.K.
</quote>
Quoted from: 
http://r.789695.n4.nabble.com/Displaying-median-value-over-the-horizontal-median-line-in-the-boxplot-tp4661854p4661935.html