为R中的leaflet中的多段线添加颜色

install.packages("leaflet")

library(leaflet)

# 创建地图对象
map <- leaflet() %>%
  addTiles()

# 添加多段线
map <- map %>%
  addPolylines(
    lng = c(116.397, 121.485),
    lat = c(39.907, 31.233)
  )

# 显示地图
map

# 添加多段线并指定颜色
map <- map %>%
  addPolylines(
    lng = c(116.397, 121.485),
    lat = c(39.907, 31.233),
    color = "red"
  )

# 显示地图
map

# 添加多段线并指定不同颜色
map <- map %>%
  addPolylines(
    lng = list(c(116.397, 121.485), c(121.485, 126.635)),
    lat = list(c(39.907, 31.233), c(31.233, 40.075)),
    color = c("red", "blue")
  )

# 显示地图
map