R: Моделирование распространения видов. Растровые и / или пространственные данные зеркальные

Question

Я пытаюсь создать фрейм данных Пространственная точка из файла.csv. Это работает (в общем), но вывод зеркальный, поэтому растровая карта, которую я создаю, "перевернута". Я использовал этот подход здесь ( Создание 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

Затем я установил разрешение раста

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"))