R Studio：在直方图内部绘制小块，并用PAR函数重复多次

我需要为我的变量“旅行时间”做一个柱状图。在这里面，我需要绘制回归（相关性）数据，即我的观察数据与预测数据。我需要重复一天和一周的不同时间（简单的说，用PAR函数做一个这样的图形矩阵）。现在，我可以绘制直方图并以矩阵形式排列，但我在内部绘图中遇到了一个问题（将x和y数据与y=x线一起绘制，并将它们排列在矩阵中的连续直方图绘图中）。我如何才能做到这一点，如下图所示。任何帮助都将不胜感激。谢谢

---

一种方法是在数据上循环，并在每次迭代中创建所需的绘图。这是一个不太完美的例子，但它展示了如何在较大的绘图上绘制较小的绘图。您将不得不调整代码以使其以您需要的方式工作，但这应该不会那么困难

# create some sample dataset (your x values)
a <- c(rnorm(100,0,1))
b <- c(rnorm(100,2,1))
# create their "y" values counterparts
x <- a + 3
y <- b + 4
# bind the data into two dataframes (explanatory variables in one, explained in the other)
data1 <- cbind(a,b)
data2 <- cbind(x,y)

# set dimensions of the plot matrix
par(mfrow = c(2,1))
# for each of the explanatory - explained pair
for (i in 1:ncol(data2))
{
        # set positioning of the histogram
        par("plt" = c(0.1,0.95,0.15,0.9))
        # plot the histogram
        hist(data1[, i])
        # set positioning of the small plot
        par("plt" = c(0.7, 0.95, 0.7, 0.95))
        # plot the small plot over the histogram
        par(new = TRUE)
        plot(data1[, i], data2[, i])
        # add some line into the small plot
        lines(data1[, i], data1[, i])
}

#创建一些示例数据集（您的x值）
a请阅读，以及制作。这包括显示示例代表性数据和尝试的代码。通常，简化问题（可能使用标准数据集）会有很大帮助，而不必花费大量时间解释所有变量的含义和/或包括不相关的变量。@r2evans：谢谢你的建议。当然可以。如果它解决了您的问题，请随意接受答案作为解决方案：）