Create AstroPenn.Rdotchart(z, main='')