要编辑ggplot2地图的传说，可以使用ggplot2中的函数scale_fill_manual和scale_color_manual来手动设置传说项的颜色和标签。

以下是一个示例代码，说明如何编辑ggplot2地图的传说：

library(ggplot2)
library(ggspatial)

# 创建一个数据框，包含地理信息和数据值
data <- data.frame(
  id = c("A", "B", "C", "D"),
  value = c(10, 20, 30, 40),
  lon = c(100, 200, 300, 400),
  lat = c(50, 60, 70, 80)
)

# 创建一个基础地图对象
base_map <- ggplot(data) +
  theme_void() +
  coord_cartesian(xlim = c(0, 500), ylim = c(0, 100)) +
  theme(plot.margin = margin(0, 0, 0, 0))

# 添加地理要素的图层
map_layer <- base_map +
  geom_sf(data = map_data("world")) +
  theme(plot.margin = margin(0.2, 0.2, 0.2, 0.2))

# 添加地理要素的填充颜色和传说
map_fill <- map_layer +
  geom_sf(fill = "gray", alpha = 0.5) +
  scale_fill_manual(values = c("gray" = "gray")) +
  theme(legend.position = "top") + 
  guides(fill = guide_legend(title = "Legend Title"))

# 添加地理要素的边界颜色和传说
map_border <- map_fill +
  geom_sf(color = "black", fill = NA, lwd = 0.5) +
  scale_color_manual(values = c("black" = "black")) +
  guides(color = guide_legend(title = "Legend Title"))

# 显示地图
print(map_border)

在这个示例代码中，首先加载了ggplot2和ggspatial库。然后创建一个包含地理信息和数据值的数据框。接下来创建一个基础地图对象，使用theme_void()函数去除背景和轴线，使用coord_cartesian()函数设置坐标范围，使用theme(plot.margin)函数调整地图的边距。

然后，通过添加geom_sf()函数和map_data()函数来添加地理要素的图层。使用geom_sf(fill = "gray", alpha = 0.5)函数设置地理要素的填充颜色和透明度。使用scale_fill_manual()函数手动设置填充颜色的值。使用guides(fill = guide_legend(title = "Legend Title"))函数设置传说的标题。

接着，使用geom_sf(color = "black", fill = NA, lwd = 0.5)函数添加地理要素的边界颜色和线宽。使用scale_color_manual()函数手动设置边界颜色的值。使用guides(color = guide_legend(title = "Legend Title"))函数设置传说的标题。

最后，使用print()函数显示地图。

这是一个简单的示例，你可以根据你的需求进行修改和扩展。