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 controlpoint 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 controlpoint 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.2y1a <- 0.2; y1b <- 0.8grid.curve(x1a, y1a, x1b, y1b)x2a <- 0.4; x2b <- 0.5y2a <- 0.2; y2b <- 0.8grid.curve(x2a, y2a, x2b, y2b,inflect=TRUE)x3a <- 0.7; x3b <- 0.8y3a <- 0.2; y3b <- 0.8grid.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”)