#图形初阶
setwd(dir="D:/Rcode")#设置操作空间的路径
attach(mtcars)#对数据框进行绑定
plot(wt,mpg)
abline(lm(mpg~wt))
title("Regression of MPG on weight")
detach(mtcars)#对数据框解除绑定
#这里我们自己写一个数据框
year<-c(2019:2010)
major<-paste("c",1:10)
set.seed(123)#设置随机种子。设置了随机种子每次的随机数时相同的。
Pscore<-sample(40:50,10,replace=T)#replace=T表示产生的是整数
Escore<-sample(50:60,10,replace=T)
result<-data.frame(year,major,Pscore,Escore)
result
attach(result)
plot(Pscore,Escore)
abline(lm(Escore~Pscore))
title("regression of Escore on Pscore")
detach(result)
pdf("result.pdf")#图片保存为pdf格式
jpeg("result.jpg")#图片保存为jpg格式
attach(result)
plot(Pscore,Escore)
abline(lm(Escore~Pscore))
title("regression of Escore on Pscore")
detach(result)
dev.off()
#通过plot()或者boxplotz()
#来创建一幅新图形时，通常会覆盖掉先前的图形。
#防止图形被覆盖的方法
dev.new()#每次画图的时候新开一个窗口
plot(Pscore,Escore)
#3.2一个简单的例子,描述的是病人对两种药物不同剂量的响应
dose<-c(20,30,40,45,60)
drugA<-c(16,20,27,40,60)
drugB<-c(15,18,25,31,40)
#把这部分数据合成一个数据框
mark<-data.frame(dose,drugA,drugB)
dev.new()
p1<-plot(dose,drugA,type="o")#type 有多个选项：b是线条＋点，p表示加点
#还有o,s,h,n类型可以分别跑一下看看
jpeg("p1.jpg")
?plot
#3.3图形参数
#通过par()函数对图形参数的指定
dev.new()
??par()
opar<-par(no.readonly=T)#no.readonly=T这一步使得图形参数可改
par(lty="dashed",pch=8)#参数lty的设置：可以用数字，
#也可以用字符串，设置对应的规则如下
#lty(0=blank, 1=solid (default), 2=dashed,
#3=dotted, 4=dotdash, 5=longdash, 6=twodash)
#or as one of the character strings
#"blank", "solid", "dashed", "dotted",
#"dotdash", "longdash", or "twodash",
plot(dose,drugA,type="b")
par((opar))
#pch设置不同的图形
#cex设置par图形大小
#lwd设置线条的粗细，默认值=1
dev.new()
plot(dose,drugA,type="b",lwd=4,pch=8,cex=4)
#method 2
dev.new()
par(no.readonly=T,lty=6,lwd=3,pch=7,cex=2)
plot(dose,drugA,type="b")
