luzhouyue007
如果能把plot
怎么画的大致用代码表示出来的话,回帖的人会方便很多,我只能大致揣测一下楼主的问题。
可以考虑另建数据框的方法,但还无法做到斜体。😅
library(ggplot2)
set.seed(1234)
dat<-data.frame(xx=runif(20,1.5e3,2.5e3),yy=runif(20),
sex=rep(c("男","女"),each=5))
r_boy<-p_boy<-12
r_girl<-p_girl<-1200
lab <- data.frame(gender=c("男","女"),x=c(2000,2000),y=c(0.30,0.40),
label=c(paste("r_boy=",r_boy,"\n","p_boy=",p_boy),
paste("r_girl=",r_girl,"\n","p_girl=",p_girl)),
sex=c("男","女"))
lab
plot<-ggplot(dat,aes(xx,yy))+geom_point()+facet_wrap(~sex)
plot+geom_text(data = lab,aes(x=x,y=y,label=label))