library(sp)
library(ggplot2)
x <- runif(30, 587093, 587152)
y <- runif(30, 7848525, 7848605)
coor <- data.frame(x,y)
a1 <- ggplot() + geom_point(data=coor, mapping=aes(x=x, y=y), pch=3)
b1 <- a1 + theme_bw() + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())
c1 <- b1 + theme(axis.title.y = element_blank()) + theme(axis.title.x = element_blank()) + theme(legend.title=element_blank()) + theme(legend.key= element_rect(colour = "white"))
d1 <- c1 + ggtitle("B") + theme(plot.title = element_text(face="bold", hjust=0.5, vjust=0.6)) + theme(panel.border = element_rect(colour="black", size=1))
d1