x <- runif(50, -10, 10)
y <- runif(50, -10, 10)
plot(x, y, yaxt="n") # don't plot y-axis, see ?par, section xaxt
axis(2, pos=0) # Draw y-axis at 0 line
Run Code Online (Sandbox Code Playgroud)

但我个人认为你应该使用grid()或Andrie解决方案.
创建一些数据
x <- runif(50, -10, 10)
y <- runif(50, -10, 10)
Run Code Online (Sandbox Code Playgroud)
在基础图形中,您可以使用该abline函数在绘图上绘制线条。诀窍是在x=0和y=0位置绘制一条垂直线和水平线:
plot(x, y)
abline(h=0)
abline(v=0)
Run Code Online (Sandbox Code Playgroud)

实现类似结果的另一种方法是使用该ggplot2包:
library(ggplot2)
qplot(x, y) + geom_vline(xintercept=0) + geom_hline(yintercept=0)
Run Code Online (Sandbox Code Playgroud)
