plotCrime <- function(crimeName,crimeData)
{
  library(ggmap)
  library(ggplot2)
  sfMap <- readRDS('D:\\RWorkspace\\Crime\\sfCrime13.rds')
  plotData <- crimeData[crimeData[,'Category'] == crimeName,]
  ggmap(sfMap)+geom_point(aes(x = plotData$X,y = plotData$Y),data = plotData,colour = 'blue')
}
plotCrime('TRESPASS',train)

执行的结果是Error in eval(expr, envir, enclos) : object 'plotData' not found
自己测试的结果是ggmap(sfMap)+geom_point(aes(x = plotData$X,y = plotData$Y),data = plotData,colour = 'blue')
并且plotData在执行这一句之前是有值的，sfMap也没错
求助啊！