Grafique claves y valores a partir de asociaciones 

Use claves y valores numéricos a partir de una asociación como las coordenadas en un gráfico.

In[1]:=

X primes = Counts[RandomChoice[Prime[Range[50]], 1000]];

In[2]:=

X ListPlot[primes, Filling -> Axis, PlotTheme -> "Web", ImageSize -> Medium]

Out[2]=