3.9.1

ggplot(data = diamonds) + 
      geom_bar(mapping = aes(x = cut, fill = clarity)) +
      coord_polar()