Wolfram 언어™

영어 단어의 빈도 분포 구하기

미국 헌법에서 단어의 출현 횟수를 계산합니다.

In[1]:=

text = ExampleData[{"Text", "USConstitution"}, "Words"]; wordCount = Values[Counts[text]];

단어 출현 횟수에 관한 간단한 분포를 구합니다.

In[2]:=

e\[ScriptCapitalD] = FindDistribution[wordCount]

Out[2]=

구해진 분포와 단어 수를 비교합니다.

In[3]:=

Show[Histogram[wordCount, {0.5, 15.5, 1}, "ProbabilityDensity", PlotLabel -> "Word Count Distribution"], DiscretePlot[PDF[e\[ScriptCapitalD], x], {x, 1, 15}, PlotStyle -> PointSize[Large], PlotLegends -> {"e\[ScriptCapitalD]"}]]

Out[3]=