R：物种分布建模。镜像的栅格和/或空间数据帧

Question

我正在尝试从.csv文件创建空间点数据框。它（通常）工作，但输出是镜像的，因此我用它创建的光栅图是“颠倒的”。 我在这里使用这种方法（Creating a RasterLayer）来创建栅格。

我无法弄清问题是什么。任何帮助将不胜感激！

base <- read.csv(file="Ancylus_Cleaned_Coordinates.csv", header=T, sep="\t")
head(base)

#latitude longitude      species
#1 40.55000  -8.16000 Afluviatilis
#2 40.22000  -8.15000 Afluviatilis
#3 54.43584  -8.12788 Afluviatilis

spdf <- SpatialPointsDataFrame( base[ c("latitude" , "longitude") ], data = data.frame( base$species ),  proj4string = CRS("+proj=longlat +datum=WGS84") )

r <- raster(extent(spdf))
r

然后我设置了raste的分辨率

res(r) <- 1

展开它

r <- extend(r, extent(r)+5)

绘制我的子样本

acsel <- gridSample(base, r, n=1)

绘制结果

p <- rasterToPolygons(r)
plot(p, border='gray')
points(afc)

Answer 1

您可以尝试flip包中的raster功能。

library(raster)

r <- raster(nrow=18, ncol=36)
r[] <- 1:ncell(r)

par(mfrow = c(1, 2))
plot(r)
plot(flip(r, direction = "y"))