Try this modification of your code. -tgs
ynames <- base.dat.sel2$base.dat.Covariate[order(base.dat.sel2$base.dat.US.Num.Obs.to.Achieve.Starting.Residual,decreasing=F)] ynames <- as.character(ynames) ynames[12]<-expression(theta[r]) ynames[13]<-expression(EC[gw]) ttt<-barplot(base.dat.sel2$base.dat.US.Num.Obs.to.Achieve.Starting.Residual[order(base.dat.sel2$base.dat.US.Num.Obs.to.Achieve.Starting.Residual,decreasing=F)], names.arg=ynames, col="grey",horiz=T,las=1,xlim=c(0,450),yaxs="i",cex.axis=1.2,cex.names=1.1) On Wed, Dec 8, 2010 at 2:15 PM, emorway <emor...@engr.colostate.edu> wrote: > > Hello, > > I've been looking through ?phantom and ?expression and this forum for > examples of how I might be able to manipulate some of the names that appear > on the y-axis of the barplot below. For example, the "gw" in "ECgw" would > appear as a subscript...or "qr" would be the theta symbol followed by > subscript "r". My attempts haven't even come close to what I'm after. I > could switch to ?text or ?mtext, but thought for positioning purposes it > would be easier to do it with names.arg in the barplot function call. > > Thanks, > Eric > > > base.dat.sel2<-read.table(textConnection("base.dat.Covariate > base.dat.US.Number.Observations > base.dat.US.Num.Obs.to.Achieve.Starting.Residual > base.dat.US.Percent.Reduction.in.EM38.Surveys > base.dat.DS.Number.Observations > base.dat.DS.Num.Obs.to.Achieve.Starting.Residual > base.dat.DS.Percent.Reduction.in.EM38.Surveys > Baseline 391 391 NA 281 281 NA > WTD 391 315 0.194 281 210 0.253 > ECgw 391 362 0.074 281 280 0.004 > SM 391 349 0.107 281 280 0.004 > WTD_ECgw 391 300 0.233 281 209 0.256 > WTD_SM 391 286 0.269 281 210 0.253 > ECgw_SM 391 318 0.187 281 280 0.004 > WTD_ECgw_SM 391 269 0.312 281 210 0.253 > Sand 391 359 0.082 281 279 0.007 > Silt 391 369 0.056 281 280 0.001 > Clay 391 370 0.054 281 269 0.043 > WTD_ECgw_SM_Sand 391 263 0.327 281 181 0.356 > qr 391 360 0.079 281 270 0.038 > Ks 391 370 0.054 281 276 0.017 > qr_Ks 391 358 0.084 281 271 0.035 > WTD_ECgw_SM_qr 391 261 0.332 281 188 0.331 > WTD_ECgw_SM_Ks 391 260 0.335 281 205 0.270"),header=T) > closeAllConnections() > > par(mar=c(3,15,2,1)) > > barplot(base.dat.sel2$base.dat.US.Num.Obs.to.Achieve.Starting.Residual[order(base.dat.sel2$base.dat.US.Num.Obs.to.Achieve.Starting.Residual,decreasing=F)], > > > names.arg=base.dat.sel2$base.dat.Covariate[order(base.dat.sel2$base.dat.US.Num.Obs.to.Achieve.Starting.Residual,decreasing=F)], > > col="grey",horiz=T,las=1,xlim=c(0,450),yaxs="i",cex.axis=1.2,cex.names=1.1) > > -- > View this message in context: > http://r.789695.n4.nabble.com/Formatting-names-arg-in-barplot-tp3078861p3078861.html > Sent from the R help mailing list archive at Nabble.com. > > ______________________________________________ > 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. > [[alternative HTML version deleted]] ______________________________________________ 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.