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