R BBC风格的ggplot：图形下的线条和文字

我遵循的是所描述的BBC风格。但是，无法在下面可以看到的图形下实现线条和文本。希望添加行和

来源：国家统计局

。你将如何做到这一点

---

BBC主题可以按使用，但如果您只需要标题和一行，可以使用grid/gridExtra，例如

library(grid)
library(gridExtra)

my_plot <- ggplot(data) +
           geom_xx

my_caption <- grobTree(linesGrob(unit(c(0, 1), "npc"), unit(1, "npc")),
                    textGrob("Caption goes here", x=0, hjust=0))

#Combine the plot and the caption/line
allplot <- grid.arrange(my_plot,my_caption,heights=c(1,0.05))
grid.draw(allplot)

库（网格）
图书馆（gridExtra）
my_plot您可以使用labs（）添加标题，然后使用theme（）左调整：例如
ggplot（数据）+labs（caption=“Source:Office for National Statistics”）+theme（plot.caption=element_text（hjust=0））
。如果你想了解整个主题，请看：@jared_mamrot，它就像一个魔咒！非常感谢。你知道如何包含水平线吗？@bajun65537你可以查看
ggplot2
拥有的
BBC
样式包。在这里：