如何在R中绘制一个模型列表中的所有R个正方形？

# 创建模型列表
model_list <- list(model1, model2, ..., modelR)

# 确定正方形的位置和大小
x <- c(x1, x2, ..., xR)  # 正方形的x坐标
y <- c(y1, y2, ..., yR)  # 正方形的y坐标
side_length <- c(l1, l2, ..., lR)  # 正方形的边长

# 绘制正方形
plot(0, 0, xlim = c(min(x) - 1, max(x) + 1), ylim = c(min(y) - 1, max(y) + 1), type = "n", xlab = "X", ylab = "Y")  # 创建一个空白的绘图区域

for (i in 1:R) {
  rect(x[i], y[i], x[i] + side_length[i], y[i] + side_length[i], col = "blue")  # 绘制正方形
}