---
output:
html_document:
code_folding: hide
---
```{r block2, message=FALSE, fig.width=8, fig.height=5, dev='svg'}
library(ggplot2)
library(geofacet)
ggplot(state_ranks, aes(variable, rank, fill = variable)) +
geom_col() +
coord_flip() +
facet_geo(~ state) +
theme_bw()