¿Cómo mostrar solo una parte del área de trazado de ggplot polar con faceta?

Suponer que hay un conjunto de datos en coordenadas polares que se trazará como sector

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) 

que da el siguiente gráfico: enter image description here

¿Cómo podemos eliminar la parte inferior (en blanco) de la ttwig sin hacer un círculo completo?

Este es un truco poco elegante, pero puede usar funciones de grid para cubrir el área que no desea. Por ejemplo:

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

Esto corta la mitad inferior del gráfico (ver a continuación). Sería agradable encontrar un enfoque más elegante, pero en su defecto, tal vez pueda jugar con la colocación de ventanas y las funciones de dibujo (sin mencionar cambiar la ubicación de las tags de los ejes y la leyenda) para obtener algo parecido a lo que desea. enter image description here