Data set source : US Customs and Border Protection

library(dplyr)
library(ggplot2)
library(tidyr)
library(plotly)
library(knitr)
#All usa illegal immigrant arrests
border <- read.csv("arrests.csv") 

kable(border[1:4,1:5])
Border Sector State.Territory X2000..All.Illegal.Immigrants. X2000..Mexicans.Only.
Coast Livermore CA 6205 6034
Coast Miami FL, GA, SC, NC 6237 2421
Coast New Orleans LA, AL, MS, FL 6478 5985
Coast Ramey PR 1731 0

After cleaning & processing data

#All usa illegal immigrant arrests
kable(usa[1:4,1:5])
Border Sector State.Territory year numberofimmigrants
Coast Livermore CA 2000 6205
Coast Miami FL, GA, SC, NC 2000 6237
Coast New Orleans LA, AL, MS, FL 2000 6478
Coast Ramey PR 2000 1731 
#All usa illegal mexican immigrant arrests
kable(mexi[1:4,1:5])
Border Sector State.Territory year numberofimmigrants
26 Coast Livermore CA 2000(m) 6034
27 Coast Miami FL, GA, SC, NC 2000(m) 2421
28 Coast New Orleans LA, AL, MS, FL 2000(m) 5985
29 Coast Ramey PR 2000(m) 0

Now for some nice plots using R & Plotly

### Above graph shows that there has been a steady decline in number of illegal immigrants arrested

Illegal Immigrants & Borders: All Sector arrests

Mexican Immigrants & Borders : All Sector arrests

Arrests & Sectors

Illegal Immigrants Arrested : Sectors

Illegal Mexican immigrants Arrested : Sectors

#It is evident from the graphs that there has been a steady decline in number of illegal immigrants arrested over the past decade. Either the number of illegals crossing into the border has decreased or the number of them crossing into the USA and not getting arrested has increased.