set 1:1 ratio between axis

coord_fixed.R

``` r
library(tidyverse)
#> Warning: package 'tidyverse' was built under R version 4.0.4

ggplot(mtcars, aes(disp, hp)) + 
  geom_point() +
  
  #fijar el ratio de escala entre los ejes X y Y
  coord_fixed(ratio = 1) +
  
  #definir cortes en cada eje
  scale_y_continuous(breaks = seq(50,500,by=50)) +
  scale_x_continuous(breaks = seq(50,500,by=50))
```

![](https://i.imgur.com/YhCjaxq.png)

<sup>Created on 2021-05-04 by the [reprex package](https://reprex.tidyverse.org) (v0.3.0)</sup>