R語言繪製流程圖(一)

作者：吳健 中國科學院大學 R語言、統計學愛好者，尤其擅長R語言和Arcgis在生態領域的應用分享

個人公眾號：統計與程式語言 

R語言為用戶提供了大量的繪圖函數，包括基於圖形語法的ggplot2和傳統繪圖包等。關於上述繪圖函數有大量的介紹材料，大家可以自行查找材料進行學習。

本文介紹R語言中基於低水平繪圖設備（僅能繪製基本圖形）來繪製流程圖。

在第一部分我首先介紹R語言低水平繪圖設備如何來繪製基本圖形，下一期會以這一期的內容為基礎來繪製一個完整的流程圖，敬請期待。

1.繪製基本圖元文件，並在矩形框中添加文本：

library(grid)
grid.roundrect(width=0.25, height=0.25)
grid.text(「ISBN」)

2.根據視口的方法調整文字在矩形框中的位置

pushViewport(viewport(width=0.25,height=0.125))
grid.roundrect()
grid.text(「ISBN」, x=unit(2,」mm」), y=unit(1.5,』lines』), just=』left』)
grid.text(「title」, x=unit(2,」mm」), y=unit(0.5,」lines」), just=」left」)
popViewport()

3.根據文字大小繪製矩形框的大小

labels <- c(「ISBN」, 「title」)
vp <- viewport(width=max(stringWidth(labels))+unit(4,」mm」),
 height=unit(length(labels),」lines」))
pushViewport(vp)
grid.roundrect()
grid.text(labels,x=unit(2,」mm」),y=unit(2:1-0.5,』lines』),just=」left」)
popViewport()

4.採用裁剪的方法繪製陰影（主要思想是先繪製一個灰色矩形框，然後繪製一個在底邊留下一行的相對小一點的白色矩形框）

pushViewport(viewport(width=0.25, height=0.2))
grid.roundrect(gp=gpar(fill=」grey」))
grid.clip(y=unit(1,」lines」),just=」bottom」)
grid.roundrect(gp=gpar(fill=」white」))
popViewport()

5.繪製曲線

5.1根據一系列點繪製曲線

x1 <- c(0.1, 0.2, 0.2)
y1 <- c(0.2, 0.2, 0.8)
grid.xspline(x1, y1)#create a sharp corner at the control
point
x2 <- c(0.4, 0.5, 0.5)
y2 <- c(0.2, 0.2, 0.8)
grid.xspline(x2, y2, shape=-1)#draw a smooth curve through the control
point
x3 <- c(0.7, 0.8, 0.8)
y3 <- c(0.2, 0.2, 0.8)
grid.xspline(x3, y3, shape=1)#draw a smooth curve that passes nearby

5.2根據起點和終點繪製曲線

x1a <- 0.1; x1b <- 0.2
y1a <- 0.2; y1b <- 0.8
grid.curve(x1a, y1a, x1b, y1b)
x2a <- 0.4; x2b <- 0.5
y2a <- 0.2; y2b <- 0.8
grid.curve(x2a, y2a, x2b, y2b,inflect=TRUE)
x3a <- 0.7; x3b <- 0.8
y3a <- 0.2; y3b <- 0.8
grid.curve(x3a, y3a, x3b, y3b,ncp=8, angle=90,square=FALSE,curvature=2,arrow=arrow(angle=15))

6.繪製流程圖基本圖件

labels <- c(「ISBN」, 「title」, 「pub」)
vp <- viewport(width=max(stringWidth(labels))+unit(4,」mm」), height=unit(length(labels),」lines」))
pushViewport(vp)
grid.roundrect()
grid.clip(y=unit(1,」lines」),just=』bottom』)
grid.roundrect(gp=gpar(fill=』grey』))
grid.clip(y=unit(2,」lines」),just=」bottom」)
grid.roundrect(gp=gpar(fill=」white」))
grid.clip()
grid.text(labels,x=unit(rep(2,3),」mm」),y=unit(3:1-0.5,」lines」),just=」left」)

公眾號後臺回復關鍵字即可學習

回復 爬蟲            爬蟲三大案例實戰  
回復 Python       1小時破冰入門

回復 數據挖掘     R語言入門及數據挖掘
回復 人工智慧     三個月入門人工智慧
回復 數據分析師  數據分析師成長之路 
回復 機器學習      機器學習的商業應用
回復 數據科學      數據科學實戰
回復 常用算法      常用數據挖掘算法