ggplot2中的多个图

Question

我想在纽约市制作犯罪事件的多个情节（在r中）。我想为每个区域制作情节，即78.我的数据记录了七种不同类型的犯罪，我想用不同的颜色识别每种类型的犯罪。因此，对于每个情节（代表一个区域），我会针对不同的犯罪使用不同的颜色。我想在谷歌地球的卫星地图上绘制数据。这是我尝试制作图表时收到的代码和错误消息：

library(ggmap)
library(ggplot2)

FELONY <- read.csv("http://www.nyc.gov/html/nypd/downloads/excel/crime_statistics/Felony.csv")
felony <- FELONY[FELONY$OccurrenceYear==2015,]
attach(felony)
Sepfel <- felony[felony$OccurrenceMonth== "Sep",]

for(i in unique(Sepfel$Precinct)){
    map <- get_map(location='New York City', zoom=11, maptype="satellite")
    ggmap(map) + 
    geom_point(subset(Sepfel,Sepfel$Precint==i),
               aes(color=Offense, x=Longitude, y=Latitude),size=0.00001, alpha=1) +
    ggtitle(paste("September 2015"))
   }

Error: ggplot2 doesn't know how to deal with data of class uneval 

Answer 1

我为此演示选择了两个Precinct。您想要创建一个包含ggplot对象的列表，绘制并保存地图。有关保存地图的选项，请参阅代码部分中的链接。 baptiste的答案将帮助您选择保存图像的最佳方式。我希望这会对你有所帮助。

foo <- subset(felony, Precinct %in% c("040", "045"))

mymap <- get_map(location = "New York City", zoom  = 11, maptype = "satellite")

mylist <- lapply(unique(foo$Precinct), function(x){

          g <- ggmap(mymap) + 
               geom_point(data = subset(foo, Precinct == x),
                          aes(color = Offense, x = Longitude, y = Latitude),
                          size = 0.5, alpha = 0.5)
               labs(title =　"September 2015")

          g
        }
       )

### Credit to baptiste for this answer.
### http://stackoverflow.com/questions/20500706/saving-multiple-ggplots-from-ls-into-one-and-seperate-files-in-r

invisible(mapply(ggsave, file=paste0("Precinct-", unique(foo$Precinct), ".png"), plot = mylist))