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

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

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

这使:

在此输入图像描述