r - 極プロットのコーナーにラベルを追加する方法

Question

私は小さな質問があります：ggplotを使って極座標プロットの角にラベルを追加する方法は？

いくつかの偽のデータで再現可能な例：

lab <- data.frame(lab="text") 
df2 <- data.frame(x=1:24) 
pl <- ggplot(df2, aes(x=x, y=1))+geom_point()+ 
    geom_text(data=lab, x=Inf, y=-Inf, hjust=1, vjust=0, aes(label=lab)) 

これは私のプロットのbottomright隅にラベルを与えます。極座標プロットに変換すると、ラベルは消えてしまいます。

pl+coord_polar() 

極性プロットの右下にラベルを追加するにはどうすればよいですか？

ありがとうございました！

Answer 1

あなたはデータの座標にGEOMを使用して注釈を付けたい場合は、無限遠にラベルをつけていませんが、最終的な極座標に基づいて位置を計算します：

lab <- data.frame(lab="text") 
df2 <- data.frame(x=1:24) 
pl <- ggplot(df2, aes(x=x, y=1))+geom_point()+ 
    geom_text(data=lab, x=10, y=2, hjust=1, vjust=0, aes(label=lab)) 

pl+coord_polar()