R does not by default allocate any space to the outer margins; see par("oma"). Try
par("oma")
par(oma=c(0,0,2,0))
(See ?par and search for "outer" for more information.)
?par