R语言散点图+趋势线+标注

最新推荐文章于 2024-07-07 01:00:00 发布

小Li先生

最新推荐文章于 2024-07-07 01:00:00 发布

阅读量7.2k

点赞数 1

分类专栏： R语言学习科研绘图文章标签： R语言散点图 ggplot2 趋势线

本文链接：https://blog.youkuaiyun.com/LeaningR/article/details/115670730

版权

R语言学习同时被 2 个专栏收录

45 篇文章

订阅专栏

科研绘图

15 篇文章

订阅专栏

今天不说话直接上图上码。你要的细节都在

图片

在这里插入图片描述

代码块

困扰的问题geom_text的字体比annotate的默认字体要粗
parse=T默认为FALSE，就是不能加上标。
italic（p）斜体
\n换行符不能和^联用

p1 <- ggplot(data = ypl)+
  geom_point(aes(x=group,y=yield,color=N,group=1))+
  #scale_color_gradientn(colours=c("blue","green","yellow","red"))
  geom_smooth (aes(x=group,y=yield),method = lm,formula = y ~ x+I(x^2),linetype=1,se=T,span=1)+
  geom_text(aes(x =7.5, y = 11),label=expression(paste("(",R^2," ="," 0.552"," , ",italic(p)," < 0.001)")),
             colour = "black",family="RMN",parse = T)+
  # geom_text(aes(x = 8, y = 10.8,label="R^2 == 0.05 "),
  #      colour = "black",parse=T,family="RMN",fontface="italic")+
  geom_text( aes(label = "y == -0.024*x ^ 2 + 0.444* x + 7.916 ",x = 7.5, y =11.2),
             parse=T,family="RMN",fontface="plain")+
  # #scale_shape_manual(values = c(21:25))+
  # #scale_fill_manual(values = c('red','green', 'blue', 'orange', 'purple'))+
  scale_color_manual(values = c('#2B95FF','#CA779E', '#FD7E00', 'Gold'),name="N-level",# 	Gold
                     breaks = c("0N","5N","10N","15N"),
                      labels = c("0N","75N","150N","225N"))+
  annotate("text_npc",label = "(a)",npcx = 0.01,npcy = 0.95,family="RMN")+
  # annotate( "text",x = 8, y = 11, label = "y == -0.024*x ^ 2 + 0.444* x + 7.916 ",parse=T,family="RMN")+
  # annotate( "text",x = 7.5, y = 10.8, label = "R^2==0.552",parse=T,family="RMN")+
  # annotate( "text",x = 7.5, y = 10.6, label = "p < 0.001",fontface="italic",family="RMN")+
  ylab(expression(paste("Yield "," ( ","kg"," ",ha^-1," )")))+
  xlab(expression(paste("N-level"," ( ","kg"," ",ha^-1," )")))+
  #expand_limits(y=c(150,450))+
  scale_y_continuous(limits = c(7,11.2),breaks=seq(7,11,1),labels = seq(7,11,1)*1000)+
  scale_x_continuous(limits = c(0,17),breaks = seq(0,15,by=5),labels = seq(0,15,by=5)*15)+
  mytheme+
  theme(legend.position = c(0.85,0.155),legend.background = element_blank(),
        legend.text=element_text(size = 10),legend.key.size = unit(0.5,"cm"),
        legend.key = element_rect(fill=NA,color = "black",linetype = 1))

##图例位置，背景透明，字体大小，标点外框大小，标点外框设置        
##（mytheme是自己设定的） legend.key = element_rect(fill=NA,color = "black",linetype = 1)
p1