欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  移动技术

R语言绘制尺子的实现示例

程序员文章站 2021-12-08 11:54:58
本文使用基本的绘图命令plot、rect、segments、text绘制一把长10厘米的直尺。话不多说上教程。1、定义基本单位xcm <- 0.07ycm <- 0.072、首先使用plo...

本文使用基本的绘图命令plotrectsegmentstext绘制一把长10厘米的直尺。话不多说上教程。

1、定义基本单位

xcm <- 0.07
ycm <- 0.07

2、首先使用plot绘制一个空白画布

plot(0:1, 0:1, type = "n", axes = f, ann = f)

R语言绘制尺子的实现示例

3、绘制一个灰色的底作为直尺的影子

rect(0 + 0.2*xcm,0 - 0.2*ycm,0.95 + 0.2*xcm,0.15 - 0.2*ycm, col="gray", border = na)

R语言绘制尺子的实现示例

4、绘制一个白的底作为直尺

rect(0,0,0.95,0.15, col = "white")

R语言绘制尺子的实现示例

5、标注刻度

segments(seq(1,11,0.1)*xcm,0,seq(1,11,0.1)*xcm,
c(rep(c(0.5, rep(0.25,4), 0.35,rep(0.25,4)), 10), 0.5)*ycm
)

R语言绘制尺子的实现示例

6、标注数字以及单位

text(1:11*xcm, 0.6*ycm,0:10,adj = c(0.5, 0))
text(11.3*xcm, 0.6*ycm,"cm",adj = c(0, 0))

R语言绘制尺子的实现示例

这样一个直尺就做好了

到此这篇关于r语言绘制尺子的实现示例的文章就介绍到这了,更多相关r语言绘制尺子内容请搜索以前的文章或继续浏览下面的相关文章希望大家以后多多支持!

相关标签: R语言 尺子