In[]:=
TakeLargest[CharacterCounts[StringJoin@WordData[]],10]
Out[]=
e170096,a148758,i131405,r115692,o110412,n108523,t101295,s96532,l90035, 76485