一个带有误差棒的另一个箱图

2021-02-04 21:00:16 阅读：206 来源： 互联网

标签：误差 aes group 箱图 geom 带有 element data panel

今天遇到一个图，需要有R绘制一个展示平均数，误差的的点图，并进行数据统计，如下图所示
在这里插入图片描述

数据格式如下

data

在这里插入图片描述

library(ggplot2)
p=ggplot(data,aes(x = group,y = mean,color = group))+
  xlab('')+ylab('Percent %')+
  facet_wrap(~metacluster,scales = 'free')+
  geom_errorbar(aes(ymin=mean-sd, ymax=mean+sd),
                width=.2,position=position_dodge(.9))+
  geom_point(aes(x = group,y = mean,shape=group))+
  theme(panel.grid.major =element_blank(), 
        panel.grid.minor = element_blank(), 
        panel.background = element_rect(fill = 'transparent',colour ='gray'),
        panel.border=element_rect(fill=NA,colour='black'),
        plot.background = element_rect(fill = 'transparent',colour ='gray'),
        legend.position = 'top')

在这里插入图片描述 #加显著性

data_p

在这里插入图片描述 data_p1=data_p[which(data_p$lab=='*'),]

在这里插入图片描述

#geom_text添加显著性的*
#加横线
geom_segment
p1=p+geom_text(aes(label = lab),
               nudge_x=-0.5,
               nudge_y=24,color ="black")+
  geom_segment(aes(x = 1 ,xend = 2,
                   y = 24,yend = 24),
               data=data_p1,
               color ='black')

在这里插入图片描述

标签：误差,aes,group,箱图,geom,带有,element,data,panel
来源： https://blog.csdn.net/weixin_43949246/article/details/113663592

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

一个带有误差棒的另一个箱图