आर

Question

में एकाधिक भूखंडों के लिए आम किंवदंती मैं कुछ भूखंडों को आकर्षित करने के लिए आर और लेटेक्स का उपयोग कर रहा हूं और उन सभी के लिए एक आम किंवदंती बनाने की कोशिश कर रहा हूं।

मेरे पास एक ही पृष्ठ पर छह अलग-अलग भूखंड हैं। मैंने प्रत्येक प्लॉट को आर में अलग से बनाया और फिर उन्हें लेटेक्स में \ includegraphics का उपयोग करके उसी पृष्ठ पर प्रदर्शित किया।

प्रत्येक ग्राफ में एक ही किंवदंती जानकारी होती है, इसलिए प्रत्येक साजिश में एक किंवदंती होने के बजाय मैं पृष्ठ के नीचे प्रदर्शन पर एक क्षैतिज किंवदंती रखना चाहता हूं। दुर्भाग्य से, मैं यह नहीं समझ सकता कि साजिश के बिना किंवदंती कैसे बनाई जाए। एक बार जब मेरे पास किंवदंती के लिए एक अलग छवि हो, तो मुझे पता चलेगा कि लेटेक्स का उपयोग करके पेज के निचले हिस्से में इसे कैसे शामिल किया जाए।

कोड मैं किंवदंती बनाने के लिए उपयोग करने के लिए कोशिश कर रहा हूँ

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) 

है लेकिन, फ़ॉन्ट बहुत छोटा है और पौराणिक कथा बॉक्स के किनारे कट जाता है।

Answer 1

इस प्रयास करें,

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

मैं क्या बारे में बात कर रहा था की एक साधारण उदाहरण:

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)