ggplot2绘图怎么添加文本注释上下标

添加注释用到的是annotate()这个函数，需要指定的参数是需要添加的内容，包括文本，箭头，线段等，添加文本还需要指定x和y，就是文本对应的位置，最后一个参数是label，对应的是添加的文本内容。后面还有参数更改文本的颜色大小等等。

library(ggplot2)
df<-data.frame(A=1:5,B=6:10,D=letters[1:5])
ggplot(df,aes(x=A,y=B,color=D))+
  geom_point(size=5)+
  annotate("text",x=3,y=7.5,label="atop(R^2==0.9,Y==X^2+5)",parse=T)+
  theme_bw()+
  theme(legend.position="none")

ggplot(df,aes(x=A,y=B,color=D))+
  geom_point(size=5)+
  annotate("text",x=3,y=8.5,label="X[1]==X[2]",parse=T,color="blue")+
  xlab(_expression(X^2))+ylab(_expression(Y[1]))+
  theme_bw()+
  theme(legend.position="none")