チラシでの連続データをぬり、Rは動作しません

Question

は、ここに私のデータである：

私は地図上にポイントを描画するためにリーフレットやRを使用し、連続のためのDiff/DIFF1の値を使用したい

t <- data.frame(Name=c('A','B','C','D','E','F','G','H','I','J'), 
       Longitude=c(151.2008,151.2458,150.8217,151.1215,150.8906,151.0660,150.8889,150.9188,150.4364,150.9982), 
       Latitude=c(-33.90772,-33.89250,-34.05951,-33.97856,-34.40470,-33.90010,-33.92832,-33.90761,-34.44651,-33.79232), 
       Diff=c(0.03,0.10,0.12,0.04,-0.12,0.34,-0.14,-0.01,0.21,-0.02), 
       Diff1=c(30,100,120,40,-120,340,-140,-10,210,-20)) 

色。ここに私のコードはあります：

library(leaflet) 
pal <- colorNumeric(
    palette = colorRampPalette(c('red','green')), 
    domain = t$Diff1) 
leaflet(data=t) %>% 
    addTiles() %>% 
    addCircles(lng=~Longitude,lat=~Latitude,radius=10,popup=~Name,color=~pal(Diff1)) 

私はここに多くの異なる色を必要としません。私はちょうどDiff1の増加として色が赤から緑に変わることを望みます。しかし、私は私の地図上の赤い点を持つ：

もう一つの問題は、私は、半径の値を変更どんなにで、データポイントのサイズは全く変わりません。私はどこが間違っているのか分かりません。

だから、私の質問は以下のとおりです。coutinuous色を使用する方法

？ ポイントのサイズを変更するにはどうすればよいですか？

Answer 1

（データフレーム以下tをexluding）、これを試してみてください：

library(leaflet) 
pal <- colorNumeric(
    palette = colorRampPalette(c('red', 'green'))(length(t$Diff1)), 
    domain = t$Diff1) 

leaflet(data = t) %>% 
    addTiles() %>% 
    addCircleMarkers(
    lng = ~ Longitude, 
    lat = ~ Latitude, 
    radius = ~ Diff * 100, 
    popup = ~ Name, 
    color = ~ pal(Diff1) 
) 

はcolorRampPaletteが実際に機能を返すので、あなたが「割れ」あなたはそれを使用しようとしているとき()と機能を開き、同様にする必要があり、覚えておいてくださいそう：

colorRampPalette(c('red', 'green'))(length(t$Diff1)) 
# "#FF0000" "#E21C00" "#C63800" "#AA5500" "#8D7100" "#718D00" "#55AA00" "#38C600" "#1CE200" "#00FF00" 

は（ "赤" と "緑" でなければなりません）開始と終了の色を確認します。

col2rgb("#FF0000") 
#  [,1] 
# red 255 
# green 0 
# blue  0 

col2rgb("#00FF00") 
#  [,1] 
# red  0 
# green 255 
# blue  0 

はい、期待通りに機能しました。