subscale_identity function

Identity sub-scale for thickness aesthetic