一位讀者在我的公眾號(hào) 小明的數(shù)據(jù)分析筆記本 留言問到這個(gè)問題。
我記得之前分享過一篇文章 ggplot2繪圖添加文本注釋上下標(biāo)問題砖顷，ggplot2畫圖如果添加文本注釋可以用annotate()這個(gè)函數(shù)贰锁。
簡單的小例子
library(extrafont)
fonts()
ggplot(df,aes(x=A,y=B,color=D))+
geom_point(aes(shape=D),size=10)+
theme_bw()+
theme(legend.position = "none")+
annotate(geom = "text",x=3,y=8.5,label="小明的數(shù)據(jù)分析筆記本",
size=10,family="STKaiti")
image.png
如果要添加上標(biāo)，annotate()函數(shù)label參數(shù)的寫法
ggplot(df,aes(x=A,y=B,color=D))+
geom_point(aes(shape=D),size=10)+
theme_bw()+
theme(legend.position = "none")+
annotate(geom = "text",x=3,y=8.5,
label="atop(小明的數(shù)據(jù)分析筆記本^'***')",
parse=T,
size=10)
image.png
添加擬合方程的R2的寫法
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^'***')",
parse=T,size=10)+
theme_bw()+
theme(legend.position="none")
image.png
歡迎大家關(guān)注我的公眾號(hào)
小明的數(shù)據(jù)分析筆記本
留言討論滤蝠。
·
