murders <-
structure(list(population = c(587000L, 643000L, 635000L, 692000L, 
1248000L, 643000L, 1964000L, 1531000L, 713000L, 749000L, 7895000L, 
762000L, 2793000L, 741000L, 625000L, 854000L, 716000L, 921000L, 
595000L, 3353000L), perc_pov = c(16.5, 20.5, 26.300000000000001, 
16.5, 19.199999999999999, 16.5, 20.199999999999999, 21.300000000000001, 
17.199999999999999, 14.300000000000001, 18.100000000000001, 23.100000000000001, 
19.100000000000001, 24.699999999999999, 18.600000000000001, 24.899999999999999, 
17.899999999999999, 22.399999999999999, 20.199999999999999, 16.899999999999999
), perc_unemp = c(6.2000000000000002, 6.4000000000000004, 9.3000000000000007, 
5.2999999999999998, 7.2999999999999998, 5.9000000000000004, 6.4000000000000004, 
7.5999999999999996, 4.9000000000000004, 6.4000000000000004, 6, 
7.4000000000000004, 5.7999999999999998, 8.5999999999999996, 6.5, 
8.3000000000000007, 6.7000000000000002, 8.5999999999999996, 8.4000000000000004, 
6.7000000000000002), annual_murders_per_mil = c(11.199999999999999, 
13.4, 40.700000000000003, 5.2999999999999998, 24.800000000000001, 
12.699999999999999, 20.899999999999999, 35.700000000000003, 8.6999999999999993, 
9.5999999999999996, 14.5, 26.899999999999999, 15.699999999999999, 
36.200000000000003, 18.100000000000001, 28.899999999999999, 14.9, 
25.800000000000001, 21.699999999999999, 25.699999999999999)), row.names = c(NA, 
-20L), class = c("tbl_df", "tbl", "data.frame"))