Create some data
x <- runif(50, -10, 10)
y <- runif(50, -10, 10)
In the base chart, you can use the function ablineto draw lines on the chart. The trick is to draw a vertical line and a horizontal line in positions x=0and y=0:
plot(x, y)
abline(h=0)
abline(v=0)

ggplot2:
library(ggplot2)
qplot(x, y) + geom_vline(xintercept=0) + geom_hline(yintercept=0)
