使用ggplot2与eurostat绘图时挪威数值未显示的原因排查

出现这个问题的核心原因是挪威对应的行在geom_text的映射中存在缺失值（NA），导致ggplot2自动过滤了该行，常见的触发场景有以下几种：

1. 地理编码不匹配 #

Eurostat的数值数据和地图数据（比如get_eurostat_geospatial获取的）使用的地理编码可能不一致：

• 比如数值数据里挪威的编码是NO，但地图数据里是NO0（或其他细分编码）
• 合并数据时（比如用left_join），编码不匹配会导致挪威的数值列被填充为NA，geom_text遇到NA就会跳过绘制

2. 区域中心坐标缺失 #

geom_text需要依赖区域的中心坐标（通常是x和y列）来定位文本，如果挪威对应的中心坐标是NA，即使数值存在，也会因为坐标缺失被过滤。这种情况常见于地图数据本身不完整，或者合并时丢失了坐标列。

3. 数据合并逻辑错误 #

如果使用了inner_join而不是left_join来合并地图数据和数值数据，当某一方的数据集里挪威的条目存在匹配问题时，会直接丢失该行；或者合并时指定的关联列错误，导致数值无法对应到地图区域。

排查与解决步骤 #

1. 检查合并后的数据：
   运行类似代码查看挪威的行：

   merged_data %>% filter(name == "Norway") %>% select(geo, value, x, y)
   

   确认value、x、y是否有NA值，定位缺失项。

2. 统一地理编码：
   核对数值数据和地图数据的地理编码格式，将两者统一。比如如果地图数据用NO0，数值数据用NO，可以修改数值数据的编码：

   value_data <- value_data %>% mutate(geo = case_when(geo == "NO" ~ "NO0", TRUE ~ geo))
   

   再重新合并数据。

3. 确保合并逻辑正确：
   使用left_join以地图数据为基础，合并数值数据，保证所有地图区域都被保留：

   merged_data <- left_join(map_data, value_data, by = "geo")
   

4. 验证文本映射：
   检查geom_text的映射参数，确保label参数绑定的是正确的数值列（比如aes(label = value)），没有误绑定其他含NA的列。

内容的提问来源于stack exchange，提问作者Stefan Verweij