R語言繪制尺子的實現示例

本文使用基本的繪圖命令plot、rect、segments、text繪制一把長10厘米的直尺。話不多說上教程。

1、定義基本單位

xcm <- 0.07
ycm <- 0.07

2、首先使用plot繪制一個空白畫佈

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

在這裡插入圖片描述

3、繪制一個灰色的底作為直尺的影子

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

在這裡插入圖片描述

4、繪制一個白的底作為直尺

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

在這裡插入圖片描述

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
)

在這裡插入圖片描述

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語言繪制尺子內容請搜索WalkonNet以前的文章或繼續瀏覽下面的相關文章希望大傢以後多多支持WalkonNet！