我想创建一个加拿大地图，该地图显示各省之间的边界，显示各省的名称，突出显示某些省份（艾伯塔省，不列颠哥伦比亚省），并显示一些具有名称的城市（埃德蒙顿，温哥华）。
到目前为止，我只能使用以下代码创建加拿大地图。非常感谢您的帮助。谢谢。
library(ggplot2)
library(maps)
library(mapdata)
canada <- map_data("world2Hires", "Canada", projection = "polyconic")
ggplot() + geom_polygon(data = canada, aes(x=long, y = lat, group = group),
fill = "white", color="black") +
coord_fixed(ratio = 1, xlim = NULL, ylim = NULL, expand = TRUE)