在R中动态对齐地块(空间地图的自定义ggplot2图例)

library(ggplot2)
# 导入地块数据集
data <- read.csv("地块数据.csv")

# 创建基础地图
base_map <- ggplot(data) +
  geom_polygon(aes(x = longitude, y = latitude, group = group),
               fill = "grey", color = "black")

# 添加地块属性和图例
custom_map <- base_map +
  geom_polygon(aes(fill = attribute)) +
  scale_fill_manual(values = c("blue", "red", "green"),
                    labels = c("属性1", "属性2", "属性3"))

# 设置动态对齐地块
final_map <- custom_map +
  theme(legend.position = c(0.8, 0.2),  # 设置图例的位置
        legend.key.width = unit(1.5, "cm"),  # 设置图例的宽度
        legend.key.height = unit(1, "cm"),  # 设置图例的高度
        legend.title = element_blank())  # 隐藏图例的标题

# 绘制地图
print(final_map)