如何添加不同大小和颜色的ggplot2字幕？

87

我正在使用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

我不知道如何避免在ggplot2和hjust上使用猜测数字？是否有更好的方式放置字幕（不仅使用\ n，而且还使用了不同文本颜色和大小的字幕）？

我需要能够与ggsave一起使用以获取pdf文件。

这是两个相关的问题：

在R？中的绘图区外添加脚注引用

如何在R中添加字幕并更改ggplot图的字体大小？

谢谢你的帮助。

r  ggplot2  subtitle 
— 米格
source
vjust = -33在Linux上为我工作。我知道sub意味着要低于情节，但这是我获得想要的唯一途径。
— Migue 2012年
由于某种原因，这使我的绘图变得很小，并在图表下方创建了一个巨大的空间
— zazu
2
@hrbrmstr的答案似乎是当今的方式
— andschar

Answers:

101

最新的ggplot2版本（即2.1.0.9000或更高版本）具有字幕和内置字幕功能。这意味着您可以执行以下操作：

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
— hrbrmstr
source
（函数（el，elname）中的错误：“ plot.subtitle”不是有效的主题元素名称。
— Luísde Sousa
1
请阅读答案：“最新的ggplot2版本（即2.1.0.9000或更高版本）”
— hrbrmstr
75

忽略此答案 ggplot2版本2.2.0具有标题和字幕功能。请参阅下面的@hrbrmstr答案。

您可以在中使用嵌套atop函数expression来获取不同的大小。

编辑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))

在此处输入图片说明

— 桑迪·穆斯普拉特（Sandy Muspratt）
source
10
嗨，这是一个了不起的解决方案。我想使用它，而不是atop(italic("Location")我想要一个对象：atop(italic(my_string_vector)。我试过了，但是字幕评估为（my_string_vector）。如何强制此表达式使用字符串值并且不按字面意义对待所提供的文本？
— 康拉德2015年
1
如果您在使用变量时遇到麻烦，应该使用bquote而不是expression，请参见此处
— toto_tico
3
@Konrad要使用对象，更换expression用bquote与包裹的对象.()，这样，对于存储在一个名为“main.title”的对象，并存储在一个对象字幕的主标题叫做“sub.title”： ggtitle(bquote(atop(.(main.title), atop(italic(.(sub.title)), "")))) 幸得Didzis Elferts的回答在这里：stackoverflow.com/questions/19957536/…–
— coip
10

从optsggplot 2 0.9.1开始，它似乎已被弃用，并且不再起作用。到目前为止，它适用于我的最新版本：+ ggtitle(expression(atop("Top line", atop(italic("2nd line"), ""))))。

— 阿伦·坎布雷
source
这也可以在没有决赛的情况下起作用, ""-那部分是什么？
— naught101
打败我。我可能已经复制了在其他地方看到的示例。
— 2014年
可能来自@SandyMuspratt的上述回答：P-我现在明白了，atop()有点像没有杠的分数。因此，将第二个内容atop()放在第一个内容中会为您提供一个较小的部分，并且文本按比例缩小。的""是亚级分的底部。但这似乎是不必要的-也许atop()第二个参数有一个默认的空字符串，或其他东西。
— naught101
在我发布答案以反映类似于我的代码之后， @ SandyMuspratt的答案似乎已被修改。:-)
— Aren Cambre 2015年
9

将grobs添加到gtable并以这种方式制作精美的标题并不难，

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()

在此处输入图片说明

— 浸礼会
source
8

此版本使用一个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

在此处输入图片说明

— 桑迪·穆斯普拉特（Sandy Muspratt）
source
3

您可以将图包装在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)
— 浸礼会
source
ggplot的当前版本分别使用theme和and element_text而不是opts和theme_text。此外，ggplotGrob做法似乎gridExtra（gridExtra_0.8.1）和GGPLOT2（ggplot2_0.9.3.1）当前版本的失败
— russellpierce
2

您可能已经注意到，Sandy的代码并未为“ Rainfall”生成粗体标题-使该粗体的指令应出现在atop（）函数而不是theme（）函数中。

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

在此处输入图片说明

— 内森
source
By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.