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))

这给了我一个位于情节右下角的标签。当我转换到极地情节时，标签就消失了：

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()