LexicalDispersionPlot fails in some cases

[dishmint]

LexicalDispersionPlot failed for the search index object example. I think it's because the number of matches is quite large.

[dishmint]

[dishmint]

There are too many keys, ~25000. There's no way the plot will render 25000 frame ticks on the y axis.

In[3]:= index = CreateSearchIndex["ExampleData/Text"]

Out[3]= SearchIndexObject[File["/Users/faizonzaman/Library/Mathematica/SearchIndices/25d80c63-\
b40f-42a3-bc88-02562fc88f50"]]

In[4]:= indexResults = LexicalCases[index -> All, WordToken[1] ~~ TextType["Verb"]];

In[36]:= 
indexResults["Dataset"][All, "Match"] // Normal // DeleteDuplicates // Length

Out[36]= 25570