r

이 버전은 gtable기능을 사용 합니다. 제목에 두 줄의 텍스트를 허용합니다. 각 줄의 텍스트, 크기, 색상 및 글꼴은 서로 독립적으로 설정할 수 있습니다. 그러나이 함수는 단일 플롯 패널로만 플롯을 수정합니다.

사소한 편집 : ggplot2 v2.0.0으로 업데이트

# 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