按照Cell学作图| 2.柱状图误差棒散布“实践是检验真理的唯一标准”
“再现是学习r语言的最好方法。 ”
2021.4.12 _1doi :10.1016/j.cell.2020.05.032
这篇2020年在cell发表的关于新冠的组织学报道中,包含了大量的生活信息的内容。 今天是其中的一个supplemental figure:http://www.Sina.com /
接收正文代码和示例数据:“带散点的柱状图”
2021.4.14_1这张图怎么说都很普通。 但是,再现过程中有值得学习的东西。
数据格式表1用于散点图制作
表2是用于制作柱状图的表。 (合计表1 ) ) ) ) ) ) ) ) ) ) )。
2021.4.14_3注:上述数据纯属虚构,无实际意义。
思路柱状图显著性检验误差棒散点
----title : ' bar plot ' author : ' mzbj ' date : ' 2020/4/14 '-- #导入所需的软件包library(ggplot2) library 导入数据plot _ data1-read.CSV (file=' NPT _ SOD.CSV ' ) plot _ data2- read.CSV (file=' NPT.CSV ' ) - #数据格式width=0.6 )条形图大小geom_jitter(data=plot_data2,#散点图=AES (x=group,y=Retive_Abundance ) fill=#散点纵向振摆width=0.1 )散点横向振摆scale _ color _ manual (values=c (# 1e 90ff (,gold ), red ) )散点色geom_signif ) )散点y=Retive_Abundance (,#不同组显著性comparisons=list(c )、(n )、(p ) ) )哪一组c 0 )、#改性线两端的长度y_position=c ) 46、54、49 )、#改性线的位置高度size=1、#改性线的粗细#修正*标记的尺寸test='t.test ' ) #检查的塔塔ymin=mean-sd,ymin-SD 'gold ',' red ',#颜色size=0.8 )粗细scale _ y _ continuous (limits=c (0,60 ),Expand=c ) 0 ) ) y轴的范围thement这是无线条主题base_line_size=1#坐标轴的粗细(labs(title='whitebloodcell(WBC ),x=',y=' )
itle = element_text(size = 15, colour = "black", hjust = 0.5), axis.title.y = element_text(size = 15, # family = "myFont", color = "black", face = "bold", vjust = 1.9, hjust = 0.5, angle = 90), legend.title = element_text(color="black", # 修改图例的标题 size=15, face="bold"), legend.text = element_text(color="black", # 设置图例标签文字 size = 10, face = "bold"), axis.text.x = element_text(size = 13, # 修改X轴上字体大小, color = "black", # 颜色 face = "bold", # face取值:plain普通,bold加粗,italic斜体,bold.italic斜体加粗 vjust = 0.5, # 位置 hjust = 0.5, angle = 0), #角度 axis.text.y = element_text(size = 13, color = "black", face = "bold", vjust = 0.5, hjust = 0.5, angle = 0) ) p2021.4.14_4
大功告成!
往期内容:
跟着CELL学作图|1.火山图