我需要将以下绘图转换为ggplot图，因为我想将其存储在列表中（p[[i]] <- ...）。有人可以帮忙吗？
cind <- cut(df$oesasst, breaks = B, labels=L)
map(fill=TRUE,xlim=c(min(df$lon),max(df$lon)),ylim=c(min(df$lat),max(df$lat)))
points(df$lon,df$lat, pch=21,bg=pal(52)[cind],col=1,lwd=0.2,cex=2)