如何在M×N布局中放置含内嵌图的多图且不打乱par()设置？

问题根源在于你使用grconvertX/Y转换为ndc（标准化设备坐标）时，是基于整个绘图设备计算的，而layout/mfrow已经将设备分割为多个子区域，导致内嵌图的位置计算错位，进而干扰外层布局。

核心解决思路 #

基于**当前子图的用户坐标（usr）**计算内嵌图的相对位置，再转换为ndc坐标，确保内嵌图被限制在当前子图内部，不会影响其他布局区域。

修正后的layout示例代码 #

layout(matrix(1:4, 2, 2))
for (i in 1:4) {
  # 绘制主图
  curve(exp(x), 0, 1, col=4)
  
  # 获取当前子图的用户坐标范围（x轴：usr[1]-usr[2]，y轴：usr[3]-usr[4]）
  usr <- par("usr")
  # 定义内嵌图在主图中的相对位置（比例范围0-1）
  inset_x <- c(0.1, 0.4)  # 主图x轴10%到40%的区域
  inset_y <- c(0.2, 0.5)  # 主图y轴20%到50%的区域
  
  # 将相对位置转换为ndc坐标（基于整个设备的0-1范围）
  fig_x <- grconvertX(usr[1] + inset_x * diff(usr[1:2]), from="user", to="ndc")
  fig_y <- grconvertY(usr[3] + inset_y * diff(usr[3:4]), from="user", to="ndc")
  
  # 保存当前绘图参数，设置内嵌图参数
  .op <- par(
    fig = c(fig_x, fig_y),
    mar = c(1, 1, 1, 1),
    new = TRUE
  )
  
  # 绘制内嵌图（可关闭轴和标题让布局更简洁）
  curve(sin(x), 0, 2*pi, axes=FALSE, ann=FALSE)
  box()  # 给内嵌图添加边框
  
  # 恢复原绘图参数
  par(.op)
}
layout(1)  # 恢复默认布局设置

修正后的mfrow示例代码 #

逻辑与layout完全一致，仅外层布局方式不同：

op <- par(mfrow=c(2,2))
for (i in 1:4) {
  curve(exp(x), 0, 1, col=4)
  
  usr <- par("usr")
  inset_x <- c(0.05, 0.35)
  inset_y <- c(0.15, 0.45)
  
  fig_x <- grconvertX(usr[1] + inset_x * diff(usr[1:2]), from="user", to="ndc")
  fig_y <- grconvertY(usr[3] + inset_y * diff(usr[3:4]), from="user", to="ndc")
  
  .op <- par(fig=c(fig_x, fig_y), mar=c(1,1,1,1), new=TRUE)
  curve(sin(x), 0, 2*pi, axes=FALSE, ann=FALSE)
  box()
  par(.op)
}
par(op)  # 恢复默认绘图参数

关键细节说明 #

• par("usr")：获取当前子图的用户坐标范围，确保内嵌图的位置计算基于当前子图，而非整个设备。
• inset_x/inset_y：用比例值定义内嵌图在主图中的位置，调整数值即可灵活改变内嵌图的大小和位置。
• axes=FALSE, ann=FALSE：关闭内嵌图的轴标签和标题，避免与主图元素重叠，让布局更干净。

内容的提问来源于stack exchange，提问作者jay.sf