在R中创建流程图；形状没有改变大小或缩放比例不正确

Question

我正在尝试使用以下布局在R中构建流程图：

3列或垂直部分：

1. 第一列：彼此重叠的两个圆圈，每个圆圈都有填充 带有连接的箭头，
2. 第二列：位于绘图中心的一个正方形，其中两个 箭头延伸到哪个，
3. 第3列：彼此重叠的两个圆圈，带有一些填充。

每个形状都应足够大，以使两行文本适合其上方，每行大约8个字符长。

下面是我要完成此操作的代码，但是出现以下错误：

# Prepare plot area
plot(0:100, 0:100, type = "n") #axes = F, xlab = NA, ylab = NA)

# Draw shapes
symbols(x = 50, y = 50, squares = 20, add = T) # square in middle
symbols(x = c(15, 15), y = c(70, 30), circles = c(5,5), add = T) # leftmost column of two circles
symbols(x = c(80, 80), y = c(70, 30), circles = c(5,5), add = T) # rightmost column of two circles

# Draw arrows
arrows(x0 = 25, y0 = 75, x1 = 43.5, y1 = 55) # upper-left arrow
arrows(x0 = 25, y0 = 25, x1 = 43.5, y1 = 45) # lower-left arrow

arrows(x0 = 57.5, y0 = 55, x1 = 75, y1 = 75) # upper-right arrow
arrows(x0 = 57.5, y0 = 45, x1 = 75, y1 = 25) # lower-right arrow

1. 无论我取什么值，正方形和圆形都不会改变大小 分别输入其长度和半径。
2. 此外，圆圈太大了。
3. 缩小图时，形状或文字均不缩放， 但是箭头移动得很好。
4. 箭头坐标不完全匹配的原因 长度和半径是因为箭头延伸到 形状。我希望箭头完全匹配形状的位置 边缘。