方法1,利用latex2exp包
library(ggplot2)
library(latex2exp)
data=data.frame(x=1:10,y=1:5,z=factor(1:5))
ggplot(data,aes(x=x,y=y,shape=z,color=z,size=x))+geom_point()+
annotate('text',x=5,y=3.5,label=TeX('$y=\\frac{1}{\\sqrt{2\\pi}} \\times e^{-\\frac{x^2}{2}}$'),color='blue')
方法2,利用parse=T参数
library(ggplot2)
data=data.frame(x=1:10,y=1:5,z=factor(1:5))
ggplot(data,aes(x=x,y=y,shape=z,color=z,size=x))+geom_point()+
annotate('text',x=5,y=3.5,parse=T,label='y==frac(1, sqrt(2*pi)) * e^{x^2/2}',color='blue')