问题描述
ggplot2绘图添加注释文本如果想要将其中的数字改为上下标该如何实现？
参考资料
https://stackoverflow.com/questions/7182247/ggplot2-annotate-text-with-superscript
上标代码
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")
image.png
下标代码
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")
image.png
欢迎大家关注我的微信公众号小明的数据分析笔记本
公众号二维码.jpg
网友评论