Which temple?

The fall of religion to philosophy, the rise of information, data and technology, the drama is evolving ;-) Note the usage of "technology"|"tech" which adds the frequencies of both. Anyone who read "American Gods" by Neil Gaiman might relate.

WordFrequencyPlot[{"science","technology"|"tech","religion","philosophy",
"sense","wisdom","reason","wit","logic","truth","information","data","knowledge"}]

When something is wrong with a human

I was curious to see the vocabulary related to description of issues with human health. Excluded words like "disorder" which have too much wait form non-medical domains.

WordFrequencyPlot[{
"disease","illness","malady","sickness","syndrome","ailment",
"affliction","flu","fever","epidemic","plague","infection"}]

North, South, East, West

WordFrequencyPlot[{"north", "south", "east", "west"}, "Scaling" -> "Log"]

I was a bit surprised to see south is dominating north considering that the later is a standard and "the fundamental direction" in various geography, cartography, GIS, etc. applications and conventions. South surpassed north around 1900.

Programming Languages

WordFrequencyPlot[{"Wolfram", "Mathematica", "Fortran", "Cobol", 
  "HTML", "CSS", "Ruby", "JavaScript", "PHP", "Matlab", "LabVIEW", 
  "Python", "Java", "Swift"}, "Scaling" -> "Log"]

Curiosity killed the cat:

WordFrequencyPlot[{"curiosity", "cat"}]

War and Peace

Apparently "Peace" is not as talked about (or written about) as "War"...

WordFrequencyPlot[{"war", "peace"}]

Earth and Space

Or perhaps running out of options for peace on earth, space becomes the next frontier...

 WordFrequencyPlot[{"earth", "space"}]

Recession word frequency vs actual recessions

Let's plot the frequency of the word "recession".

WordFrequencyPlot[{"recession"}, "Scaling" -> "Log"]

The federal reserve bank in St. Louis keeps a set of indicators which includes the recession periods since 1854.

fred = ServiceConnect["FederalReserveEconomicData"];
usrec = fred["SeriesData", "ID" -> "USREC"];
recWord = WordFrequencyData["recession", "TimeSeries", {1854, Now}];
recLogWord = TimeSeriesMap[Log, recWord];
{min, max} = {Min[#], Max[#]} &@recLogWord["Values"];
recScaled = 
 MovingAverage[TimeSeriesMap[Rescale[#, {min, max}] &, recLogWord], 3];
DateListPlot[{recScaled, usrec}, Filling -> Axis, ImageSize -> Large, 
 FrameTicks -> {Automatic, None}, 
 PlotLegends -> {"recession word freq(Log)", "Recessions"}, 
 PlotRange -> {{DateObject[{1854}], DateObject[{2010}]}, {0, 1}}]

Political Systems

WordFrequencyPlot[{"capitalism", "nationalism", "socialism", 
"communism", "fascism", "populism"}]

Western Thinking

There is one more with wh:

and the popular names show the importance of doing:

Trigonometry and Calculator

WordFrequencyPlot[{"trigonometry", "calculator"}]

It's a pretty well-know fact and self-evident that calculators have ruined trigonometry.

Smartphone, iPhone, Apple, Samsung, Orange

WordFrequencyPlot[{"iPhone", "Smartphone", "Samsung", "Apple", 
  "Orange"}, "Scaling" -> "Log"]

People back in 1900 didn't think iPhone was the best phone ever. But if you think Apple is the best company ever, have you ever tried Orange? Way more stable and reliable.

I didn't resist in a humorist take in this thread.

The Five Basic Senses

There are five basic senses: touch, sight, hearing, smell and taste. I remember reading somewhere that the maximal information flow human experience normally is due to the vision. The diagram below reflects on that, - note it is a logarithmic scale, - word "see" is much more frequent than others (Although it can have other meanings too, besides the direct act of vision itself, like "understand" etc. But so can other words too.). Note curious fall of "taste" below "hear" and "touch".

WordFrequencyPlot[{"see", "hear", "touch", "taste", "smell"}, "Scaling" -> "Log"]