02图形初阶

自定义坐标轴

axis()

x <- c(1:10)
y <- x
z <- 10/x
opar <- par(no.readonly = TRUE)
par(mar = c(5, 4, 4, 8) + 0.1)

plot(x, y, type = "b", pch = 21, col = "red", yaxt = "n",
     lty = 3, ann = FALSE)
lines(x, z, type = "b", pch = 22, col = "blue", lty = 2)
axis(2, at = x, labels = x, col.axis = "red", las = 2)
axis(4, at = z, labels = round(z, digits = 2), col.axis = "blue",
     las = 2, cex.axis = 0.7, tck = -0.01)
mtext("y=1/x", side = 4, line = 3, cex.lab = 1, las = 2,
      col = "blue")
title("An Example of Creative Axes", xlab = "X values",
      ylab = "Y=X")
par(opar)

其中的at和labels要一致,表示画刻度的位置。

次要刻度线

Hmisc包的minor.tick()函数

library(Hmisc)
minor.tick(nx=2,ny=3,tick.ratio=0.5)

其中nx和ny指在两条主刻度线之间划分的区间个数,tick.ratio表示次刻度线相对于主刻度线的大小比例。

参考线

abline(h=c(1,5,7),v=seq(1,10,2),lty=2,col="blue")

h为水平参考线,v为垂直参考线(在1、3、5、7、9的位置)

图例

legend("topleft", inset = 0.05, title = "Drug Type",
    c("A", "B"), lty = c(1, 2), pch = c(15, 17), col = c("red",
        "blue"))

inset distance(s) from the margins as a fraction of the plot region when legend is placed by keyword.

文本标注

text(location,"text to place",pos,...)向绘图区内部添加文本。location可为一对x,y坐标,或location(1)用鼠标确定。

mtext("text to place",side,line=n,...)向图形四边之一添加文本。

图形组合

函数par()或layout()

par()

attach(mtcars)
opar <- par(no.readonly = TRUE)
par(mfrow = c(2, 2))
plot(wt, mpg, main = "Scatterplot of wt vs. mpg")
plot(wt, disp, main = "Scatterplot of wt vs disp")
hist(wt, main = "Histogram of wt")
boxplot(wt, main = "Boxplot of wt")
par(opar)
detach(mtcars)

mfrow=c(2,2)表示2行2列按行填充,mfcol=c(2,2)表示2行2列按列填充。

layout()

attach(mtcars)
layout(matrix(c(1, 1, 2, 3), 2, 2, byrow = TRUE),
    widths = c(3, 1), heights = c(1, 2))
hist(wt)
hist(mpg)
hist(disp)
detach(mtcars)

widths和heights表示各列的相对宽度和相对高度,第一行宽占比3、第二行宽占比1,同理第一列高占比1、第二列高占比2。绝对宽度用lcm()来指定,如widths=lcm(5)。

其中2,2表示按2行2列排列。

图形布局的精细控制

fig()

opar <- par(no.readonly = TRUE)
par(fig = c(0, 0.8, 0, 0.8))
plot(mtcars$wt, mtcars$mpg, xlab = "Miles Per Gallon",
    ylab = "Car Weight")
par(fig = c(0, 0.8, 0.55, 1), new = TRUE)
boxplot(mtcars$wt, horizontal = TRUE, axes = FALSE)
par(fig = c(0.65, 1, 0, 0.8), new = TRUE)
boxplot(mtcars$mpg, axes = FALSE)
mtext("Enhanced Scatterplot", side = 3, outer = TRUE,
    line = -3)
par(opar)
时间: 2024-10-12 05:51:22

02图形初阶的相关文章

R语言 图形初阶

第三章 图形初阶 1.使用图形 pdf("XXX.pdf")#保存pdf文件 ---- dev.of() dev.new()#新的图形窗口 2.一个简单的列子 3.图形参数 opar=par(no.readonly=TRUE)#生成一个可以修改当前图形的参数列表 par(lty=2,pch=17) plot(x,y,type="b") par(opar) a.符号和线条 pch:指定绘制点时使用的符号 cex:指定符号的大小.cex是一个数值,表示绘图符号相对于默认

图形初阶

本章内容? 图形的创建和保存? 自定义符号.线条.颜色和坐标轴? 标注文本和标题? 控制图形维度? 组合多个图形我曾经多次向客户展示以数字和文字表示的.精心整理的统计分析结果,得到的只是客户呆滞的眼神,尴尬得房间里只能听到鸟语虫鸣.然而,当我使用图形向相同的用户展示相同的信息时,他们往往会兴致盎然,甚至豁然开朗.还有很多次,我都是通过看图才得以发现了数据中的模式,或是检查出了数据中的异常值——这些模式和异常都是在我进行更为正式的统计分析时彻底遗漏的.人类非常善于从视觉呈现中洞察关系.一幅精心绘制

第3章--图形初阶

3.1 使用图形 R是一个惊艳的图形构建平台.在通常的交互式会话中,你可以通过逐条输入语句构建图形,逐渐完善图形特征,直至得到想要的结果. 通过执行高级绘图命令来创建一幅新图形时,通常会覆盖掉先前的图形. R将在保证用户输入最小化的前提下创建尽可能美观的图形.不过你依然可以使用图形参数来指定字体,颜色, 线条类型,坐标轴参考线和标注. 3.2 图形参数 修改图形参数的一种方法是通过函数par()来指定这些选项.以这种方式设定的参数值除非被再次修改,否则将在会话结束前一直有效. 符号和线条 颜色

《R语言实战》读书笔记--第三章 图形初阶

3.1使用图形 可以使用pdf等函数将图形直接保存在文件中.在运用attach和detach函数的使用中经常出现错误,比如命名重复的问题,所以,应该尽量避免使用这两个函数. plot是一般的画图函数,hist是直方图,boxplot是箱型图.这些函数会覆盖前面的图形,如何创建多个图形便于同时查看呢?方法有三: 1.创建新图形之前先打开一个新的图形窗口,每一幅新图形会出现在最近的图形窗口中. dev.new() 语句1 dev.new() 语句2 -- 上面的语句,每显现一幅图形之前会新开一个窗口

《R语言实战》读书笔记--第三章 图形初阶(二)

3.4添加文本.自定义坐标轴和图例 很多作图函数可以设置坐标轴和文本标注.比如标题.副标题.坐标轴标签.坐标轴范围等.需要注意的是并不是所有的绘图函数都有上述的参数,需要进行验证.可以将一些默认的参数进行移除,用ann = FALSE来操作. 3.4.1标题 title函数. title(main = NULL, sub = NULL, xlab = NULL, ylab = NULL, line = NA, outer = FALSE, ...) #上面的outer是指标题是否在图形边界之外,

《r语言实战》菜鸟学习笔记(三)图形初阶

本节内容包括 图形的创建和保存 自定义符号.线条.颜色和坐标轴 标注文本和标题 控制图形维度 组合多个图形 1.使用图形 pdf("mygraph.pdf")#保存pdf 也可以png/jpeg/bmp/tiff/xfig...attach(mtcars) plot(wt, mpg) abline(lm(mpg-wt)) #求出回归参数,并作出线 title("Regression of MPG on Weight") detach(mtcars)dev.off()

R语言学习——图形初阶之散点图

使用R内置的数据框mtcars,绘制车身重量与每加仑汽油行驶的英里数的散点图,要求横轴为车身重量(wt),纵轴为每加仑汽油行驶的英里数(mpg),并添加最优拟合曲线.标题,输出为pdf文件.代码实现如下: > pdf("wt_mpg.pdf") # 开启目标图形设备,并对目标图形命名> attach(mtcars) # 绑定数据框mtcars> plot(wt,mpg) # 绘制车身重量与每加仑汽油行驶的英里数的散点图 > abline(lm(mpg~wt))

01数据集和图形初阶

向量 矩阵 cells<-c(1,26,24,68) rnames<-c("R1","R2") cnames<-matrix(cells,nrow=2,ncol=2,byrow=True, dimnames=list(rnames,cnames)) 数组 数据框 attach().detach().with() 因子 名义型变量.有序型变量.连续型变量,其中名义型变量和有序型变量在R中称为因子factor 列表 列表访问 []带对象名,[[]]不带

R语言图形初阶

#chapter 3#### attach(mtcars) plot(wt,mpg) abline(lm(mpg~wt)) #adds a line of best fit title("regression of mpg on weight") detach(mtcars) pdf("mygraph.pdf") attach(mtcars) plot(wt,mpg) abline(lm(mpg~wt)) #adds a line of best fit title