r - 中国未显示在 R 的等值线图上

Question

我正在尝试在 r 中制作一个简单的叶绿素图。虽然我可以创建 map ，但中国根本没有出现，在 map 上留下了一个大洞。我已经检查过中国在数据中，所以我不确定发生了什么。这是我的代码:

library(tidyverse)
library(maps)

## load data ----
data(country.map, package = "choroplethrMaps")
co2 <- read.csv("https://raw.githubusercontent.com/acircleda/tmp/master/food emissions.csv") %>% 
  mutate(region = tolower(country))

data<-co2 %>% 
  left_join(country.map, by="region") %>%
  group_by(region) %>% mutate(
    c02sum = sum(co2_emmission)
  )

ggplot(data, aes(long, lat, group = group))+
  geom_polygon(aes(fill = c02sum), color = "white", na="grey80")+
  scale_fill_viridis_c(option = "C")

##no china

china<-data %>% filter(region == "china") ##china is in the data

Answer 1

问题是您的数据连接。您真正想要的是 right_join。 NA 可以在 scale_fill 函数中用 na.value = 着色。

library(tidyverse)
library(maps)

## load data ----
data(country.map, package = "choroplethrMaps")
co2 <- read_csv('your.csv')%>% 
  mutate(region = tolower(country))
                               
data <- co2 %>% 
  right_join(country.map, by="region") %>% #critical
  group_by(region) 

ggplot(data, aes(long, lat, group = group))+
  geom_polygon(aes(fill = co2_emmission), na.rm ="grey80") +
  scale_fill_continuous(na.value = 'grey')