ggplot2：极坐标图中缺少坐标值

Question

我想制作一堆点的极地情节。所以这是我的代码使用ggplot2：

x <- runif(min = -pi, max = pi, n = 100)
y <- runif(n = 100)
df1 <- data.frame(x = x, y = y)
library(ggplot2)
ggplot(df1, aes(y = y, x = x)) +  
  geom_point() + 
  ylim(0,1)  + 
  theme_light() +
  theme(legend.position="none",  panel.border=element_blank(), 
        axis.title = element_blank(), axis.text.y = element_blank()) + 
  scale_x_continuous(labels = paste(seq(-180,180,30)),
                     breaks = seq(-pi,pi, length=13)) + 
  coord_polar()

我得到以下情节：

但是，正如我们所看到的，缺少180的轴。我怎么得到这个？ （我不希望同时显示y的比例，或者如果它显示，那么就能够控制那里显示的内容。）

有什么建议吗？

Answer 1

您可以在pi处添加垂直线但是使其透明。如果您使用xintercept=c(-pi,pi)，您将获得-180/180作为标签。

ggplot(df1, aes(y = y, x = x)) +  
  geom_point() + 
  ylim(0,1)  + 
  theme_light() +
  geom_vline(aes(xintercept=pi), col='transparent') + 
  theme(legend.position="none",  panel.border=element_blank(), 
        axis.title = element_blank(), axis.text.y = element_blank()) + 
  scale_x_continuous(labels = paste(seq(-180,180,30)),
                     breaks = seq(-pi,pi, length=13)) + 
  coord_polar()