文章预览
写在前面 看见一篇NC上的拟合图,是以质心+误差棒为原始点进行拟合。之前,我写过一篇使用 质心+误差棒形式的PCA ,这种时候之所以采用这种形式是因为我们不考虑每个处理内组内的差异,只考虑组间的差异。好了,开始复现一下。 这篇文章的信息如下: Pärn, J., Verhoeven, J.T.A., Butterbach-Bahl, K. et al. Nitrogen-rich organic soils under warm well-drained conditions are global nitrous oxide emission hotspots. Nat Commun 9 , 1135 (2018). https://doi.org/10.1038/s41467-018-03540-1 准备数据集 数据如下,小编已上传,文末下载。 整理绘图所需数据 我们先将原始数据计算成我们绘图时所需的数据 #清空环境变量 rm( list = ls()) #加载R包 library(ggplot2) library(ggpubr) library(ggpmisc) #读取数据 data1 head(data1) #整理成质心绘图的数据 #分别求取size,X和Y的均值 X function (x) c (mean = mean (x) , sd = sd (x) ) ) Y ag
………………………………