## 13.2 收入不平等是否與仇恨犯罪有關？ 現在我們了解了基尼指數，我們可以看看收入不平等與仇恨犯罪率之間的關系（見圖[13.2](#fig:hateCrimeGini)）。 ```r hateCrimes <- hate_crimes %>% mutate(state_abb = state.abb[match(state,state.name)]) %>% drop_na(avg_hatecrimes_per_100k_fbi) hateCrimes$state_abb[hateCrimes$state=="District of Columbia"]='DC' ggplot(hateCrimes,aes(gini_index,avg_hatecrimes_per_100k_fbi,label=state_abb)) + geom_point() + geom_text(aes(label=state_abb),hjust=0, vjust=0) + theme(plot.title = element_text(size = 20, face = "bold")) + xlab('Gini index') + ylab('Avg hate crimes per 100K population (FBI)') + theme(plot.margin = unit(c(1,1,1,1), "cm")) ```  圖 13.2 仇恨犯罪率與基尼指數的關系圖。 從數據來看，這兩個變量之間似乎有一個正的關系。我們如何量化這種關系？