基于第三变量设置R中段的颜色

Question

我试图采用数据框：

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

使用RgoogleMaps创建一个地图，其中包含第1行到第2行的线段（或行？），其中的颜色位于＆＃39;活动状态＆＃39;柱。我的地图只显示绿色，我不知道为什么。这是我写过的代码：

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)

建议？