mypolys<-lapply(group,
+                 function(x) {
+                   tmp = !is.na(over(freq_map, dataProjected[x,]));
+                   clipped_grid= freq_map[tmp[,1],];
+                   clipped_grid
+                 })
Error in .local(x, y, returnList, fn, ...) :
  不是所有的identicalCRS(x, y)都是TRUE