clustering result iamge generated with R added