Hello,
I want to make a general routine to draw barplots with numbers plotted
above each bar. See the example below.
I could not place the numbers on the middle of each bar because I
could not calculate the right position of each x-axis tick. axTicks(1)
indicated a unitary step, but it does not seem work.
I appreciate any help or suggestions.
Best regards,
Antonio Olinto
======================
CAT VAR1 VAR2
Category 01 17.5 9
Category 02 15.2 20
Category 03 10.3 500
Category 04 8.4 150
Category 05 20.3 5000
# Coping data from a spreadsheet
dat.data <- read.delim("clipboard",header=T)
summary(dat.data)
CAT VAR1 VAR2
Category 01:1 Min. : 8.40 Min. : 9
Category 02:1 1st Qu.:10.30 1st Qu.: 20
Category 03:1 Median :15.20 Median : 150
Category 04:1 Mean :14.34 Mean :1136
Category 05:1 3rd Qu.:17.50 3rd Qu.: 500
Max. :20.30 Max. :5000
dat.bar <- data.frame(dat.data[,c(2)])
row.names(dat.bar)<-dat.data[,1]
names(dat.bar)<-c("VAR1")
dat.bar
VAR1
Category 01 17.5
Category 02 15.2
Category 03 10.3
Category 04 8.4
Category 05 20.3
par(mar=c(12,6,3,2),cex.axis=1.2,cex.lab=1.4)
barplot(t(as.matrix(dat.bar)),ylim=c(0,max(dat.data[,2]*1.1)),las=2,ylab="Y
label text",col="orange")
box()
up <- max(dat.data$VAR1)*0.1
for (i in c(0:nrow(dat.data))) {
legend(0.25+i,dat.bar[1+i,1]+up,dat.data[i+1,3],col="blue",bty="n")
}
----------------------------------------------------------------
Webmail - iBCMG Internet
http://www.ibcmg.com.br
______________________________________________
R-help@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.
