R ggplot地图中的点分布

我有以下文件和数据：

这个脚本：

#open shp file
library(rgdal)
map <- readOGR(dsn= "/rj_municipios", layer = "33MUE250GC_SIR")

#open data file
ind_mapa <- read.csv("ind_mapa.csv", sep=";")

#map
library(ggplot2)
library(ggrepel)
mapdf <-fortify(map)

ggplot(data= mapdf, aes(x=long, y=lat, group=group)) +
  geom_path() +
  coord_map("mercator") +
  xlim(-42.040,-41.973)+
  ylim(-23.015, -22.949)+
  theme_bw() +
  geom_jitter(data=ind_mapa, width= .0015, height = .0015, size=3,alpha=.7,
              aes(x=lon, y=lat, group= code, color = code)) +
  geom_text_repel(data= ind_mapa, aes(x=lon, y=lat), group= code, label=ano)

#打开shp文件
图书馆（rgdal）
映射您的
标签
和
组
值需要美观。最后一行代码应为：

geom_text_repel(data= ind_mapa, aes(x=lon, y=lat, group= code, label=ano))

收到的错误消息给您一个提示：
geom=geomtextreep，：未找到对象“code”
。使用它，您就知道
geom\u text\u repel（）
调用有问题，特别是
code
的参数

有趣的事实：将最后一行更改为读取
geom\u text\u repel（data=ind\u mapa，aes（x=lon，y=lat，group=code），label=ano）
，其中只有
group=code
在
aes（）调用中。您应该希望看到相同的错误消息，但是如果
对象“ano”未找到
您可能需要
inherit.aes=FALSE
在
geom_jitter
和
geom_text_reject
中都显示该错误消息，我刚刚尝试了它，但它保持不变