如何用ggplot创建欧洲的等值线图

Question

我想使用ggplot创建一个欧洲的等值线图。

为此，我从欧盟统计局检索数据：

• EU：包含NUTS 3区域位置的多边形文件
• NM_info：包含每个NUTS 3区域的特定数据的csv文件

下面的代码确实产生了欧洲的情节。

  ggplot(EU_join) +
  theme_minimal()+  # no backgroundcolor
  geom_polygon( aes(x = long, y = lat, group = group),
                color = "white",  
                fill = "#9C9797")

下一步，我扩展了上面的代码，根据EU_join $ Value的值为区域着色。我试着在下面运行代码。

EU_join = merge(EU, NM_info, by.x = "NUTS_ID", by.y = "GEO")

ggplot(EU_join)+
  theme_minimal()+
  geom_polygon( aes(x = long, y = lat, group = EU_join$NUTS_ID, fill= EU_join$Value),
                color = "grey", alpha = 1/5) 

组和填充参数的长度都是1480.但是，我一直收到错误

错误：美学必须是长度1或与数据相同（476378）：x，y，group，fill

此外，我想使用蓝色调色板作为EU_join $ Value的负值，使用红色调色板作为正值。我该如何调整上面代码的颜色来实现呢？