library(ggplot2)
mtcars |>
  ggplot(aes(mpg, disp)) +
  geom_point(size = 5) +
  geom_abline(slope = 20, intercept = 0, linewidth = 5, color = "pink") +
  theme_minimal(base_size = 16)+
  lims(x = c(10, 35), y = c(100, 500))

ggsave(filename = "hello.svg")

library(ggplot2)
mtcars |>
  ggplot(aes(mpg, disp)) +
  geom_abline(slope = 10, intercept = 0, linewidth = 5, color = "pink") +
  geom_point(size = 5) +
  theme_minimal(base_size = 16)+
  lims(x = c(10, 35), y = c(100, 500))

:::