空间绘图功能对于在某些精算科学行业（如健康或汽车保险）中运行分析的人员很有帮助。
例如，让我们逐个州直观地调查机动车碰撞次数。首先，我找到了一个2012 年致命崩溃的 Excel 文件来自死亡分析报告系统 (FARS) 百科全书。
下载地址
https://try.dominodatalab.com/u/joshpoduska/ggmap/view/data/vehicle-accidents.csv?_ga=2.141050866.1905276311.1656293124-1843221964.1656293124
加载ggmap库后，我们需要加载和清理数据。以下行加载一个 CSV 文件，将 State 列转换为字符数据类型，并将 Motor Vehicle 碰撞量从整数转换为双倍。最后，我们移除夏威夷和阿拉斯加以获得更紧凑的地图视图。（对不起！）
library(ggmap)
mydata = read.csv("vehicle-accidents.csv")
mydata$State <- as.character(mydata