The following code shows an interaction plot using the effects library:
model <- lm(mpg ~ hp + wt + hp:wt, data=mtcars)
library(effects)
plot(effect("hp:wt", model, list(wt=c(2.2,3.2,4.2))), multiline=TRUE)

I tried making the same model but holding wt at 2.2, but this model could not calculate the coefficient for wt:
mtcars$wt_2.2 <- 2.2
model2.2 <- lm(mpg ~ hp + wt_2.2 + hp:wt, data=mtcars)
coef(model2.2)
How can I make the same plot using ggplot2?
