Можно ли удалить границу рамки на легенде BarChart?

Я создаю приложение для различных видов построения графиков / диаграмм в системе Mathematica. В конечном итоге у него будет графический интерфейс, но первый шаг - получить правильный код и достаточно простой для управления графическим интерфейсом. У меня возникли трудности с установкой легенд, чтобы вокруг них не было рамки.

Вот минимальный пример (с некоторыми параметрами на BarChart , уже настроенными с помощью SetOptions .

mydata = {4.5644, 5.546, 6.8674, 2.7688, 1.742, 5.3952, 4.3392, 4.5016, \
 3.7748, 1.838, 2.24, 0.693, 2.818, 4.9, 3.939, 3.459, 3.755, 4.475, \
 3.857, 3.215, 2.206, 2.206, 2.117, 3.403, 3.277, 3.761, 4.276, 2.559, \
 3.486, 4.778, 2.281, 2.865, 3.629, 4.916, 4.572, 5.244, 5.395, 2.865, \
 -0.524, 5.01, 4.401, 4.513, 4.54}

BarChart[mydata, 
 ChartStyle -> {Join[
  Table[RGBColor[0.5, 0.5, 0.95], {Length[mydata] - 3}], {Magenta,
   Magenta, Magenta}]}, PlotRange -> {-2, 8}, 
 ChartLegends -> {Join[
  Table[None, {Length[mydata] - 3}], {Placed[
   Style["Forecasts", FontFamily -> "Arial", FontSize -> 18], 
   Bottom]}]}, BarSpacing -> 0.4, 
 LegendAppearance ->  Directive[Background -> Red, 
   Frame -> None, ImageSize -> 15]]

И вот что я получаю:

Как я ни старался, я не могу избавиться от границы вокруг легенды. Вы можете видеть, что LegendAppearance ничего не делает - я также пробовал несколько других подходов к этому.

Я не собираюсь кодировать маленькие прямоугольники вручную, потому что это будет очень сложно сделать правильно в конечном графическом интерфейсе. ChartLabels тоже не будут работать, потому что они уже используются для меток дат в реальной версии графика.

Есть ли у кого-нибудь предложения?