9 lines
227 B
R
9 lines
227 B
R
|
library(tidyverse)
|
||
|
|
load("rdas/murders.rda")
|
||
|
|
|
||
|
|
murders %>% mutate(abb = reorder(abb, rate)) %>%
|
||
|
|
ggplot(aes(abb, rate)) +
|
||
|
|
geom_bar(width = 0.5, stat = "identity", color = "black") +
|
||
|
|
coord_flip()
|
||
|
|
|
||
|
|
ggsave("figs/barplot.png")
|