finalPolygonCRS + пакет функций over () в R

Я создаю SpatialPolygon таким образом

#make spatial points
#assign Original CRS WGS84 EPSG:4326 (DATUM --> on sphere)
cornersEPSG4326 <- SpatialPoints(coords=cbind(x,y), proj4string = CRS("+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs"))

#transform to EPSG3857 (Web Mercator PROJECTION)
cornersEPSG3857 <- spTransform(cornersEPSG4326, CRS("+init=epsg:3857"))

#create Polygon
bbox <- Polygon(cornersEPSG3857)

#create PolygonsObject
myPolygon <- Polygons(list(bbox),1)

#create SpatialPolygonsObject
finalPolygon <- SpatialPolygons(list(myPolygon))

#say that polygon is EPSG3857 (Web Mercator PROJECTION)
proj4string(finalPolygon) <- CRS("+proj=merc +a=6378137 +b=6378137 +lat_ts=0.0 +lon_0=0.0 +x_0=0.0 +y_0=0 +k=1.0 +units=m +nadgrids=@null +wktext  +no_defs")

И SpatialPoints так:

#make spatial points
#assign Original CRS WGS84 EPSG:4326 (DATUM --> on sphere)               
spatialEPSG4326 <- SpatialPoints(coords=cbind(x,y), proj4string = CRS("+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs"))

#transform to EPSG3857 (Web Mercator PROJECTION)
spatialEPSG3857 <- spTransform(spatialEPSG4326, CRS("+init=epsg:3857"))

allPointsSpatial <- spatialEPSG3857

Я хочу запустить функцию over():

pointsInPolygon <- over(allPointsSpatial, finalPolygon)
print(length(pointsInPolygon))

Но я получаю следующее сообщение об ошибке:

Предупреждение: необработанная ошибка в наблюдателе: идентичный CRS (x, y) НЕ ИСТИНА

Когда я добавляю эту строку в свой SpatialPoints

#say that points is EPSG3857 (Web Mercator PROJECTION)
proj4string(spatialEPSG3857) <- CRS("+proj=merc +a=6378137 +b=6378137 +lat_ts=0.0 +lon_0=0.0 +x_0=0.0 +y_0=0 +k=1.0 +units=m +nadgrids=@null +wktext  +no_defs")

Я получаю следующую ошибку:

Предупреждение в _9 _ (_ 10_, value =): новый CRS был назначен объекту с существующим CRS: + init = epsg: 3857 + proj = merc + a = 6378137 + b = 6378137 + lat_ts = 0.0 + lon_0 = 0.0 + x_0 = 0.0 + y_0 = 0 + k = 1.0 + units = m + nadgrids = @ null + no_defs без перепроецирования. Для перепроецирования используйте функцию spTransform в пакете rgdal

1. Почему возникает ошибка CRS are not identical? Они должны быть одинаковыми, поскольку proj4string и spTransform - это один и тот же код ?!
2. Почему эта ошибка возникает, когда я пытаюсь назначить proj4string SpatialPoints, но не когда я делаю это на полигоне?