小编Ram*_*les的帖子

我正在与不同年份的每个州的某些罪行进行可视化maps和ggplot2可视化.我正在使用的数据集是由FBI制作的,可以从他们的网站或从这里下载(如果你不想下载数据集,我不会责怪你,但它太大了,不能复制和粘贴到这个问题,并包括一小部分数据集将无济于事,因为没有足够的信息来重新创建图表).

问题比描述的更容易看到.

正如你所看到的,加利福尼亚州缺少一大块以及其他一些州.以下是生成此图的代码:

# load libraries
library(maps)
library(ggplot2)

# load data
fbi <- read.csv("http://www.hofroe.net/stat579/crimes-2012.csv")
fbi <- subset(fbi, state != "United States")
states <- map_data("state")

# merge data sets by region
fbi$region <- tolower(fbi$state)
fbimap <- merge(fbi, states, by="region")

# plot robbery numbers by state for year 2012
fbimap12 <- subset(fbimap, Year == 2012)
qplot(long, lat, geom="polygon", data=fbimap12,
  facets=~Year, fill=Robbery, group=group)

这就是states数据的样子:

    long      lat     group order  region subregion
1 -87.46201 30.38968     1     1 …