acfrs_2021.qmd

---
title: "Untitled"
format: html
editor: visual
---

```{r}
library(ggplot2)
```

## Overview of ACFRs Data 2021

```{r}
data_from_dbsite_2021 <- readRDS("data/data_from_dbsite_2021.RDS")

data_from_dbsite_2021 %>% 
  filter(category == "School District") %>% 
  arrange(desc(total_liabilities)) 


```

```{r}
 echo: false

 data_from_dbsite_2021 %>% 
   group_by(category) %>% 
   select(state, id, category) %>% 
   group_by(category) %>% 
   ggplot(category) +
   geom_bar()


```