r - 3 番目の変数に基づいて 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)

提案？