在R图中将正方形转换为矩形

Question

这个问题是对earlier question的跟进。我的目标是用宽度相同但高度一半的矩形代替在许多不同图中显示的正方形（pch = 22）。

我想知道如何首先获得每个图中正方形的边长？

例如，对于下面的绘图，我可以直观地（即尝试并错误）找到实现我的目标的正方形的宽度和高度，但是对于其他任何绘图，都可以通过功能性方法来做到这一点而无需尝试和错误？

x <- (8:14)*.1 ; y <- rep(1, 7)

plot(x, y, cex = 6.3, pch = 22)

width <- (x + .039) - (x - .039)  # `.039` obtained visually (i.e., try and error)!
height <- (y + .033) - (y - .033) # `.033` obtained visually (i.e., try and error)!

rec <- matrix(c(width, height/2), ncol = 2)

symbols(x, y, rectangles = rec, inches = F, add = T)