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

有没有办法在另一个图的绘图区域内添加直方图，但独立于“基础”图的坐标系？就我而言，我想将直方图作为图例添加到分区统计图（直方图将显示属于每个类别的区域数量），但问题可以轻松应用于任何绘图。例如

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

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

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

Try subplot在TeachingDemos包中（并且也在Hmisc包中复制）。subplot需要用户坐标，但是grconvertX / grconvertY可用于从标准化绘图坐标进行转换。请参阅下面的评论以进行更多讨论。

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

这使：