利用R 制流程图

# 方法一：使用diagram包
# install.packages("diagram")
library(diagram)
par(mar = c(1, 1, 1, 1), mfrow = c(1, 2))
names <- c("A", "B", "C", "D")
M <- matrix(nrow = 4, ncol = 4, byrow = TRUE, data = 0)
plotmat(M, pos = c(1, 2, 1), name = names, lwd = 1,
        box.lwd = 2, cex.txt = 0.8, box.size = 0.1,
        box.type = "square", box.prop = 0.5)
M[2, 1] <- M[3, 1] <- M[4, 2] <- M[4, 3] <- "flow"
plotmat(M, pos = c(1, 2, 1), curve = 0, name = names, lwd = 1,
        box.lwd = 2, cex.txt = 0.8, box.type = "circle", box.prop = 1.0)
# 第一个参数为一个方阵，表明图的连接关系，矩阵的行数表示图的顶点的个数，
# 第二个参数pos指定了图的形状，上面的c(1,2,1)表示第一行1个点，第二行2个点，第三行1个点。如果要把所有的点画在一行，使用一个数字pos=c(4