x<- 1:6
p<- rep(1/6,6)

par(mai=c(.8, .8, 0.2, .2))
plot(x,p, type="h", lwd=3, col="Blue",
 ylim=c(0,0.3), xlim=c(0,7), xaxs = "i", yaxs = "i")