Use dados ponderados ao invés de conjuntos de dados completos 

Use dados ponderados ao invés de conjunto de dados maiores na criação de gráficos estatísticos.

In[1]:=

X data = RandomReal[{-5, 5}, 1000];

In[2]:=

X A = WeightedData[data, PDF[NormalDistribution[], #] &];

In[3]:=

X Block[{$PlotTheme = "Scientific"}, Grid[Partition[{QuantilePlot[A], BoxWhiskerChart[A], SmoothHistogram[A, Filling -> Axis], Histogram[A]}, 2]]]

Out[3]=