I have a data for example like this:
id<- c(\'John\',\'Doe\',\'Peter\', \'Gynn\',\'Jolie\', \'Hope\', \'David\', \'Tom\') stats <- c(2.3, 3.3, 1.2, 0.7, 0.8