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
  )