r - 将 ggplot 标题放在绘图的右上角

Question

我正在使用theme_minimal()在 ggplot0.9.3 中找到的具有白色背景的优秀作品。我想将我的情节标题放在情节右上角的自定义位置。在下面的示例中，我知道xandy值，但我想知道是否有一种方法可以传递xmax和ymax值来确保文本放置在右上角。理想情况下，文本将是正确的。

#example plot
p <- qplot(mpg, wt, data = mtcars, colour = cyl)
p +  annotate("text", x = 30, y = 5, label = "Custom Title")

#what I would like
p + annotate("text", y= ymax, x =xmax_or_RightJustified)

Answer 1

你可以做

p + annotate("text",  x=Inf, y = Inf, label = "Some text", vjust=1, hjust=1)

Answer 2

您可以使用函数max()和min()inside annotate()，然后添加hjust=1以确保将文本放置在绘图内（对齐）。

p + annotate("text", y= max(mtcars$wt), x =max(mtcars$mpg),label="Custom Title",hjust=1)