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