ggplot2:添加一个新功能并强制它返回

Question

我想使用ggplot创建一个复杂的情节,然后在最后,我想在其中添加"草稿"这个词.但我希望这个词在后面,而不是在前面.我知道我可以在后面只添加它,但这不是我想要的.原因是,我想编写一个自定义保存功能,将用于创建图形的源文件的名称添加到x轴,并将该图标记为"草稿",除非设置了某个标志.我的自定义功能可以做到这一点,但"草稿"这个词总是在前面.

有没有办法调整下面的注释行,保持顺序相同,这将把草稿放在正弦波后面？

x = seq(0,100,.1)
d = data.frame(x=x,y=sin(x))

p = ggplot(data=d,aes(x=x,y=y)) + geom_line(size=3,color="grey50")
p = p + annotate("text",x=50,y=0,label="Draft",color="blue",size=40)
print(p)
ggsave(filename = "test_background.pdf")

Answer 1

在绘图之前,

p$layers <- rev(p$layers)