```r
ggplot(test_data_long) +
  facet_wrap(~id) +
  geom_bar(aes(y = share, x = variable, fill = variable), stat = "identity") +
  theme() +
  coord_polar("x", start = 0)
```

![](modern_R_files/figure-latex/unnamed-chunk-317-1.pdf)<!-- -->