Coordinata polare/layout circolare per l'intera facet_grid

Question

Ho un set di dati con valori 2 fattori discreti ordinati, con alcuni valori continui corrispondenti. (Campione casuale viene generato sotto)

randomData = expand.grid(1:5, 1:100) # The two discrete variables 
colnames(randomData) = c("index1", "index2") 

randomData$z = runif(nrow(randomData)) # The measured value 

ggplot(randomData, aes(x = 1, y = z)) + 
    geom_bar(stat = "identity") + 
    facet_grid(index1 ~ index2) + 
    theme_minimal() 

Sto cercando di avvolgere l'intera griglia in pianta circolare/polare, come quello mostrato in basso, utilizzando la barra trame generato.

Il primo grafico è l'output desiderato (manipolato da uno strumento di fotoritocco dal primo grafico di sfaccettatura). Il secondo grafico è l'output di questo post del blog: http://chrisladroue.com/2012/02/polar-histogram-pretty-and-useful/). Tuttavia, contiene solo una singola "riga".

Non riesco a capire un modo per farlo. quando provo ad aggiungere coord_polar(), i grafici a barre sono influenzati e non il facet.

Answer 1

Non penso che sia possibile organizzare le faccette in un cerchio, ma si può imbrogliare cambiando le variabili x e y e quindi utilizzando coord_polar().

library(ggplot2) 
library(dplyr) 
d <- rbind(
    mutate(randomData, col = "dark"), 
    mutate(randomData, col = "blank", z = 1 - z) 
) %>% arrange(d, index2, index1, col) 

ggplot(d, aes(x = factor(index2), y = z)) + 
    geom_bar(aes(fill = col), stat = "identity", position = "stack") + 
    scale_fill_manual(values = c(blank = "white", dark = "black")) + 
    coord_polar() + 
    theme_minimal() + 
    guides(fill = FALSE) 

Si dovrà adattare questo un bel po 'per adattarsi impostare i dati originali, ma si ottiene l'idea - aggiungere righe per i valori (1 - z) e utilizzarli per impilare le barre