Légende commune pour plusieurs parcelles en R

Je suis à l'aide de R et de Latex à l'élaboration de certaines parcelles et suis en train de faire une légende populaire pour tous.

J'ai six parcelles différentes sur la même page. J'ai fait chaque parcelle séparément dans R, puis affichées sur la même page à l'aide de \includegraphics en Latex.

Chaque graphique a la même légende de l'information, de sorte que plutôt que d'avoir une légende dans chaque parcelle, je voudrais avoir un seul horizontale légende sur l'affichage au bas de la page. Malheureusement, je ne peux pas comprendre comment faire une légende sans intrigue. Une fois que j'ai une image séparée pour la légende, je sais comment l'inclure dans le bas de la page à l'aide de Latex.

Le code que j'essaie d'utiliser pour rendre la légende est

plot(1, type = "n", axes=FALSE, xlab="", ylab="")
plot_colors <- c("blue","black", "green", "orange", "pink")

legend(.6,1.3,legend = c("Fabricated Metal", "Iron and Steel", "Paper", 
"Beverages", "Tobacco"), 
       col=plot_colors, lwd=5, cex=.5, horiz = TRUE)

Mais, la police est trop petite et le côté de la boîte de la légende est coupée.

source d'informationauteur user1288578

  1. 23

    Un simple exemple de ce dont je parlais:

    m <- matrix(c(1,2,3,4,5,6,7,7,7),nrow = 3,ncol = 3,byrow = TRUE)

layout(mat = m,heights = c(0.4,0.4,0.2))

for (i in 1:6){
    par(mar = c(2,2,1,1))
    plot(runif(5),runif(5),xlab = "",ylab = "")
}


plot(1, type = "n", axes=FALSE, xlab="", ylab="")
plot_colors <- c("blue","black", "green", "orange", "pink")
legend(x = "top",inset = 0,
        legend = c("Fabricated Metal", "Iron and Steel", "Paper","Beverages", "Tobacco"), 
        col=plot_colors, lwd=5, cex=.5, horiz = TRUE)

    Légende commune pour plusieurs parcelles en R

  2. 5

    Essayer cela,

    plot_colors <- c("blue","black", "green", "orange", "pink")
text <- c("Fabricated Metal", "Iron and Steel", "Paper", 
"Beverages", "Tobacco")
plot.new()
par(xpd=TRUE)
legend("center",legend = text, text.width = max(sapply(text, strwidth)),
       col=plot_colors, lwd=5, cex=1, horiz = TRUE)
par(xpd=FALSE)