ggplot中的相同比例

Question

我想要两个比例都等于范围，如何在ggplot2中做到这一点：

ggplot2 可重现示例

mtcars %>% ggplot(aes(x = wt, y = drat)) + geom_point()

Answer 1

这是一个例子：

library(tidyverse)
library(wrapr)

mtcars %.>%
  ggplot(., aes(x = wt, y = drat)) +
  geom_point() +
  coord_cartesian(
    xlim = c(min(pmin(.$wt, .$drat)), max(pmax(.$wt, .$drat))) -> sc_range,
    ylim = sc_range
  )