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