问题描述
ggplot2绘图添加注释文本如果想要将其中的数字改为上下标该如何实现？
参考资料
https://stackoverflow.com/questions/7182247/ggplot2-annotate-text-with-superscript
这里用到了atop（）函数，具体的作用还不是太明白，目前只是死记硬背，知道这种写法能够实现自己的目的。暂时不研究这个函数的具体用法了，后面如果还有需求再来看这个函数的其他用法。
添加注释用到的是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")
欢迎大家关注我的微信公众号
小明的数据分析笔记本
