它不是100%清楚你的最终情节应该是什么样子。但是一个选择是创建三个单独的图并使用例如将它们粘合在一起。patchwork：

library(ggplot2)
library(patchwork)

p1 <- ggplot(data = mpg, aes(x = displ, y = hwy)) +
  geom_point()

p2 <- ggplot(data = mpg, aes(y = hwy)) +
  geom_histogram(binwidth = 2) +
  labs(y = NULL) +
  coord_cartesian(ylim = range(mpg$hwy))

p3 <- ggplot(mpg) +
  theme_void() +
  annotate(
    geom = "label",
    x = 0, y = .5,
    label = paste0(
      "mean = ", round(mean(mpg$hwy), 1), "\n",
      "sigma = ", round(sd(mpg$hwy), 1)
    ),
    hjust = 0
  ) +
  scale_x_continuous(limits = c(0, 1))

p3 + p1 + p2 +
  plot_layout(widths = c(1, 3, 1))