added par() and mar() to adust labels