ggplot2主题为极坐标内的颜色

Question

我正在使用ggplot2绘制具有极坐标的图。

我想将圆内的背景色设置为与圆外的背景色不同的颜色。 （原因是我要将绘图转换为栅格并使圆外的区域透明。）

我ggplot是plot.background的ggplot theme属性。 但是我似乎找不到找到使panel.background只在情节内部绘画的方法。 有没有element_circle模拟element_rect 。

有人可以建议吗？

这是一个最小可重复的示例：

data.frame(
  x = rnorm(1000), 
  spoke = factor(sample(1:6, 1000, replace=T))
) %>% 
  ggplot(aes(x = spoke, fill=spoke, y = x)) +
  geom_violin() +
  coord_polar() +
  theme(
    plot.background = element_rect(fill = "darkblue"),
    panel.background = element_rect(fill = "lightblue",
                                    colour = "lightblue"))

提前致谢！

Answer 1

这是一种怪诞的方法：在每个因子级别上创建一个包含最小值和最大值的虚拟数据帧，然后使用它绘制填充该空间的条。 使用极坐标设置width = 1将用于制作饼图-在这里它做同样的事情，但是您并没有在饼形楔子之间进行区分。

您实际上可能并不想使用x的确切最大值； 可以根据需要添加一些填充，但这应该是一个开始。

如果您正在处理最小值为0或高于最大值的数据，则无需像我一样重复数据-这是我弄清楚让条形图从0堆叠到最大值的最佳方法，即为正，从0到最小值，为负。 最初看起来geom_rect似乎更有意义，但我无法让它一直伸展到整个圆圈。

library(tidyverse)

set.seed(1234)
df <- data.frame(
  x = rnorm(1000), 
  spoke = factor(sample(1:6, 1000, replace=T))
)
bkgnd_df <- data.frame(spoke = factor(rep(1:6, 2)), 
                      x = c(rep(min(df$x), 6), rep(max(df$x), 6)))

bkgnd_df
#>    spoke         x
#> 1      1 -3.396064
#> 2      2 -3.396064
#> 3      3 -3.396064
#> 4      4 -3.396064
#> 5      5 -3.396064
#> 6      6 -3.396064
#> 7      1  3.195901
#> 8      2  3.195901
#> 9      3  3.195901
#> 10     4  3.195901
#> 11     5  3.195901
#> 12     6  3.195901

ggplot(df, aes(x = spoke, y = x)) +
  geom_col(data = bkgnd_df, width = 1, fill = "skyblue") +
  geom_violin(aes(fill = spoke)) +
  coord_polar(theta = "x")

同样值得注意的是， ggforce具有geom_circle ，但是我不知道它如何与极坐标一起工作。