Wykonałem fasetowany wykres z ggplot2 w następujący sposób:

qplot(x=factor(1), data=mtcars, fill=factor(cyl)) + 
    geom_bar(width=1) +  
    coord_polar(theta="y") + 
    facet_grid(~gear)

ale ponieważ wszystkie wykresy mają tę samą skalę osi y, niektóre z nich nie obejmują pełnego okręgu. Próbowałem zfacet_grid(~gear, scales="free") ale to nie działa.

Jak mogę uzyskać pełne kręgi dla wszystkich wykresów?