library(ggplot2)
ggplot(iris) +
aes(x = Sepal.Length - 5, y = Sepal.Width - 3, colour = Species) +
geom_vline(xintercept = 0) +
geom_hline(yintercept = 0) +
geom_point()
last_plot() +
scale_x_continuous(limits = symmetric_limits) +
scale_y_continuous(limits = symmetric_limits)
Run the code above in your browser using DataLab