Wspólna legenda dla wielu działek w R

Question

Używam R i Latex razem, aby narysować kilka fabuł i staram się stworzyć wspólną legendę dla nich wszystkich.

Mam sześć oddzielnych działek na tej samej stronie. Zrobiłem każdą działkę osobno w R, a następnie wyświetliłem je na tej samej stronie używając \ includegraphics w Latex.

Każdy wykres zawiera te same informacje, legendy, więc zamiast legendą w każdym poletku chciałbym mieć jedną legendę poziomą na wyświetlaczu na dole strony. Niestety nie mogę wymyślić, jak stworzyć legendę bez fabuły. Kiedy mam już osobny obraz legendy, będę wiedział, jak umieścić go na dole strony za pomocą Latex.

Kod Próbuję użyć do legendy jest

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) 

Ale czcionka jest zbyt mała, a boczne okna legendy jest odcięta.

Answer 1

Spróbuj tego,

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) 

Answer 2

Prostym przykładem tego, co mówiłam o:

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)