I am trying to find a good way to visualize evolution of subjects, ideas, characters in a text using WordCloud. Below you see this simple idea:
Get text of the book and DeleteStopwords
Delete obvious non-informative top words as "Alice" in our case
Build frames of animation each frame on a bout a page of a book ~ 500 words
For smoother animation transitions make shifts between the frames much smaller than a page - say 20 words
So we are basically scanning the text by a window of 500 words shifted in steps of 20 words. Here is the result and code. Smaller words are harder to to comprehend. Let me know if you got some better ideas.
alice = DeleteCases[TextWords[DeleteStopwords[
ToLowerCase[ExampleData[{"Text", "AliceInWonderland"}]]]], "alice" | "said" | "little" | "heard"];
lngth = alice // Length
3580
frms = ParallelTable[WordCloud[alice[[k ;; k + 500]], ImageSize -> 400], {k, 1, lngth - 500, 20}];
Export["alice.gif", frms, "DisplayDurations" -> {.25}]
"alice.gif"