R语言学习四图像的绘制一

87 阅读 0 评论 58 点赞

我是靠谱客的博主痴情红牛，最近开发中收集的这篇文章主要介绍R语言学习四图像的绘制一，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

1、基础

#连接数据框

> attach(mtcars)

#建立一个图像框和绘制点

> plot(wt,mpg)

#画拟合线

> abline(lm(mpg~wt))

#标题

> title("Regression of MPG on Weight")

#断开数据框

> detach(mtcars)

#直接输出为pdf格式，保存在当前工作目录下

> pdf("mygraph.pdf")

> attach(mtcars)

> plot(wt,mpg)

> abline(lm(mpg~wt))

> detach(mtcars)

> dev.off()

其它的存储形式：win.metafile() , png() , jpeg() ,
bmp() , tiff() , xfig() , postscript()

#生成一个新的窗口

> dev.new()

#两点的连线 type="b"

> 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")

2、图形参数

#opar= par() 一幅图开始之前先把参数保存在一个对象中

> opar <- par(no.readonly=TRUE)

#par() 图像参数设置，虚线lty=2, 实黑三角pch=17

> par(lty=2, pch=17)

> plot(dose, drugA, type="b")

#把之前保存的参数释放出来，这样不会影响下一幅图像

> par(opar)

#两句可以合并

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

参数

pch：图像点的类型

cex：点的大小，默认1，cex=1.5表示比默认大50%，cex=0.5表示比默认小50%

lty：连接线的类型

lwd：线条的宽度，默认1，lwd=2默认的两倍

3、颜色参数

这几种都可以表示白色

col=1, col="white" , col="#FFFFFF" , col=rgb(1,1,1) , col=hsv(0,0,1)

如果要多种颜色，col=c(“red”, “blue”)，表示第一条红色，第二条蓝色，第三条红色。。。

col.axis 坐标轴文本的颜色。
col.lab 轴标签的颜色。
col.main 标题的颜色
col.sub 备注的颜色
fg 前景色
bg 背景色

查看有哪些颜色

#rainbow()提供的颜色

> 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)

4、文本参数

cex.axis 轴上的文字相对于cex的放大。

cex.lab 轴标签相对于cex的放大。
cex.main 标题相对于cex的放大。
cex.sub 备注相对于cex的放大

#文本的字体

font 1=正常, 2=加粗, 3=斜体,4=加粗倾斜, 5=编码符号.
font.axis轴上的文字的字体
font.lab轴标签的字体
font.main标题的字体
font.sub 备注字体
ps字体的点的大小(大约 1/72 英寸).
The text size = ps*cex.

family用于绘制文本的字体系列

windows电脑下
windowsFonts(
A=windowsFont("Arial Black"),
B=windowsFont("Bookman Old Style"),
C=windowsFont("Comic Sans MS")
)

par(family="A")楷体黑色

Mac下用quartzFonts()

5、图的边距尺寸

pin 图像尺寸（英寸）
mai 边距（下，左，上，右）
mar 边距数值向量，默认c(5, 4, 4, 2) + 0.1
如：par(pin=c(4,3), mai=c(1,.5, 1, .2))

6、举例

dose <- c(20, 30, 40, 45, 60)
drugA <- c(16, 20, 27, 40, 60)
drugB <- c(15, 18, 25, 31, 40)
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=19, lty=2, col="red")
plot(dose, drugB, type="b", pch=23, lty=6, col="blue", bg="green")
par(opar)