विभिन्न आकार और रंग के साथ ggplot2 उपशीर्षक कैसे जोड़ें?

Question

मैं वर्षा बारप्लॉट को बेहतर बनाने के लिए ggplot2 का उपयोग कर रहा हूं।

library(ggplot2) 
library(gridExtra) 
secu <- seq(1, 16, by=2) 
melt.d <- data.frame(y=secu, x=LETTERS[1:8]) 
m <- ggplot(melt.d, aes(x=x, y=y)) + 
    geom_bar(fill="darkblue") + 
    labs(x="Weather stations", y="Accumulated Rainfall [mm]") + 
    opts(axis.text.x=theme_text(angle=-45, hjust=0, vjust=1), 
     title=expression("Rainfall"), plot.margin = unit(c(1.5, 1, 1, 1), "cm"), 
     plot.title = theme_text(size = 25, face = "bold", colour = "black", vjust = 5)) 
z <- arrangeGrob(m, sub = textGrob("Location", x = 0, hjust = -3.5, vjust = -33, gp = gpar(fontsize = 18, col = "gray40"))) #Or guessing x and y with just option 
z 

मैं hjust और ggplot2 पर vjust पर अनुमान लगाने का नंबर का उपयोग कर से बचने के लिए पता नहीं कैसे:

यहाँ मैं क्या हासिल करना चाहते का एक प्रतिलिपि प्रस्तुत करने योग्य उदाहरण है? क्या उपशीर्षक डालने का कोई बेहतर तरीका है (न केवल \ n का प्रयोग करें, बल्कि विभिन्न टेक्स्ट रंग और आकार वाले उपशीर्षक)?

मुझे एक पीडीएफ फ़ाइल रखने के लिए ggsave के साथ उपयोग करने में सक्षम होना चाहिए।

Add a footnote citation outside of plot area in R?

How can I add a subtitle and change the font size of ggplot plots in R?

किसी भी मदद के लिए धन्यवाद:

यहाँ दो संबंधित सवाल कर रहे हैं।

Answer 1

नवीनतम ggplot2 बनाता है (अर्थात, 2.1.0।9 000 या नए) में अंतर्निहित कार्यक्षमता के रूप में उपशीर्षक और नीचे-साजिश कैप्शन हैं। इसका मतलब है कि आप यह कर सकते हैं:

library(ggplot2) # 2.1.0.9000+ 

secu <- seq(1, 16, by=2) 
melt.d <- data.frame(y=secu, x=LETTERS[1:8]) 

m <- ggplot(melt.d, aes(x=x, y=y)) 
m <- m + geom_bar(fill="darkblue", stat="identity") 
m <- m + labs(x="Weather stations", 
       y="Accumulated Rainfall [mm]", 
       title="Rainfall", 
       subtitle="Location") 
m <- m + theme(axis.text.x=element_text(angle=-45, hjust=0, vjust=1)) 
m <- m + theme(plot.title=element_text(size=25, hjust=0.5, face="bold", colour="maroon", vjust=-1)) 
m <- m + theme(plot.subtitle=element_text(size=18, hjust=0.5, face="italic", color="black")) 
m 

Answer 2

आप grid.arrange में भूखंड लपेटो का उपयोग करें और एक कस्टम ग्रिड आधारित शीर्षक दे सकते हैं,

library(ggplot2) 
library(gridExtra) 

p <- ggplot() + 
    theme(plot.margin = unit(c(0.5, 1, 1, 1), "cm")) 

tg <- grobTree(textGrob("Rainfall", y=1, vjust=1, gp = gpar(fontsize=25, face=2, col="black")), 
       textGrob("location", y=0, vjust=0, gp = gpar(fontsize=12, face=3, col="grey50")), 
       cl="titlegrob") 
heightDetails.titlegrob <- function(x) do.call(sum,lapply(x$children, grobHeight)) 

grid.arrange(p, top = tg) 

Answer 3

पर ध्यान न दें इस जवाबggplot2 संस्करण 2.2.0 शीर्षक और उपशीर्षक कार्यक्षमता है । @ Hrbrmstr का उत्तर below देखें।

---

आप एक expression अंदर नेस्टेड atop कार्यों का उपयोग विभिन्न आकारों प्राप्त करने के लिए कर सकता है। ggplot2 0.9.3

m <- ggplot(melt.d, aes(x=x, y=y)) + 
    geom_bar(fill="darkblue", stat = "identity") + 
    labs(x="Weather stations", y="Accumulated Rainfall [mm]") + 
    ggtitle(expression(atop("Rainfall", atop(italic("Location"), "")))) + 
    theme(axis.text.x = element_text(angle=-45, hjust=0, vjust=1), 
    #plot.margin = unit(c(1.5, 1, 1, 1), "cm"), 
    plot.title = element_text(size = 25, face = "bold", colour = "black", vjust = -1)) 

Answer 4

के लिए

संपादित कोड अपडेट किया गया ऐसा प्रतीत होता है opts ggplot 2 0.9.1 और अब कार्यात्मक के रूप में मान्य नहीं है। यह मेरे लिए नवीनतम संस्करणों के साथ आज के रूप में काम करता है: + ggtitle(expression(atop("Top line", atop(italic("2nd line"), ""))))।

Answer 5

यह संस्करण gtable फ़ंक्शन का उपयोग करता है। यह शीर्षक में पाठ की दो पंक्तियों की अनुमति देता है। प्रत्येक पंक्ति का पाठ, आकार, रंग और फ़ॉन्ट चेहरे दूसरे से स्वतंत्र रूप से सेट किया जा सकता है। हालांकि, फ़ंक्शन केवल एक प्लॉट पैनल के साथ एक साजिश को संशोधित करेगा।

माइनर संपादित करें: v2.0.0 ggplot2 को अपडेट किया जा रहा

# The original plot 
library(ggplot2) 

secu <- seq(1, 16, by = 2) 
melt.d <- data.frame(y = secu, x = LETTERS[1:8]) 

m <- ggplot(melt.d, aes(x = x, y = y)) + 
    geom_bar(fill="darkblue", stat = "identity") + 
    labs(x = "Weather stations", y = "Accumulated Rainfall [mm]") + 
    theme(axis.text.x = element_text(angle = -45, hjust = 0, vjust = 1)) 


# The function to set text, size, colour, and face 
plot.title = function(plot = NULL, text.1 = NULL, text.2 = NULL, 
    size.1 = 12, size.2 = 12, 
    col.1 = "black", col.2 = "black", 
    face.1 = "plain", face.2 = "plain") { 

library(gtable) 
library(grid) 

gt = ggplotGrob(plot) 

text.grob1 = textGrob(text.1, y = unit(.45, "npc"), 
    gp = gpar(fontsize = size.1, col = col.1, fontface = face.1)) 
text.grob2 = textGrob(text.2, y = unit(.65, "npc"), 
    gp = gpar(fontsize = size.2, col = col.2, fontface = face.2)) 

text = matrix(list(text.grob1, text.grob2), nrow = 2) 
text = gtable_matrix(name = "title", grobs = text, 
    widths = unit(1, "null"), 
    heights = unit.c(unit(1.1, "grobheight", text.grob1) + unit(0.5, "lines"), unit(1.1, "grobheight", text.grob2) + unit(0.5, "lines"))) 

gt = gtable_add_grob(gt, text, t = 2, l = 4) 
gt$heights[2] = sum(text$heights) 

class(gt) = c("Title", class(gt)) 

gt 
} 

# A print method for the plot 
print.Title <- function(x) { 
    grid.newpage() 
    grid.draw(x) 
} 


# Try it out - modify the original plot 
p = plot.title(m, "Rainfall", "Location", 
    size.1 = 20, size.2 = 15, 
    col.1 = "red", col.2 = "blue", 
    face.2 = "italic") 

p 

Answer 6

आपने गौर किया होगा कि सैंडी के कोड "वर्षा" के लिए एक साहसिक शीर्षक का उत्पादन नहीं करता - बनाने के लिए अनुदेश यह बोल्ड थीम() फ़ंक्शन के बजाय atop() फ़ंक्शन के भीतर होना चाहिए।

ggplot(melt.d, aes(x=x, y=y)) + 
geom_bar(fill="darkblue", stat = "identity") + 
labs(x="Weather stations", y="Accumulated Rainfall [mm]") + 
ggtitle(expression(atop(bold("Rainfall"), atop(italic("Location"), "")))) + 
theme(axis.text.x = element_text(angle=-45, hjust=0, vjust=1), 
plot.title = element_text(size = 25, colour = "black", vjust = -1)) 

Answer 7

यह gtable को grobs जोड़ सकते हैं और एक फैंसी शीर्षक है कि रास्ता बनाने के लिए भी मुश्किल नहीं है,

library(ggplot2) 
library(grid) 
library(gridExtra) 
library(magrittr) 
library(gtable) 

p <- ggplot() + 
    theme(plot.margin = unit(c(0.5, 1, 1, 1), "cm")) 

lg <- list(textGrob("Rainfall", x=0, hjust=0, 
        gp = gpar(fontsize=24, fontfamily="Skia", face=2, col="turquoise4")), 
       textGrob("location", x=0, hjust=0, 
         gp = gpar(fontsize=14, fontfamily="Zapfino", fontface=3, col="violetred1")), 
      pointsGrob(pch=21, gp=gpar(col=NA, cex=0.5,fill="steelblue"))) 

margin <- unit(0.2, "line") 
tg <- arrangeGrob(grobs=lg, layout_matrix=matrix(c(1,2,3,3), ncol=2), 
        widths = unit.c(grobWidth(lg[[1]]), unit(1,"null")), 
        heights = do.call(unit.c, lapply(lg[c(1,2)], grobHeight)) + margin) 

grid.newpage() 
ggplotGrob(p) %>% 
    gtable_add_rows(sum(tg$heights), 0) %>% 
    gtable_add_grob(grobs=tg, t = 1, l = 4) %>% 
    grid.draw()