10分钟让你了解R的基本数据操作：R 入门级 之 《R的管理绘图》 -- 200509

---

title: “R的管理绘图”
author: “HHTING”
date: “2020/5/9”
output:
word_document: default
html_document:
df_print: paged
pdf_document:
keep_tex: yes
latex_engine: xelatex
header-includes: \usepackage{ctex}

1. 打开多个绘图设备

?device # view available drawing device
x11()
windows()
pdf()
xfig()
png()

dev.list() # display opened lists
dev.cur() # current device
dev.set(2) # set device
dev.off() # The default closes the current device
dev.off(2) # close the specified device

在R的Widows版本中：Windows Metafile设备可以用函数win.metafile来打开，选定绘图窗口会出现“History”菜单，我们可以利用这个菜单中的功能记录一个会话中所作的所有图形（在缺省状态下，记录系统是关闭的，用户可以点击这个菜单下的“Recording”打开它）.

2.图形的分割

split.screen()

split.screen(c(1, 2)) # split accurent drawing device
screen(1); screen(2)
erase.screen() # delete last drawing device

## 此类函数不可以用于多个绘图设备。它们的使用应局限于象图形式探索性数据分析这样 的问题。

layout()

x11()

layout(matrix(1:4, 2, 2))
layout.show(4)

mat <- matrix(c(1:3, 3), 2, 2)
layout(mat)
layout.show(3)

m <- matrix(1:4, 2, 2)
layout(m, widths=c(1, 3),heights=c(3, 1))
layout.show(4)

m <- matrix(c(1,1,2,1),2,2)
layout(m, widths=c(2, 1),heights=c(1, 2))
layout.show(2)

#{r} m <- matrix(scan(), 5, 5) layout(m) layout.show(5) #

2.绘图函数

https://blog.youkuaiyun.com/qq_42937176/article/details/106028117

x <- rnorm(10)
y <- rnorm(10)
plot(x, y)


plot(x, y, xlab="Ten random values", ylab="Ten other values", xlim=c(-2, 2), ylim=c(-2, 2), pch=22, col="red",
bg="yellow", bty="l", tcl=0.4, main="How to customize a plot with R", las=1, cex=1.5)
## xlab 和ylab改变坐标轴标签，缺省情况下是变量的名字；
## xlim 和ylim允许我们规定两个坐标轴的范围；
## 绘图参数pch在这里用作一个选项：pch=22为正方形，其轮廓颜色和背景色可能不一样，分别由col 和bg指定。图形参数表中说明 了bty,tcl,las和cex的作用
## 选项main添加了标题。

?par # 绘图参数
opar <- par() # 缺省的绘图参数被复制到列表opar中
par(bg="lightyellow", col.axis="blue", mar=c(4, 4, 2.5, 0.25)) # 有三个参数被修改：bg修改背景色，col.axis修改轴上数字的颜色，mar来修改绘图边空大小
plot(x, y, xlab="Ten random values", ylab="Ten other values", xlim=c(-2, 2), ylim=c(-2, 2), pch=22, col="red", bg="yellow", bty="l", tcl=-.25, las=1, cex=1.5)
title("How to customize a plot with R (bis)", font.main=3, adj=1)
par(opar)

text(x, y, expression(p == over(1, 1+e^-(beta*x+alpha)))) # 函数expression把自变量转换为数学公式
text(x, y, as.expression(substitute(R^2==r, list(r=Rsquared)))) # 在表达式中代入某个变量的值
text(x, y, as.expression(substitute(R^2==r, list(r=round(Rsquared, 3))))) # 只显示3位小数
text(x, y, as.expression(substitute(italic(R)^2==r, list(r=round(Rsquared, 3))))) # 用斜体字显示R