Use Weighted Data Instead of a Full Dataset 

Use weighted data instead of a larger dataset when creating statistical plots and charts.

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]=