r - 在 R 中创建流程图;形状没有正确改变大小或缩放
问题描述
我正在尝试在 R 中构建一个流程图,其布局如下:
3 列或垂直部分:
- 第一列:两个相互重叠的圆圈,带有一些填充,每个圆圈都有一个连接到的箭头,
- 第 2 列:地块最中心的一个正方形,有两个箭头伸出,旁边是,
- 第三列:两个相互重叠的圆圈,带有一些填充。
每个形状应该足够大,足以容纳两行文本,每行大约 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
- 无论我分别为它们的长度和半径输入什么值,正方形和圆形都不会改变大小。
- 更何况,圈子都太大了。
- 当我缩小绘图时,任何形状或文本都不会按比例缩放,但箭头移动得很好。
- 箭头坐标与长度和半径不完全匹配的原因是箭头延伸到形状中。我希望箭头与形状边缘的位置完全匹配。
解决方案
推荐阅读
- json - 在反应的json数组中动态添加和切换showmore/less
- angular - 如何处理来自 api 响应的数据,然后以角度同步返回布尔值?
- python - Gensim Word2Vec 嵌入而不是 GloVe 类型错误:字符串格式化期间并非所有参数都转换
- javascript - 如何在 Jest 中模拟 AbortController
- catel - 无法在 .Net Framework 4.7 项目中安装 Orc.Controls
- json - 将 json 对象与 jq 连接起来
- r - 使用循环对 r 中的多个数据集进行子集化
- python - 为什么 fig.update_layout 的 `title_text` 参数似乎不适用于 Jupyter 中的 Plotly 表?
- docker - 运行 docker 镜像时出错,无法找到包
- python - 使用 TF2 训练自定义对象检测模型后,Tensorboard 中的多个边界框