how to remove the white space between two plots in r code example

Example: how to remove the white space between two plots in r

> par(mfrow=c(2,1))
> par(mar=c(0,1,1,1))
> plot(1:10)
> par(mar=c(1,1,0,1))
> plot(1:10)