Предположим, что в полярной координате имеется набор данных в виде сектора
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)
который дает следующий график:
Как мы можем удалить нижнюю (пустую) часть графика, не делая полного круга?