If I run this simple code:
x <- c(1:10) y <- c(1:10) plot(x,y,type=\"h\")
the result contains very thin histogram lines.
Try this:
plot(x,y,type="h", lwd = 4)