Wspólna legenda dla wielu wątków w R

Używam R i Latex razem, aby narysować kilka wątków i próbuję stworzyć wspólną legendę dla nich wszystkich.

Mam sześć oddzielnych wątków na tej samej stronie. Zrobiłem każdy dział osobno w R, a następnie wyświetliłem je na tej samej stronie, używając w tym celu LateCaphics.

Każdy wykres ma tę samą informację o legendzie, więc zamiast mieć legendę na każdym wykresie, chciałbym mieć jedną poziomą legendę na dole strony. Niestety, nie wiem, jak stworzyć legendę bez fabuły. Gdy mam oddzielny obraz legendy, będę wiedział, jak umieścić go na dole strony za pomocą Latex.

Kod, którego próbuję użyć do stworzenia legendy

<code>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)
</code>

Ale czcionka jest zbyt mała, a bok legendy jest obcięty.

questionAnswers(2)

yourAnswerToTheQuestion