Paul-Yuchao-Dong

options(error = function() {
  calls <- sys.calls()
  if (length(calls) >= 2L) {
    sink(stderr())
    on.exit(sink(NULL))
    cat("Backtrace:\n")
    calls <- rev(calls[-length(calls)])
    for (i in seq_along(calls)) {
      cat(i, ": ", deparse(calls[[i]], nlines = 1L), "\n", sep = "")
    }

Paul-Yuchao-Dong

---
title: "sorted stacked bars"
output: github_document
---

# Practice reordering of stacked bar chart

inspiration: https://github.com/larissakostiw/-TidyTuesday/blob/master/roman.md
```{r message=FALSE, warning=F}
library(tidyverse)