Message Boards Message Boards

Celebrating International Women's Day

enter image description here

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:

enter image description here

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]

enter image description here

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract