在绘图区域外添加文本

Question

样例代码

library(ggplot2)
ggplot(mtcars, aes(mpg, cyl, color = vs)) + geom_line()

如何像上述使用上图所示的示例那样向x轴添加任意文本，然后在上面写下“任意单词”

Answer 1

我不确定您要做什么，这可能会或可能不会很好地概括。

也就是说，一种可能性是使用带有coord_cartesian(clip = "off") annotate来允许文字超出绘图区域。

ggplot(mtcars, aes(mpg, cyl, color = vs)) +
    geom_line() +
    annotate("text", x = 12.5, y = 3.5, label = "Arbitrary text") +
    coord_cartesian(ylim = c(4, 8), clip = "off")

Answer 2

您可以在ggplot2使用tag （请参阅?ggplot2::labs ）并指定其在theme的位置

library(ggplot2)
ggplot(mtcars, aes(mpg, cyl, color = vs)) + 
    geom_line() +
    labs(tag = "arbitrary words") +
    theme(plot.tag.position = c(0.15, 0.02))