R语言学习笔记

#保存图片

pdf("mygraph.pdf")
  attach(mtcars)
  plot(wt,mpg)
  abline(lm(mpg~wt))
  title("regression of MPG on Weight")
  detach(mtcars)
dev.off()

#3.2药物剂量水平上的响应情况

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") #type B 表示同时绘制点和线

#3.3图形参数

par() #将形成一个含有当前图形参数设置的列表

par(no.readonly = TRUE) #形成一个可以修改当前图形参数的列表

#修改图形

opar<-par(no.readonly = TRUE)
par(lty=2,pch=17) #lty=2将线条类型修改为虚线，pch=17将默认的点符号修改为实心三角
plot(dose,drugA,type="b")
par(opar)

#多次使用par()

par(lty=2)
par(pch=17)

#指定的选项只对这幅图本身有效

plot(dose,drugA,type="b",lty=2,pch=17)

#3.3.1符号和线条

plot(dose,drugA,type="b",lty=3,lwd=3,pch=15,cex=2)

#要明白各种参数及其意义

#颜色的指定方法

install.packages("RColorBrewer")
library(RColorBrewer)
n <- 7
mycolors <- brewer.pal(n, "Set1")
barplot(rep(1, n), col=mycolors)

#gray()可形成多阶灰度色

n<- 10
mycolors<-rainbow(n)
pie(rep(1,n),labels=mycolors,col=mycolors)
mygrays <- gray(0:n/n)
pie(rep(1,n),labels=mygrays,col=mygrays)

#3.3.3文本属性

par(front.lab=3,cex.lab=1.5,front.lab=4,cex.main=2)#斜体、1.5倍于默认文本大小的坐标轴标签（名称），以及粗斜体、2倍于默认文本大小的标题

#如果用pdf或PostScript输出图形

names(pdfFonts())#找出系统中哪些字体是可用的
pdf(file="test.pdf",family = "字体名") #生成图形

names(postscriptFonts())#找出系统中哪些字体是可用的
postscript(file="test2.ps",family="字体名") ¥生成图形
#字体名
#family 绘制文本时使用的字体族
quartzFonts(
  A=quartzFont("Arial Black"
  B=quartzFont("Bookman Old Style")
  )
#使用par(family="A") 调用字体

#3.3.4图形尺寸与边界尺寸

par(pin=c(4,3),mai=c(1,.5,1,.2))可生成一幅4英寸宽、3英寸高、上下边界为1英寸、左边界为0.5英寸、右边界为0.2英寸的图形

opar<- par(no.readonly = TRUE)
par(pin=c(2,3))
par(lwd=2,cex=1.5)
par(cex.axis=.75,font.axis=3)
plot(dose,drugA,type="b",pch=23,lty=6,col="blue",bg="green")
plot(dose,drugB,type="b",pch=23,lty=6,col="blue",bg="green")
par(opar)