Communities such as family, coworkers, and high school friends in Facebook friend networks can be detected and visualized in the Wolfram Language.
Wolfram Language code: CommunityGraphPlot[SocialMediaData["Facebook", "FriendNetwork"], CommunityLabels -> {"Online friends", "High school
Local area friends", "Family"}]