Create VisualiseGroups.R