clustering : move r code into plot.R

1 job for master in 1 minute and 33 seconds (queued for 20 seconds)