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

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"))

给出：