在(一)中展示了基于python的带置信区间的拟合性，同时拟合多条直线，本文主要讲下在R中如何去实现。

首先我们将数据集转变为长数据格式，长格式就是每种类型结束后接着接另一个变量的值，并在另一列中加上该值的类型，格式如下：

image.png

image.png

library(ggplot2)

setwd("D:/qixiang/final")

data1

data1$type= factor(data1$type, levels=c('PPT','ET','FWS','RWCN','RWCC','IWCC')) ## 设置柱条的顺

p

p1

p2

p4

p5

p7

p8

axis.text.y=element_text(face="bold",size=12,angle=0,color="Black"),

legend.title = element_text(face = "bold"))

p9

p11

p12

p13

读者在进行运用的时候，只需要更改下目录即将setwd("D:/qixiang/final")变为自己的数据存放路径，data1

type, levels=c('PPT','ET','FWS','RWCN','RWCC','IWCC')) 部分改为自己的变量顺序。p4

image.png

p13的结果如下

image.png

p12的结果如下：

image.png

p13中增加了线条而p12中没有增加线条，根据需要自己取舍。建议设置好后通过R运行一遍，在R中将结果保存为pdf，然后通过ps调整分辨率即可。

需要数据来进行操作的读者，可以发邮件到yinlichang3064@163.com，看到后会尽快发过去

更多需求，请查看个人介绍