在R语言中，我们可以使用子图（subplots）的方式在维度直方图等高线图的顶部和右侧添加两个变量的边缘直方图

在R语言中，我们可以使用子图（subplots）的方式在维度直方图等高线图的顶部和右侧添加两个变量的边缘直方图。这种可视化方法可以帮助我们同时查看两个变量的分布以及它们之间的关系。下面是详细的步骤以及相应的源代码来实现这个效果。

首先，我们需要准备一些数据来演示这个过程。假设我们有两个变量X和Y，我们希望绘制它们的二维直方图以及它们各自的边缘直方图。我们可以使用rnorm()函数生成一些随机数据作为示例。

# 生成随机数据
set.seed(123)
X <- rnorm(1000)
Y <- rnorm(1000)

接下来，我们需要加载ggplot2和cowplot这两个R包，它们提供了创建维度直方图等高线图和子图的功能。

# 加载所需的R包
library(ggplot2)
library(cowplot)

现在，我们可以创建维度直方图等高线图。我们可以使用geom_density2d()函数来生成二维核密度估计图，并使用geom_point()函数添加原始数据点的散点图。

# 创建维度直方图等高线图
plot_main <- ggplot(data = data.frame(X = X, Y = Y), aes(x = X, y = Y)) +
  geom_density2d() +