: df <- data.frame(x =  rnorm(00), y = rnorm(00)) temp<-paste("rho == 0.00") ggplot(df, aes(x = x, y = y)) + geom_point() +     annotate("text", x = mean(df$x), y = mean(df$y), parse=T,label = temp)  