Improving resolution on geom_text entry in ggplot2 r
===

Any suggestions on how improve the resolution on the geom_text so that the resolution is comparable to that of the axis labels? Thanks
    
    df <- data.frame("x" = c(1,2,3,4),"y" = c(15,19,35,47))

    p<-ggplot(df,aes(x,y))
    p<- p + geom_point(size=1)

    p<- p + geom_smooth(method="lm", se=FALSE, formula=y~x)
    p<- p + xlab("Better Resolution")
    p<- p +ylab("Better Resolution")

    p<- p +opts(axis.title.x = theme_text(family="Times",face="bold", size=25, colour = "Black",vjust=0)) 

    p<- p +opts(axis.title.y = theme_text(family="Times",face="bold", size=25, angle =90, colour ="Black",vjust=0.4))

    p<- p + geom_text(aes(x = 3.5, y = 37, label ="poor.resolution"),size=12, parse = TRUE)
    p
