在R中绘制驾驶路线

install.packages(c("ggplot2", "sf", "leaflet"))

library(ggplot2)
library(sf)

# 读取路线数据
route_data <- read.csv("route_data.csv")  # 假设路线数据保存在CSV文件中

# 将坐标点转换为线类型的空间数据
route_sf <- st_as_sf(route_data, coords = c("longitude", "latitude"), crs = 4326) 

# 绘制驾驶路线
ggplot() +
  geom_path(data = route_sf, aes(color = "Route")) +
  theme_minimal()

library(leaflet)
library(sf)

# 读取路线数据
route_data <- read.csv("route_data.csv")  # 假设路线数据保存在CSV文件中

# 将坐标点转换为线类型的空间数据
route_sf <- st_as_sf(route_data, coords = c("longitude", "latitude"), crs = 4326) 

# 绘制驾驶路线
leaflet() %>%
  addTiles() %>%
  addPolylines(data = route_sf, color = "blue")