在ggplot2中使用coord_map时，如何标记与网格线匹配的比例值

Question

我从下面的代码中得到了地图A.

usmp <- map_data("usa")
usamplt<-ggplot() + 
    geom_map(data=usmp, map=world, aes(x=long, y=lat, map_id=region), fill = 'grey70')+
    scale_x_continuous(breaks=seq(-60,-130,-5),labels=seq(-60,-130,-5),expand=c(0,0))+
    scale_y_continuous(breaks=seq(20,50,5),labels=seq(20,50,5),expand=c(0,0))
    coord_map(projection="azequalarea")
usamplt

地图A.

这张地图奇怪的是x和y中的标签都与相应的网格线不匹配。这不是地图B中的问题。  我知道这是因为投影coord_map(projection="azequalarea").我想知道，在地图A中如何标记与网格线对应的那些点。即我想通过相应的标签触摸每个网格线，如地图B，但使用新投影

coord_map(projection="azequalarea")