È possibile rimuovere il bordo del telaio su una legenda del barchart?

Question

Sto creando un'applicazione per vari tipi di disegno grafico/grafico in Mathematica. Alla fine avrà una GUI, ma il primo passo è ottenere il codice giusto e abbastanza semplice da gestire per una GUI. Ho difficoltà a impostare legende per non avere una cornice intorno a loro.

Ecco un esempio minimo (con alcune opzioni su BarChart già personalizzati utilizzando 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]] 

E qui è quello che ottengo:.

Per quanto mi sforzassi, non riesco liberare quel confine attorno alla legenda.Per vedere che LegendAppearance non fa nulla - ho provato anche qualche altro approccio a questo:

Sono reticente a codificare poco recta ngles a mano, perché sarà molto difficile entrare nella GUI finale. ChartLabels non funzionerà, perché è già in uso per le etichette delle date nella versione reale del grafico.

Qualcuno ha qualche suggerimento?

Answer 1

Puoi temporaneamente, uccidere a livello globale la cornice impostando:

SetOptions[Legending`GridLegend, Legending`LegendContainer -> Identity] 

Per ripristinare il comportamento predefinito, impostare:

SetOptions[Legending`GridLegend, Legending`LegendContainer -> Automatic] 

Answer 2

Non riesco a trovare alcuna opzione per disattivare la cornice. La documentazione di LegendAppearance è abbastanza ridotta e lo stile delle leggende in genere non ha molte discussioni (vedi [2] e collegamenti all'interno).

La soluzione più semplice che riesco a pensare è quella di modificare manualmente la grafica. I grafici con legende producono oggetti grafici Labeled. Per una singola legenda, l'oggetto Labeled prodotto è simile a Labeled[Graphics[...], Framed[...], pos], quindi tutto ciò che devi fare è rimuovere la parte Framed. Questo potrebbe essere fatto semplicemente rimuovendo tutte le teste Framed utilizzando un ReplaceAll (ad esempio BarChart[...] /. Framed -> Identity), ma forse qualcosa di più mirato sarebbe più sicuro.

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}; 

bc = BarChart[{Legended[Style[mydata[[;; -4]], Red], "Data"], 
    Legended[Style[mydata[[-3 ;;]], Blue], "Forecasts"]}, 
    PlotRange -> {-2, 8}, BarSpacing -> 0.4, LegendAppearance -> "Row"] 

bc /. Labeled[g_, Framed[leg_], pos_] :> Labeled[g, leg, pos] 

Quanto sopra potrebbe anche essere prodotto utilizzando Replace[bc, Framed[leg_] :> leg, {1}] o MapAt[Apply[Identity, #] &, bc, 2] o simili costruzioni. Non sarebbe necessario molto per modificare il codice se si dispone di più etichette o tipi diversi di oggetti grafici.

Answer 3

Non versatile come Simon 's metodo dato above, ma comunque forse vale la pena postare.(Ho trovato questo durante la lettura this domanda)

Utilizzando Part, dove bc la definizione di cui di answer Simon:

bc[[2]] = bc[[2, 1]]; bc 

dando