Improve graphic using width=100, height=800, res=c(130, 100) in png()