r - 극좌표의 모서리에 레이블을 추가하는 방법

Question

작은 질문이 있습니다. ggplot을 사용하여 극좌표의 구석에 레이블을 추가하는 방법은 무엇입니까?

일부 가짜 데이터가있는 재현 예 :

이 나에게 음모의 bottomright 구석에 레이블을 제공

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

당신이 최종 극 좌표의 기준으로 위치를 계산 한 후 무한대에 라벨을 넣어하지 않는 데이터의 좌표 기하 구조를 사용하여 주석을 원하지만 할 경우

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