ggplot2：添加一個新功能並強制它返回

Question

我想使用ggplot創建一個複雜的情節，然後在最後，我想向它添加單詞「Draft」。但我希望這個詞在後面，而不是前面。我知道我可以在後面添加它，但這不是我想要的。原因是，我想編寫一個自定義保存函數，將用於創建圖形的源文件的名稱添加到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)