https://researchdatapod.com/how-to-solve-r-error-aesthetics-must-be-either-length-1-or-the-same-as-the-data/