Let's say your data is mtcars
(built-in) and your one predictor is mpg
:
library(ggplot2)
library(reshape2)
mtmelt <- melt(mtcars, id = "mpg")
ggplot(mtmelt, aes(x = value, y = mpg)) +
facet_wrap(~variable, scales = "free") +
geom_point()
This is pretty unusual, more commonly you put predictors on the x-axis, but it's what you asked for.