如何在ggplot中调整散点图旁密度图的x或y位置？

要把密度图移到指定位置（比如散点图侧边、顶部或任意坐标点），可以用stat_density直接操作密度计算值，通过偏移坐标+缩放密度幅度的方式，将密度图绘制到目标区域，具体实现如下：

1. 核心思路 #

先确定散点图的数据范围，自定义密度图的目标位置偏移量，再通过stat(density)获取密度值并缩放，将其叠加到目标坐标上，从而实现密度图的位置迁移。

2. 完整代码示例 #

library(ggplot2)

set.seed(123) # 保证结果可复现
df = data.frame(x = rnorm(50, mean = 10), 
                y = runif(50, min = 10, max = 20), 
                id = rep(LETTERS[1:5], each = 10))

# 定义密度图的目标位置和缩放参数
# 示例：把x变量的密度图放在y=22处，y变量的密度图放在x=7处
target_y_xdensity = 22
target_x_ydensity = 7
density_scale = 0.8 # 缩放密度图的幅度，避免过大覆盖散点

# 基础散点图
ggppp = ggplot(df, aes(x, y, color = id)) + 
  geom_point() + 
  theme_bw()

# 添加自定义位置的密度图
ggppp +
  # X变量的密度图：固定在y=target_y_xdensity位置
  stat_density(
    aes(x = x, y = target_y_xdensity + stat(density)*density_scale),
    inherit.aes = FALSE, geom = "line", aes(color = id),
    size = 0.8
  ) +
  # Y变量的密度图：固定在x=target_x_ydensity位置
  stat_density(
    aes(y = y, x = target_x_ydensity - stat(density)*density_scale),
    inherit.aes = FALSE, geom = "line", aes(color = id),
    size = 0.8
  ) +
  # 可选：添加辅助虚线标记密度图位置
  geom_hline(yintercept = target_y_xdensity, linetype = "dashed", alpha = 0.5) +
  geom_vline(xintercept = target_x_ydensity, linetype = "dashed", alpha = 0.5)

关键细节说明 #

• stat(density)直接调用密度计算结果，对其缩放后叠加到目标坐标，实现密度图的位置移动；
• inherit.aes = FALSE避免继承散点图的x/y映射，确保重新定义密度图的坐标规则；
• 修改target_y_xdensity/target_x_ydensity可将密度图移到任意指定坐标；
• density_scale控制密度图的线条幅度，防止密度图过大干扰散点图展示。

内容的提问来源于stack exchange，提问作者M. Beausoleil