CommunityGraphPlot[SocialMediaData["Facebook","FriendNetwork"],CommunityLabels->{"Online friends","High school\n Local area friends","Family"}]