要保持原始范围的同时将SpatialPoints对象转置或镜像，可以使用sp和rgdal包中的函数来实现。下面是一个示例代码：

library(sp)
library(rgdal)

# 创建一个示例的SpatialPoints对象
coords <- matrix(c(1, 2, 3, 4, 5, 6), ncol = 2)
sp_points <- SpatialPoints(coords)

# 获取原始范围
orig_extent <- bbox(sp_points)

# 转置SpatialPoints对象
transposed_points <- t(sp_points@coords)

# 创建一个新的SpatialPoints对象
transposed_sp <- SpatialPoints(transposed_points, proj4string = CRS(proj4string(sp_points)))

# 设置新的范围为原始范围
bbox(transposed_sp) <- orig_extent

# 镜像SpatialPoints对象
mirrored_points <- transposed_sp@coords
mirrored_points[, 1] <- max(mirrored_points[, 1]) - mirrored_points[, 1]

# 创建一个新的SpatialPoints对象
mirrored_sp <- SpatialPoints(mirrored_points, proj4string = CRS(proj4string(sp_points)))

# 设置新的范围为原始范围
bbox(mirrored_sp) <- orig_extent

# 可视化结果
plot(sp_points, pch = 19, col = "blue", xlim = c(0, 7), ylim = c(0, 7))
points(transposed_sp, pch = 19, col = "red")
points(mirrored_sp, pch = 19, col = "green")
legend("topright", legend = c("Original", "Transposed", "Mirrored"), col = c("blue", "red", "green"), pch = 19)

运行上述代码将创建一个示例的SpatialPoints对象，然后将其转置和镜像创建新的SpatialPoints对象。最后，通过可视化结果，可以比较原始对象和转置/镜像对象之间的区别。