attach(mtcars)#绑定了数据框
plot(wt,mpg)#打开图形窗口并生成了一幅散点图
abline(lm(mpg~wt))#向图形添加了一条最优拟合曲线
title("Regression of MPG on Weight")#添加了标题
detach(mtcars)#数据框解除了绑定
#以下代码会将图形保存到当前工作目录中名为mygraph.pdf的PDF文件中
pdf("mygraph.pdf")
attach(mtcars)
plot(wt,mpg)
abline(lm(mpg~wt))
title("Regression of MPG on Weight")
detach(mtcars)
dev.off()
dev.new()
#使用以下代码输入数据
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")#创建一幅描述药物A的剂量和响应关系的图形,type = "b"同时绘制点和线
#3.3图形参数
opar <- par(no.readonly = TRUE)#复制了一份当前的图形参数设置
par(lty = 2,pch = 17)#将默认的线条类型修改为虚线,点符号改为实心三角
plot(dose,drugA,type = "b")#绘制图形
par(opar)#还原参数设置
plot(dose,drugA,type = "b",lty = 2,pch = 17)
plot(dose,drugA,type = "b",lty = 2,lwd = 3,pch = 15,cex = 2)
library(RColorBrewer)
n <- 7#从Set1调色板中抽取了7种用十六进制表示的颜色并返回一个向量
mycolors <- brewer.pal(n,"Set1")
barplot(rep(1,n),col = mycolors)
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(font.lab=3,cex.lab=1.5,font.main=4,cex.main=2)#之后创建的所有图形都将拥有斜体,1.5倍于默认
#文本大小的坐标轴标签(名称),以及粗斜体、2倍于默认文本大小的标题
names(pdfFonts())#找出你的系统中有哪些字体是可用的
pdf(file = "myplot.pdf",family = "Japan1")#生成图形