如何在R中绘制栅格地图？

Question

我是R的新用户，我正在尝试在R中绘制栅格地图。这是我的代码

# data processing
library(ggplot2)
# spatial
library(raster)
library(rasterVis)
library(rgdal)
library(dplyr)
#import the raster file 
setwd("H:/Tesis_maestria/1_Binary_maps/Elipsoides/A_amu")
map <- raster("H:/Tesis_maestria/1_Binary_maps/Elipsoides/A_amu/modelo-1_mtp.tif")
map.p <- rasterToPoints(map)
df <- data.frame(map.p)
colnames(df) <- c("Longitude", "Latitude", "MAP")
#Import the csv file
UT <- data.frame("H:/Tesis_maestria/1_Binary_maps/Elipsoides/A_amu/1_F_A_amu.csv")
read.csv(UT)

但是我不知道如何使用ggplot对其进行绘制，我想在同一图像中绘制4个地图，每个地图都有一个特定的点文件，而所有地图都带有一个shapefile。然后我想使其循环。

有人能帮助我吗？

谢谢

致谢。