Lets celebrate today's international women's day creating a WordCloud made by "woman" words written in different languages.
First I got all wikipedia entries for "Woman" using WikipediaData:
womanWords = WikipediaData["Woman", "TitleTranslationRules"]
Then I used a heart mask image to create the WordCloud frame:
Finally I gave some random purple tonalities to the words:
WordCloud[
Map[Style[#, FontSize -> RandomInteger[{12, 24}],
Lighter[Purple, RandomReal[{0, 0.8}]]] &,
Union[Values@womanWords]], heartMask, ImageSize -> Large]
One can easily explore these "woman" words using CommunityGraphPlot and Nearest:
nf = Nearest[Values[womanWords]]
edges = DeleteDuplicates@
Flatten@Map[Thread[# \[UndirectedEdge] nf[#, 4]] &,
Values[womanWords]] //. UndirectedEdge[x__, x__] -> Nothing
CommunityGraphPlot[edges, VertexLabels -> "Name", ImageSize -> Full]