r - 在另一个绘图的绘图区域内添加小直方图

Question

有没有办法在另一个绘图的绘图区域内添加直方图，但独立于“基础”绘图的坐标系？在我的例子中，我想将直方图作为图例添加到等值线图(直方图将显示属于每个类别的区域数量)，但这个问题可以很容易地应用于任何情节。例如

plot(1:10)
rect(1, 7, 4, 9, col="gray")

我可以让直方图出现在上图中灰色矩形的位置吗？目前，如果我尝试创建 1:10 系列的直方图，它会使用散点图设置的坐标系显示，我无法弄清楚如何(或是否可能)重新定位它并调整它的大小以显示在左上角。

plot(1:10)
hist(1:10, col="gray90", add=TRUE)

Answer 1

在 TeachingDemos 包中尝试 subplot(并在 Hmisc 包中复制)。 subplot 采用用户坐标，但 grconvertX/grconvertY 可用于从标准化绘图坐标转换。请参阅下面的评论以获取更多讨论。

library(TeachingDemos)
plot(1:10)
subplot(hist(1:10), grconvertX(c(.1, .4), "npc"), grconvertY(c(.7, .9), "npc"))

给出: