r - 如何仅显示带有刻面的极地ggplot的部分绘图区域？

Question

假设有一个极坐标数据集被绘制为扇区

library(ggplot2)
library(reshape2)
data <- melt(matrix(rnorm(1000), nrow = 20))
data$type <- 1:2
data$Var1 <- data$Var1*6 - 60

ggplot(data, aes(Var1, Var2)) + 
  geom_tile(aes(fill = value)) + 
  coord_polar(theta = "x", start = pi) + 
  scale_x_continuous(limits = c(-180, 180)) +
  facet_wrap(~type)

给出了下图:


我们如何在不画一个完整圆圈的情况下删除情节的底部(空白)部分？

Answer 1

这是一个不雅的 hack，但你可以使用 grid功能来掩盖你不想要的区域。例如:

library(ggplot2)
library(reshape2)
library(grid)

data <- melt(matrix(rnorm(1000), nrow = 20))
data$type <- 1:2
data$Var1 <- data$Var1*6 - 60

p1 = ggplot(data, aes(Var1, Var2)) + 
  geom_tile(aes(fill = value)) + 
  coord_polar(theta = "x", start = pi) + 
  scale_x_continuous(limits = c(-180, 180)) +
  facet_wrap(~type)
g1 = ggplotGrob(p1)

grid.newpage()
pushViewport(viewport(height=1, width=1, clip="on"))
grid.draw(g1)
grid.rect(x=0,y=0,height=1, width=2, gp=gpar(col="white"))

这切断了图表的下半部分(见下文)。找到一种更优雅的方法会很好，但如果失败了，也许您可​​以使用视口(viewport)放置和绘图功能(更不用说更改轴标签和图例的位置)来获得接近您想要的东西。