में उचित शीर्षक जोड़ना ggplot को stackoverflow पर संबंधित पोस्ट पढ़ने के बाद

Question

मैं एक समाधान नहीं मिल सकता है सभी सुबह इस कोशिश कर रहा है और अभी भी

मैं निम्नलिखित कोड है:

names <- colnames(df[17:length(df)]) 

counter = 17L 

for (i in 1:length(names)) { 
    df.tax <- subset(df, df[,c(counter)] != 0) 
    counter = counter + 1L 
    meta <- subset(df.tax, select=c(1:16)) 
    meltmeta <- melt(meta, id=c("Collector", "Year","Week","Cities","Provinces")) 
    ppv <- ggplot(meltmeta, aes(title = paste(names[i]), factor(Provinces), value)) 
    ppv + geom_boxplot() + geom_boxplot(aes(fill=Collector), alpha=I(0.5)) + geom_point(aes(color=Collector), size=1) +facet_wrap(~variable, scale="free") 
    ggsave(file = paste(names[i], sep=".","provinces_vs_climate.pdf"), width=16, height=8) 
} 

मेरे मुद्दा है, मैं ggplot के लिए एक उचित शीर्षक नहीं जोड़ सकता है। लूप के प्रत्येक पुनरावृत्ति पर, मैं डीएफ के हिस्सों को सबसेट करके df.tax नामक एक नया डेटाफ्रेम उत्पन्न कर रहा हूं। मैं डीएफ पिघला और फिर ggplot का उपयोग कर एक साजिश उत्पन्न करने की कोशिश कर रहा हूँ।

मैं प्रत्येक प्लॉट को प्रत्येक थियेटर के लिए प्रत्येक पुनरावृत्ति के लिए एक अलग फ़ाइल नाम (नाम सरणी के आधार पर) के साथ सहेजने में कामयाब रहा, लेकिन ggplot केवल "पेस्ट (नाम [i])" शीर्षक को बनाए रखने में कामयाब रहा।

मैंने कोशिश की, पेस्ट(), प्रयोगशालाओं() ... आदि, लेकिन कोई भी काम

किसी को भी पता है कि मैं इस समस्या को हल कर सकते हैं(),?

Answer 1

जैसा कि joran द्वारा वर्णित है, ggplot2 के संस्करण 0.9.2 के बाद, आपकी साजिश के लिए शीर्षक निर्धारित करने का सबसे आसान तरीका ggtitle का उपयोग करना है। ggtitle का उपयोग करके आपका कोड कुछ ऐसा दिखाई देगा:

for (i in 1:length(names)) { 
    df.tax <- subset(df, df[,c(counter)] != 0) 
    counter = counter + 1L 
    meta <- subset(df.tax, select=c(1:16)) 
    meltmeta <- melt(meta, id=c("Collector", "Year","Week","Cities","Provinces")) 
    ppv <- ggplot(meltmeta, aes(factor(Provinces), value)) 
    ppv <- ppv + geom_boxplot() 
    ppv <- ppv + geom_boxplot(aes(fill=Collector), alpha=I(0.5)) 
    ppv <- ppv + geom_point(aes(color=Collector), size=1) 
    ppv <- ppv + facet_wrap(~variable, scale="free") 
    ppv <- ppv + ggtitle(paste(names[i])) 
    ggsave(file = paste(names[i], sep=".","provinces_vs_climate.pdf"), width=16, height=8) 
}