ggplot(faithfuld, aes(waiting, eruptions)) +
geom_raster(aes(fill = density)) +
geom_point(color = "red", size = 1)
ggplot(faithfuld, aes(waiting, eruptions)) +
geom_raster(aes(fill = density)) +
layer_order(geom_point(color = "red", size = 1))
Run the code above in your browser using DataLab