dose<-c(20,30,40,45,60)
drugA<-c(16,20,27,40,60)
drugB<-c(15,18,25,31,40)
plot(dose,drugA,type="b")
#par函数,修改当前图形参数
opar<-par(no.readonly=TRUE)
par(lty=2,pch=17)
plot(dose,drugA,type="b")
par(opar)
#pch绘制点类型
#cex绘图符号默认值的缩放
#lty指定线条的类型
#lwd线的粗细宽度
plot(dose,drugA,type="b",lty=3,lwd=3,pch=15,cex=3)
#col 默认绘图颜色
#col.axis坐标轴刻度文字的颜色
#col.lab坐标轴标签的颜色
#col.main标题的颜色
#col.sub副标题的颜色
#fg图形的前景色
#bg图形的背景色
#colors();显示颜色种类
#rainbow();生成彩虹色 heat.colors()暖色 等等
#gray()灰度
n<-10
mycolors<-rainbow(n)
pie(rep(1:n),labels=myccexolors,col=mycolors)
mygrays<-gray(0:n/n)
pie(rep(1:n),labels=mygrays,col=mygrays)
#cex 默认缩放
#cex.axis坐标轴刻度文字
#cex.lab 坐标轴标签的缩放
#cex.main 标题的缩放
#cex.sub副标题的缩放
#font(字体):1-常规;2-粗体;3-斜体;4-斜粗体;5-符号字体
#font.axis
#font.lab 坐标轴标签的字体样式
#font.main
#font.sub
#ps字体磅值
#family 表示绘制文本的时候的字体族
par(font.lab=3,cex.lab=1.5,font.main=4,cex.main=2)
#有关图形尺寸
#pin以英寸表示的图形尺寸
#mai以数值向量表示边界的大小,顺序:下、左、上、右
#mar:c(5,4,4,2)+0.1
opar<-par(no.readonly=TRUE)
par(mfrow=c(1,2))
par(pin=c(2,3))
par(lwd=2,cex=1.5)
par(cex.axis=.75,font.axis=3)
plot(dose,drugA,type="b",pch=19,lty=2,col="red")
plot(dose,drugB,type="b",pch=23,lty=6,col="blue",bg="green")
par(opar) #释放
drugA<-c(16,20,27,40,60)
drugB<-c(15,18,25,31,40)
plot(dose,drugA,type="b")
#par函数,修改当前图形参数
opar<-par(no.readonly=TRUE)
par(lty=2,pch=17)
plot(dose,drugA,type="b")
par(opar)
#pch绘制点类型
#cex绘图符号默认值的缩放
#lty指定线条的类型
#lwd线的粗细宽度
plot(dose,drugA,type="b",lty=3,lwd=3,pch=15,cex=3)
#col 默认绘图颜色
#col.axis坐标轴刻度文字的颜色
#col.lab坐标轴标签的颜色
#col.main标题的颜色
#col.sub副标题的颜色
#fg图形的前景色
#bg图形的背景色
#colors();显示颜色种类
#rainbow();生成彩虹色 heat.colors()暖色 等等
#gray()灰度
n<-10
mycolors<-rainbow(n)
pie(rep(1:n),labels=myccexolors,col=mycolors)
mygrays<-gray(0:n/n)
pie(rep(1:n),labels=mygrays,col=mygrays)
#cex 默认缩放
#cex.axis坐标轴刻度文字
#cex.lab 坐标轴标签的缩放
#cex.main 标题的缩放
#cex.sub副标题的缩放
#font(字体):1-常规;2-粗体;3-斜体;4-斜粗体;5-符号字体
#font.axis
#font.lab 坐标轴标签的字体样式
#font.main
#font.sub
#ps字体磅值
#family 表示绘制文本的时候的字体族
par(font.lab=3,cex.lab=1.5,font.main=4,cex.main=2)
#有关图形尺寸
#pin以英寸表示的图形尺寸
#mai以数值向量表示边界的大小,顺序:下、左、上、右
#mar:c(5,4,4,2)+0.1
opar<-par(no.readonly=TRUE)
par(mfrow=c(1,2))
par(pin=c(2,3))
par(lwd=2,cex=1.5)
par(cex.axis=.75,font.axis=3)
plot(dose,drugA,type="b",pch=19,lty=2,col="red")
plot(dose,drugB,type="b",pch=23,lty=6,col="blue",bg="green")
par(opar) #释放