Successfull implemenation of chorograph in ggplot