HTTP状态为'403 Forbidden'ggmap get_map

Question

我正在尝试使用此代码获取Google地图，却在收到此错误

HTTP status was '403 Forbidden'
map <- get_map(location = "United States",zoom = 4,maptype = "terrain",
               color = "color",source = "google")

帮助