2016-07-25 8 views
0

私は高低を検索して答えを見つけたので、それに関連するものは何も見つかりませんでした。このエラーの原因を説明する助けとなるでしょう。前もって感謝します。R Studio For Loopエラー。高と低の検索

tabledata3<-getSQL("SELECT LONGITUDE,LATITUDE,SESSION,asd FROM ABC") 
leaflet(subzone) %>% 
    addTiles() %>% 
    addMarkers(data = tabledata1, lng = ~ LONGITUDE, lat = ~ LATITUDE, popup = ~ S_ID, clusterOptions = markerClusterOptions(), icon = ~markerList["before"])%>% 
    addMarkers(data = tabledata2, lng = ~ LONGITUDE, lat = ~ LATITUDE, popup = ~ S_ID, clusterOptions = markerClusterOptions(), icon = ~markerList["after"])%>% 
    for (i in tabledata3$SESSION){ 
    addPolylines(data = tabledata3, lng = ~LONGITUDE, lat = ~LATITUDE, group = ~asd , color = "black", weight = 10) 
    } 

エラー:ステートメントを編集

Warning: Error in for: 4 arguments passed to 'for' which requires 3 

は、また、フル

for(i in 1:nrow(tabledata3)){ 
method} 

を試みたが、ノー無駄になかったです。

+0

ループの最後で '%>% 'とは何ですか?また、ループ変数 'i'を実際に使用しているのは見えません...なぜループがあるのでしょうか? –

+0

%>%を削除しましたが、同じエラーがあります。複数のポリラインを描くにはループが必要です。さもなければ、すべての座標が1行にまとめられます。 –

+0

Erm、申し訳ありませんが、ステートメントの4つの引数は何ですか?そこには3つしかないのですか? int i、1:およびtabledata3の行数。 –

答えて

0

私は同じ問題があったと私は全体のリーフレット機能の周りにループを入れたときにそれが働いた:

tabledata3<-getSQL("SELECT LONGITUDE,LATITUDE,SESSION,asd FROM ABC") 

leaflet(subzone) %>% 
     addTiles() %>% 
     addMarkers(data = tabledata1, lng = ~ LONGITUDE, lat = ~ LATITUDE, popup = ~ S_ID, clusterOptions = markerClusterOptions(), icon = ~markerList["before"])%>% 
     addMarkers(data = tabledata2, lng = ~ LONGITUDE, lat = ~ LATITUDE, popup = ~ S_ID, clusterOptions = markerClusterOptions(), icon = ~markerList["after"]) 

for(i in 1:nrow(tabledata3)){ 
    session_i <- tabledata3$SESSION[i,] 
    leaflet(subzone) %>% 
    addPolylines(data = session_i, lng = ~LONGITUDE, lat = ~LATITUDE, group = ~asd , color = "black", weight = 10) 
    } 

は、それが作品を願って!