Observe the following Mathematica code. Forgive me that it's so long:

test[y_] := 
 ArrayPlot[Table[nd[y, 1, K, n], {K, 1, 15}, {n, 1, 15}], 
  ColorFunction -> "DarkRainbow", ColorFunctionScaling -> False, 
  DataReversed -> True, FrameStyle -> Directive[Thin, Black], 
  FrameTicks -> {Range[15], Range[15], Range[15], Range[15]}, 
  FrameTicksStyle -> Directive[Black], FrameLabel -> Automatic, 
  LabelStyle -> Black, 
  PlotLegends -> 
   Placed[BarLegend["DarkRainbow", LegendLayout -> "Row", 
     LegendLabel -> "P", 
     LabelStyle -> 
      Directive[11, Black, FontFamily -> "Times New Roman"], 
     Method -> {Frame -> False, 
       TicksStyle -> Directive[Black]}], {Below, {0.54, 1}}]]
Export["test.eps", test[5]]

I just can't figure out why it's doing this. The file that ends up getting exported to .eps ends up having a bunch of extra white characters and an outline in the bar legend! I put the EPS file on top of a blue background in Illustrator to point it out. See the arrows in the image below:

I cannot for the life of me figure out why this is happening. Is there anything that I can do in order to remove those extra white characters as well as that outline? Thank you.