@Jeremy Sykes, thanks for the links! If I find some time I will run the visualization on those texts.

I've been trying to figure out what this says

The visualization simply shows what are the most frequent terms in a text and which terms a used closely together. For instance, for me it is quite interesting to see that Space and Time are some key concepts for zen but not for the existentialism.

I'd rather see this with done with the texts of several works

Yes, dedicated texts and studies are very interesting (I will try to get to them). But so are the summaries if they are well written, and Stanford Encyclopedia of Philosophy, I think, is a quality source. An advantage of a summary is it focuses on the whole field encompassing many works, authors, and distilled terminology. Disadvantage of course - it is not an original key work :-)

Nicely done, @Rohit Namjoshi ! But now, to fix all the issues, we must embark on some journey... Let's do this one step at a time. Get the text and words:

text=Import["http://dhspriory.org/kenny/PhilTexts/Sartre/BeingAndNothingness.pdf","Plaintext"];
words=TextWords[text];

Use @Marco Thiel's function from the post you linked:

https://community.wolfram.com/groups/-/m/t/1572809

stopWords=ToLowerCase[WordList["Stopwords"]];
myDeleteStopwords[list_]:=Select[list,!MemberQ[stopWords,#]&]

to process hyphenated words properly

newTEXT = words // ToLowerCase // myDeleteStopwords // StringRiffle;

Note, StringRiffle makes text from words agin as KeywordsGraph takes text, not list of words - maybe something to fix in future... Now you see those hyphenated words were very important, like for-itself and in-itself are special terms:

newTEXT // TextWords // Counts // TakeLargest[#, 12] &

<|for-itself->1509,world->1437,consciousness->1385,fact->947,object->916,relation->859,freedom->829,nothingness->811,body->722,in-itself->700,order->660,past->652|>

Redefine styles with "StopWords" and "LowerCase" both False as we do not need them anymore:

styles={
VertexLabelStyle->Directive[GrayLevel[.8],15],
EdgeStyle->Opacity[.3],
VertexSize->"VertexWeight",
GraphStyle->"Prototype",
VertexLabels -> Placed[Automatic, Above],
Background->Black,
"StopWords"->False,
"LowerCase"->False};

Do some research with CMD-SHIFT-E to understand it is not just an empty string, but some strange symbol that got in from the PDF file:

Cell[BoxData["\"\<\.01\>\""], "Input"]

Now go fancy, add FindGraphCommunities to be able to specify method of clustering:

CommunityGraphPlot[#,FindGraphCommunities[#,Method->"Modularity"],
PlotLabel->Style["Being and Nothingness",50,Lighter@Red,FontFamily->"Phosphate"],
CommunityBoundaryStyle->Directive[Yellow,Dashed,Opacity[.5]],
CommunityRegionStyle->Directive[Gray,Opacity[.3]],
ImageSize->1000{1,1}]&@
ResourceFunction["KeywordsGraph"][newTEXT,45,{"","other's"},styles]

Click on image to magnify and zoom:

As an ex-philosophy student, I've been trying to figure out what this says. I think for one, I'd rather see this with done with the texts of several works. Let's say,

1. Sartre: Being and Nothingness http://dhspriory.org/kenny/PhilTexts/Sartre/BeingAndNothingness.pdf

Why Write http://teaching.thenoiseofthestreet.net/dms463/sartre.pdf

1. Heidegger: Being and Time http://pdf-objects.com/files/Heidegger-Martin-Being-and-Time-trans.-Macquarrie-Robinson-Blackwell-1962.pdf

3: Hegel: Phenomenology of Spirit https://www.marxists.org/reference/archive/hegel/works/ph/pinkard-translation-of-phenomenology.pdf

4: Kierkegaard: Fear and Trembling https://www.solargeneral.org/wp-content/uploads/library/fear-and-trembling-johannes-de-silentio.pdf

Unfortunately, I don't know much about zen. So the second chart is out of my league.

Thanks Rohit, that is great! And I hope we can find the Zen text! Now this I understand! Now the visual is certainly appealing, but those lines do get lost in the weeds, so it's difficult to relate the different terms from just eye-balling the graphic. Just fantasizing here, but a fascinating visual would be to be able to mouse over each term and have the routes to the different terms highlight. Does it do that in the notebook version?

And yes, those hyphenated definitions were very important in the text as I recall with very discrete meanings.

Nice work, Vitaliy and Rohit!

Hi Vitaliy,

Thank you and @Marco Thiel for the stopwords fix. I wrapped it in a helper.

deleteStopwords[text_] := 
 With[{words = TextWords[text], stopWords = ToLowerCase@WordList["Stopwords"]},
  words // ToLowerCase // Select[! MemberQ[stopWords, #] &] // StringRiffle]

fixedText = deleteStopwords[text];

To add tooltips to the edges, add EdgeLabels -> Placed["Name", Tooltip] to styles.

@Jeremy Sykes I published a version with tooltips to the Wolfram Cloud. It is very sensitive to mouse position. I don't know how to make it less sensitive, will experiment.