library(tidyverse)
library(ggplot2)
diamonds %>%
ggplot() +
ggwedge:::geom_pie() +
coord_radial(expand = F) +
aes(fill = cut) +
facet_wrap(~color)
last_plot() +
facet_null() +
ggwedge:::geom_pie_label(r_prop = 1.15)
last_plot() +
coord_polar()
## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.