r - 基于第三个变量在R中设置段的颜色

Question

我正在尝试获取数据框：

lat         lng       active
122.536226 37.86047    green
122.536422 37.860303   green
122.536688 37.860072   red
...

并使用 RgoogleMaps 创建一个地图，其线段（或线？）从第 1 行到第 2 行，颜色在“活动”列中。我的地图只显示绿色，我不知道为什么。这是我写的代码：

center <- c(mean(all_lat,na.rm=TRUE), mean(all_lng,na.rm=TRUE))
latRange = range(c(all_lat),finite=TRUE)
lngRange = range(c(all_lng),na.rm=TRUE, finite=TRUE)
zoom <- min(MaxZoom(latRange,lngRange))
mymap <- GetMap(center=center, zoom=zoom)

# show the basic map
PlotOnStaticMap(mymap,lat=c(mean(all_lat)),lon=c(mean(all_lng)), cex=0.5)

# add line segments
PlotOnStaticMap(mymap,lat=segs$lat,lon=segs$lng,col=segs$active,   
  FUN=lines,add=TRUE)

建议？