a guest Apr 18th, 2019 78 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- top10_increses_rate <- murder_tiny %>%
- filter(state %in% total_change$state & change>=0)
- p1 <- ggplot(top10_increses_rate,
- aes(x=reorder(state,change), y=change))+
- labs(x="State", y="Number of Change", title = "Top 10 Murder Increses Rate in each State") +
RAW Paste Data