SHARE
TWEET

Untitled

a guest Apr 18th, 2019 80 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ```{r}
  2. top10_increses_rate <- murder_tiny %>%
  3.   filter(state %in% total_change$state & change>=0)
  4. top10_increses_rate
  5. ```
  6.  
  7. ```{r}
  8. p1 <- ggplot(top10_increses_rate,
  9.              aes(x=reorder(state,change), y=change))+
  10.       geom_col(aes(fill=city))+
  11.       coord_flip()+
  12.       labs(x="State", y="Number of Change", title = "Top 10 Murder Increses Rate in each State") +
  13.       theme_minimal()
  14. p1
  15. ```
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top