I would like to export BoxWhiskerChart figure as PDF file. Adding the option ChartElementFunction -> "GlassBoxWhisker" to BoxWhiskerChart increases file size enormously. Here is my MWE.
SeedRandom@2;
data = Table[
RandomVariate[NormalDistribution[\[Mu], 1],
100], {\[Mu], {0, 3, 2, 5}}, {2}];
fig1 = BoxWhiskerChart[data];
fig2 = BoxWhiskerChart[data, ChartElementFunction -> "GlassBoxWhisker"];
Export["fig1.pdf", fig1];
Export["fig2.pdf", fig2];
Size of fig1 (top one) is 15KB whereas fig2 (bottom one) has ~1.5MB. How to avoid this issue since I have several BoxWhiskerChart in the same figure and result ~5MB per figure. I would like to export fig2 as PDF with as lowest as possible file size with high quality. Any suggestion?

