r - 同轴限制垂直/水平、固定方面、小平面中的自由缩放

Question

为了比较范围差异很大的多个医学变量的结果，我想创建一个散点图，如下所示

每个面板水平和垂直轴相同，

固定的方面，以便倾斜= 1 线穿过角落。

——

library(ggplot2)
set.seed(11)
d = rbind(
  data.frame(what = "a", v1 = rnorm(20)+0.2, v2 = rnorm(20)),
  data.frame(what = "b", v1 = rnorm(20, 100, 10)+20, v2 = rnorm(20, 100,10)))

ggplot(d, aes(x = v1, y = v2 )) +
  geom_point() +
  geom_abline(slope = 1) +
  facet_wrap(~what, scales = "free") +
  theme(aspect.ratio = 1) +
  coord_fixed(ratio = 1) + # No effect?
  stat_ellipse()

我知道使用预先计算的限制很难做到这一点。
Setting individual axis limits with facet_wrap and scales = "free" in ggplot2

Answer 1

如果您在不可见的情况下绘制 x 和 y 反转的所有内容，则每个方面都将具有相同的 x 和 y 轴。

library(ggplot2)
set.seed(11)
d = rbind(
  data.frame(what = "a", v1 = rnorm(20)+0.2, v2 = rnorm(20)),
  data.frame(what = "b", v1 = rnorm(20, 100, 10)+20, v2 = rnorm(20, 100,10)))

ggplot(d ) +
  geom_point(aes(x = v1, y = v2 )) +
  geom_blank(aes(x = v2, y = v1 )) +
  geom_abline(slope = 1) +
  facet_wrap(~what, scales = "free") +
  stat_ellipse(aes(x = v1, y = v2 )) +
  stat_ellipse(aes(x = v2, y = v1 ), alpha=0)