How can I label each node in, say,
 
CommunityGraphPlot@ExampleData[{"NetworkGraph", "DolphinSocialNetwork"}]
From
 
FindGraphCommunities@ExampleData[{"NetworkGraph", "DolphinSocialNetwork"}]
I know that there dolphin names are in there, but I cannot get to them, not even with "VertexProperty". Could someone kindly help pls? Many thanks in advance.