ggplot2绘图添加文本注释上下标问题

问题描述

ggplot2绘图添加注释文本如果想要将其中的数字改为上下标该如何实现？

参考资料

https://stackoverflow.com/questions/7182247/ggplot2-annotate-text-with-superscript

上标代码

代码语言：javascript复制

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

下标代码

代码语言：javascript复制

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

ggplot2 image png

0 人点赞