The following is a short statistics review on US data, to put in practice R markdown and leaflet. We are using two sets of records, one from state.center, and the state.x77 table, which will be matched based on the table order.

stats = state.x77
center_df = data.frame(state.center)
rownames(center_df) <- rownames(stats)
colnames(center_df) <- c("lon","lat")
stats2 <- merge(stats, center_df, by="row.names")

The following are the murder statistics, classified into three major categories.

We want to show the more densly populated areas.