You can make the scatterplot with your data:
plot(x = ..., y = ...)
Then add your regression slope using the abline() function. This post might help with ggplot2:
If by "partial residuals" you mean you want to plot y by residuals of x after partialling out other predictors, I think you would have to regression x on your other covariates, then calculate residuals manually (for complete cases) using the regression parameters to calculate the predicted values. Then make your scatterplot of data points, and add the regression line for x's effect.
Terrence D. Jorgensen
Assistant Professor, Methods and Statistics
Research Institute for Child Development and Education, the University of Amsterdam