data(solubility_test, package = "modeldata")
library(ggplot2)
p <- ggplot(solubility_test, aes(x = solubility, y = prediction)) +
geom_abline(lty = 2) +
geom_point(alpha = 0.5)
p
p + coord_fixed()
p + coord_obs_pred()
Run the code above in your browser using DataLab