ggplot2图例显示

Question

我正在尝试将图例添加到具有多个点数据集的多边形叠加，但是我无法添加图例。这与我的相似

带有多边形和1的shapefile 1个带点坐标的dbf文件

> polygon.file.fortify<-fortify.SpatialPolygonsDataFrame(polygon1,region="UG")

> head(polygon.file.fortify)
      long      lat order  hole piece    group     id
1 35.02638 1.925453     1 FALSE     1 Uganda.1 Uganda
2 35.02480 1.912348     2 FALSE     1 Uganda.1 Uganda
3 35.01902 1.884518     3 FALSE     1 Uganda.1 Uganda
4 35.01396 1.847906     4 FALSE     1 Uganda.1 Uganda
5 35.01143 1.827074     5 FALSE     1 Uganda.1 Uganda
6 35.00699 1.796143     6 FALSE     1 Uganda.1 Uganda

> point.file
      UG ORIG_FID coords_x1 coords_x2
1 Uganda        0  32.29987  1.332974

我的 ggplot2 代码与此类似：

qplot(main="Uganda",ylab="Latitude",xlab="Longitude") +
    geom_polygon(data=polygon.fortify, aes(x = long, y=lat, group = NULL), 
                 ylab="Latitude",xlab="Longitude",colour = "black", fill = NA) +
    geom_point(data=point.file, aes(x=point.file$coords_x1,y=point.file$coords_x2, group=NULL),
               colour="red",shape=24,size=3,fill="blue")

从我所看到的解决图例问题的方法是在aes()内添加颜色，但我仍然遇到传说中的一些问题：

qplot(main="Uganda",ylab="Latitude",xlab="Longitude") +
    geom_polygon(data=polygon.file.fortify, aes(x = long, y=lat, group = NULL,colour = "black"), 
                 ylab="Latitude",xlab="Longitude", fill = NA) +
    geom_point(data=point.file, aes(x=point.file$coords_x1,y=point.file$coords_x2, group=NULL,colour="red"),
               shape=24,size=3,fill="blue") + 
    scale_colour_manual(values=c("black","red"))

我不知道问题出在哪里以及是否有办法将图例与形状而不是颜色相关联，因为我有一个不同文件的列表要绘制（所有点）我使用不同的形状类型

有些点非常接近，这就是为什么我使用填充颜色的形状。