删除特定图例边框

Question

我正在尝试通过删除图例中特定单元格周围的边框来将图例修改为地图。

我的代码的简化版本如下所示：

ggplot() + 
  stat_density2d(data = carto@data,
                 aes(x=field_2,y=field_1),
                 geom="polygon",
                 alpha = .37,
                 fill = "#e29206") +
  geom_point(data = Schools@data[Schools@data$sch_type == "Charter" | Schools@data$sch_type == "District", ],
             aes(x = x, y = y, color = sch_type, shape = grade_cat),
             size = 1) +
  scale_colour_manual(values=c("#e0100d", "#4753ff")) +
  guides(color=guide_legend(override.aes=list(fill = "white"))) +
  theme(legend.key = element_blank()) +
  coord_map()

产生以下图像：

我想删除前两个图例单元格上的蓝色和红色边框。如果我将color添加到override.aes()中的guides()参数，则会更改边框，但也会使章程和区域颜色相同。我可以在color的位置使用不同的论点吗？

在发布之前，我查看了这两个问题（在各种来源中）：

Different legend-keys inside same legend in ggplot2

ggplot2 avoid boxes around legend symbols