Would the following work? legend(210, 110, bquote(r2 == .(format(summary(regression)$adj.r.squared,digits=3)))) See ?plotmath and ?bquote Jeremy Jeremy Hetzel Boston University -- View this message in context: http://r.789695.n4.nabble.com/superscript-tp3252881p3252921.html Sent from the R help mailing list archive at Nabble.com.