将标题添加到 ggplot2 图，因为标题显示在 facet_wrap 图中

Question

可以为单个情节添加标题，例如：

library(ggplot2)
gdURL <- "http://www.stat.ubc.ca/~jenny/notOcto/STAT545A/examples/gapminder/data/gapminderDataFiveYear.txt"
gDat <- read.delim(file = gdURL)
jDat <- droplevels(subset(gDat, continent != "Oceania"))
str(jDat)

jYear <- 2007
q <- ggplot(subset(jDat, year == jYear),
            aes(x = gdpPercap, y = lifeExp)) + scale_x_log10()
q + geom_point()

q + geom_point(aes(size = sqrt(pop/pi)), pch = 21)

在这样的 facet_wrap 情节中显示标题（在灰色框中并与情节整合）？？：

r <- q +
   geom_point(aes(size = sqrt(pop/pi)), pch = 21, show_guide = FALSE) +
   scale_size_continuous(range=c(1,40))

r <- r + facet_wrap(~ continent)
r + aes(fill = continent)

Answer 1

根据@jraab 的评论，完成此操作的一种方法是添加一个虚拟列并使用 facet_grid:

jDat$dummy <- NA

ggplot(subset(jDat, year == jYear), aes(x = gdpPercap, y = lifeExp)) +
  scale_x_log10() +
  geom_point() +
  facet_grid(. ~ dummy)

如果你想操纵标题，你可以使用：

facet_grid(. ~ dummy, labeller=label_bquote("My New Title"))

将标题添加到 ggplot2 图，因为标题显示在 facet_wrap 图中

add titles to ggplot2 plot as titles are showed in facet_wrap plots

r

ggplot2