r - R と飛行ルート リーフレットの異なる色

Question

チラシの問題で困っています。
飛行ルートをプロットしたい (gcIntermediate で既に完了) が、因子変数 (Status:cancelled,delayed) に基づいてルートに色を付けたい。
遅延したルートを青で、キャンセルされたルートを赤で表示したい

私のRコード：

gcIntermediate(coord1[,c(1,2)], coord1[,c(3,4)],  
               n=100,   
               addStartEnd=TRUE,  
               sp=TRUE) %>%   
  leaflet() %>%   
  addTiles() %>%   
  setView(-100,38, zoom = 4.49) %>%   
  addPolylines(color="red") %>%   
  addMarkers(lng=c(coord1[,1],coord1[,3]),lat=c(coord1[,2],coord1[,4]))

ここで、coord1 は、2 つの都市の緯度と経度、および因子変数 (ステータス) を含むデータフレームです。