删除极坐标图的最外圈（ggplot2）

Question

我正在尝试构建一个极坐标图来展示某些方向的百分位数，但在移除极坐标图的最外环时遇到了问题，尽管它已作为有助于构建极坐标图的条形图的一部分被移除。

这是可重现的代码：

library(ggplot2)

perc_df=data.frame(id=c(125,126,127,128,129,130),percentile=c(.50,.75,.99,.27,.12,.66))

cxc <- ggplot(perc_df, aes(x = id)) +
  geom_bar(width = 1, aes(weight = percentile, fill = ..count..)) +
  scale_y_continuous(limits = c(0,1),breaks=seq(0, 1, .25),expand=c(0,0)) +
  scale_fill_gradient2(low = 'red', high = 'green',mid='yellow', limits=c(0,1),midpoint=.5,guide = "colourbar")

cxc + coord_polar(theta = 'x',start = 2.6)+ guides(fill=FALSE) +
  theme(axis.title.x=element_blank(),axis.text.x=element_blank(),axis.ticks.x=element_blank(),axis.title.y=element_blank(),
        axis.text.y=element_blank(),axis.ticks.y=element_blank(),plot.title = element_text(lineheight=.8, face="bold",hjust = 0.5),
        panel.border = element_blank())

这是生成的：

这非常接近，但我们希望 1 的百分位数位于图的最后一个圆圈，而不是图的外圈。

编辑：我已经尝试将答案合并到此处，但没有成功。 Remove extra space and ring at the edge of a polar plot

Answer 1

这个问题的答案很简单。您必须添加 geom_hline（在添加 geom_bar 之前您可能需要它们）。我认为 geom_vline 在您的情况下没有意义，因为 x 轴上的变量不是数字。

我加了一行：

geom_hline(yintercept = seq(0, 1, by = 0.25), colour = "grey90", size = 0.2)

整个代码如下所示：

perc_df <- data.frame(id = c(125, 126, 127, 128, 129, 130), 
                      percentile = c(0.50, 0.75, 0.99, 0.27, 0.12, 0.66))

library(ggplot2)
ggplot(perc_df, aes(id)) +
    geom_hline(yintercept = seq(0, 1, by = 0.25), colour = "grey90", size = 0.2) +
    geom_bar(aes(weight = percentile, fill = ..count..), 
             width = 1, ) +
    scale_y_continuous(limits = c(0, 1), 
                       breaks = seq(0, 1, 0.25),
                       expand = c(0, 0)) +
    scale_fill_gradient2(low = "red", mid="yellow", high = "green", 
                         limits = c(0, 1), midpoint = 0.5, 
                         guide = "colourbar") +
    coord_polar(theta = "x", start = 2.6) + 
    guides(fill = FALSE) +
    theme_bw() +
    theme(axis.title = element_blank(),
          panel.border = element_blank(),
          legend.key = element_blank(),
          axis.ticks = element_blank(),
          axis.text = element_blank(),
          panel.grid  = element_blank(),
          plot.title = element_text(lineheight = 0.8, face = "bold", 
                                    hjust = 0.5))

它产生这样的情节：

删除极坐标图的最外圈（ggplot2）

Remove outermost ring of polar plot (ggplot2)

r

ggplot2

polar-coordinates