图书馆( " ggmap(ggmap) " ) # 加载所需包:ggplot2
# ℹ 谷歌的服务条款:< https://mapsplatform.google.com >
# Stadia Maps的服务条款:< https://stadiamaps.com/terms-of-service网站/ >
# OpenStreetMap的磁贴使用策略:< https://operations.osmfoundation.org/policies/tiles网站/ >
# ℹ 如果你使用ggmap,请引用它! 有关详细信息,请使用“引文(“ggmap”)”。
我们 <- c(c)( 左边 = - 125 , 底部 = 25.75 , 正确的 = - 67 , 顶部 = 49 ) 获取stadiamap( 我们 , 缩放 = 5 , 地图类型 = " alidade_sooth(alidade_平滑) " ) | > ggmap() # ℹ © Stadia Maps©Stamen Design©OpenMapTiles©OpenStreetMap贡献者。
图书馆( " 数字播放器 " , 警告.冲突 = 错误的 ) 图书馆( " 对于猫 " ) # 定义辅助对象
`%通知%` <- 功能 ( 左侧(lhs) , 相对湿度 ) ! ( 左侧(lhs) %单位:% 相对湿度 ) # 将休斯顿市中心的犯罪减少为暴力犯罪
暴力犯罪 <- 罪行 | > 过滤器( 冒犯 % 诺丁 %c(c)( " 汽车失窃 " , " 盗窃 " , " 盗窃 " ), 协议双方:( 离子 , - 95.39681 , - 95.34188 ), 协议双方:( 纬度 , 29.73631 , 29.78400 ) ) | > 突变( 冒犯 = 功能下降( 冒犯 ), 冒犯 = 函数相关级别( 冒犯 ,c( " 抢劫 " , " 严重攻击 " , " 强奸 " , " 谋杀 " )) ) # 使用qmplot在地图上绘制散点图 qmplot码( 离子 , 纬度 , 数据 = 暴力犯罪 , 地图类型 = " stamen_toner_网站 " , 颜色 = 我( " 红色 " )) # ℹ 使用`zoom=14`
# ℹ © Stadia Maps©Stamen Design©OpenMapTiles©OpenStreetMap贡献者。
口技 <- make_box(标记_框)( 离子 , 纬度 , 数据 = 暴力犯罪 ) 地图 <- 获取stadiamap( 口技 = 口技 , 地图类型 = " stamen_toner_网站 " , 缩放 = 14 ) # ℹ © Stadia地图©Stamen设计©OpenMapTiles©OpenStreetMap贡献者。 ggmap(ggmap)( 地图 )
ggmap(ggmap)( 地图 ) + 地理点( 数据 = 暴力犯罪 , 颜色 = " 红色 " )
图书馆( " 拼凑 " ) 图书馆( " gg密度 " ) 抢劫 <- 暴力犯罪 | > 过滤器( 冒犯 == " 抢劫 " ) 点_映射 <- ggmap(ggmap)( 地图 ) + 地理点( 数据 = 抢劫 , 颜色 = " 红色 " ) # 警告已禁用
hdr映射 <- ggmap(ggmap)( 地图 ) + 地理高分辨率( 原子发射光谱( 离子 , 纬度 , 填满 = 后统计( 问题 )), 数据 = 抢劫 , 阿尔法 = .5 ) +
地理文本路径 :: 地理标签密度2d( 原子发射光谱( 离子 , 纬度 , 水平 = 后统计( 问题 )), 数据 = 抢劫 , 斯达 = " hdr线 " , 大小 = 3 , 箱色 = 不适用 ) + 缩放_缩放_缩放( 调色板 = " YlOrRd公司 " ) + 主题( 图例.位置 = " 没有人 " ) ( 点_映射 + hdr映射 ) & 主题( 轴.标题 = 元素_blank(), 轴.text = 元素_blank(), 轴.ticks = 元素_blank())
ggmap(ggmap)( 地图 , 使变暗 = .3 ) + 地理点( 原子发射光谱( 离子 , 纬度 ), 数据 = 暴力犯罪 , 形状 = 21 , 颜色 = " 灰色25 " , 填满 = " 黄色的 " ) + facet_wrap(面覆盖)( ~ 冒犯 , nrow公司 = 1 ) + 主题( 轴.标题 = 元素_blank(), 轴.text = element_blank()元素, 轴.ticks = 元素_blank())
( 地图 <- 获取谷歌地图( " waco德克萨斯州 " , 缩放 = 12 )) # ℹ < https://maps.googleapis.com/maps/api/staticmap?center=waco%20texas&zoom=12&size=640x640&scale=2&maptype=terrain&key=xxx >
# ℹ < https://maps.googleapis.com/maps/api/geocode/json?address=waco +德克萨斯州&key=xxx>
# 谷歌地图的1280x1280地形图图像; 使用“ggmap::ggmap()”绘制它。 ggmap(ggmap)( 地图 )
获取谷歌地图( " waco德克萨斯州 " , 缩放 = 12 , 地图类型 = " 卫星 " ) | > ggmap() 获取谷歌地图( " waco德克萨斯州 " , 缩放 = 12 , 地图类型 = " 混合的 " ) | > ggmap() 获取谷歌地图( " waco德克萨斯州 " , 缩放 = 12 , 地图类型 = " 路线图 " ) | > ggmap()
地理代码( " 德克萨斯州韦科大学公园1301号,邮编:76798 " ) # ℹ < https://maps.googleapis.com/maps/api/geocode/json?地址=1301 +S+大学+公园+博士,+Waco,+TX+76798&key=xxx>
# #A字型:1×2
# 长纬度
# <dbl><dbl>
# 1 -97.1 31.6 修订代码(c( 离子 = - 97.1161 , 纬度 = 31.55098 )) # ℹ < https://maps.googleapis.com/maps/api/geocode/json?latlng=31.55098 ,-97.1161&键=xxx>
# 警告:找到多个地址,将返回第一个地址:
# ! 1301 S University Parks Dr,Waco,TX 76706,美国德克萨斯州
# ! 美国德克萨斯州韦科市贝勒大道55号,邮编76706
# ! HV2M+9H美国德克萨斯州韦科
# ! Bear Trail,Waco,TX 76706,美国
# ! 美国德克萨斯州罗宾逊76706
# ! 美国德克萨斯州韦科
# ! 美国德克萨斯州麦克伦南县
# ! 美国德克萨斯州
# ! 美国
# [1] “1301 S University Parks Dr,Waco,TX 76706,USA”
易怒的( 地址 = c(c)( " 白宫 " , " " , " waco德克萨斯州 " )) | > 可变地理代码( 地址 ) # ℹ < https://maps.googleapis.com/maps/api/geocode/json?address=white +房子和钥匙=xxx>
# ℹ < https://maps.googleapis.com/maps/api/geocode/json?address=waco +德克萨斯州&key=xxx>
# #A藏品:3×3
# 地址lon-lat
# <chr><dbl><dbl
# 1“白宫”-77.0 38.9
# 2“”不适用不适用
# 3“waco德克萨斯”-97.1 31.5
trek_df(跋涉_df) <- 徒步旅行( " 德克萨斯州休斯 " , " 德克萨斯州瓦科 " , 结构 = " 路线 " ) # ℹ < https://maps.googleapis.com/maps/api/directions/json?origin=houson ,+texas&destination=waco,+teexas&key=xxx&mode=driving&alternatives=false&units=metric> qmap(qmap)( " 德克萨斯州大学站 " , 缩放 = 8 ) + 地理路径( 原子发射光谱( x个 = 离子 , 年 = 纬度 ), 颜色 = " 蓝色 " , 大小 = 1.5 , 阿尔法 = .5 , 数据 = trek_df(跋涉_df) , 线条端点 = " 圆 " ) # ℹ < https://maps.googleapis.com/maps/api/staticmap?center=学院%20station ,%20texas&zoom=8&size=640x640&scale=2&maptype=地形和语言=en-en&key=xxx>
# ℹ < https://maps.googleapis.com/maps/api/geocode/json?address=学院 +站点,+德克萨斯州&key=xxx>
# 警告:ggplot2 3.4.0中不赞成对线条使用“大小”美学。
# ℹ 请改用“线宽”。
# 此警告每8小时显示一次。
# 调用“lifecycle::last_lifecycle_warnings()”查看此警告的位置
# 生成。
地图管理员(c( " 德克萨斯州休斯顿 " , " 达拉斯 " ), " 德克萨斯州瓦科 " ) # ℹ < https://maps.googleapis.com/maps/api/distancematrix/json?origins=dallas&destinations=waco ,+texas&key=xxx&mode=驾驶>
# ℹ < https://maps.googleapis.com/maps/api/distancematrix/json?origines=houston ,+texas&destinations=waco,+texas&key=xxx&mode=驾驶>
# #A字型:2×9
# 从至米公里秒分小时模式
# <chr><chr><int><dbl><int><dbl><dbl
# 德克萨斯州达拉斯瓦科1号,邮编:155265 155。 96.5 5303 88.4 1.47驾驶
# 2休斯顿,德克萨斯州瓦科,德克萨斯州298224 298。 185. 10217 170. 2.84驾驶
-
用户必须在谷歌注册。 你可以在 https://mapsplatform.google.com 。虽然它需要有效的 信用卡(对不起!),似乎有相当多的免费使用 在你产生费用之前,即使在那时,费用也很适中 轻量使用。 -
用户必须启用他们打算使用的API。 可能出现的情况 ggmap(ggmap) 用户作为一个总体“谷歌地图”产品,谷歌 事实上,它提供了几种与地理相关的解决方案。 例如 贴图静态 美国石油学会 提供地图图像,而 地理编码 美国石油学会 提供地理编码和反向地理编码服务。 除了 相关服务条款,一般 ggmap(ggmap) 用户不需要 想想不同的服务。 例如,您只需要 记住 获取谷歌地图() 获取地图, 地理编码() 地理编码 (使用谷歌,DSK完成)等,以及 ggmap(ggmap) 处理查询 为你。 然而 ,您确实需要在使用之前启用API 他们。 你只需要做一次,然后他们就准备好了 供您使用。 启用API只需单击几个单选按钮 上面列出的Google Maps Platform web界面上的按钮,因此 这很容易。 -
在R内部,加载新版本的 ggmap(ggmap) ,您需要 提供 ggmap(ggmap) 使用API密钥 搞砸 价值 (想想字符串 jibberish),它向谷歌服务器验证您的身份。 这可能是 临时完成 register_google(key=“[您的密钥]”) 或永久使用 register_google(key=“[your key]”,write=TRUE) (注意:这将 覆盖您的 ~/. Renviron公司 通过替换/添加相关 线路)。 如果你使用前者,要知道你需要重新做 每次你重置R。
如果 ( ! requireNamespace(必需命名空间)( " 开发工具 " ))安装.包( " 开发工具 " ) 开发工具 :: 安装github( " dkahle/ggmap公司 " )
-
来自CRAN: install.packages(“ggmap”) -
来自Github:
如果 ( ! requireNamespace(必需命名空间)( " 遥控器 " ))安装.包( " 遥控器 " ) 遥控器 :: 安装github( " dkahle/ggmap公司 " )