Enhance R script

Tidy data and means displayed in much better way.