Generate a Texting Dictionary
Mathematica, 202 bytes
{g[#],##}~r~&quot; &quot;&amp;@@@GatherBy[#&amp;@@@SortBy[Tally@StringReplace[StringSplit@#,x_/;!LetterQ@x-&gt;&quot;&quot;],-Last@#&amp;],g=&quot;&quot;&lt;&gt;ToString/@(\[LeftFloor]If[#&lt;113,(#-91)/3,(#-88.2)/3.4]\[RightFloor]&amp;/@ToCharacterCode@#)&amp;]~(r=Riffle)~&quot;
&quot;&lt;&gt;&quot;&quot;&amp;

Note that \[LeftFloor] and \[RightFloor] are 3 bytes each.