Putting values and axis X labels on the charts based on allEffects

Dear everybody!
Need help with graphics. I am runnig a simple lm and then using
allEffects from 'effects' package:

require(effects)
model<-lm(Y~A+B, data=mydataframe)

I am trying to build (for each predictor - A and then B) a plot of means on Y.
I was successful doing it like this - in one swoop:

ml.eff<-allEffects(ml1, se=F)
plot(ml.eff,ylab="Title of Y")

Is it possible to show on my graph:
1. The actual Y values for each dot.
2. The title for A on the A graph and the title for B on the B graph -
but without having to do it one by one - because in reality I have
more predictors than one.

Thank you very much!

Dimitri Liakhovitski
MarketTools, Inc.
Dimitri.Liakhovitski at markettools.com