在leaflet中对连续数据进行着色，R无法工作

Question

这是我的数据：

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))

我希望使用 Leaflet 和 R 在地图上绘制这些点，并使用 Diff / Diff1 的值作为连续色彩。以下是我的代码：

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的增加而从红色变为绿色。但是我的地图上只有红色的点：

另一个问题是，无论我如何改变半径的值，数据点的大小都没有改变。我不知道我错在哪里。

所以，我的问题是：

如何使用连续的颜色？ 如何改变点的大小？

- Feng Chen

---

请在您的问题中粘贴应用程序的完整代码。 - Samuel

嗨，我把我用过的所有代码都放在这里了。刚才打错了一个字，已经修正了。谢谢。 - Feng Chen

Answer 1

尝试以下代码（不包括下面的数据框t）：

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"

检查起始颜色和结束颜色（应为“red”和“green”）：

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

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

是的，它确实按照预期起作用了。

- Samuel

---

太好了！它起作用了！你能告诉我如何改变数据点的大小吗？谢谢。 - Feng Chen

刚刚修好了！ :-) - Samuel