R中一组亚太地区国家/地区的绘图值

Question

我希望为即将到来的演示文稿绘制一些亚太地区国家的数据。我遵循了这个tutorial，但是我的输出是不同的。下面是我想要绘制的一些示例数据-

country_list <- 
    c("Australia", "India", "New Zealand", "Singapore", "Malasia", "China", "Indonesia",
      "Hong Kong", "Hong Kong", "Japan", "Philipines", "Thailand", "Vietnam", "Korea", "Taiwan", 
      "Cambodia", "Mongolia, Myanmar", "Laos")

values <- 
    c(33260, 24586, 5468, 2698, 2547, 6248, 3654, 6589, 2545, 2548, 835, 536, 565, 665,
      236, 548, 158, 152)

data <- cbind(country_list, values)

然后这是我如何绘制地图的-

library(tidyverse)
library(mapdata)

countries <- 
    map_data("world",
             region = country_list)

data2 <- merge(countries, data, by.x = "region", by.y = "country_list") %>% 
    mutate(values = values %>% as.numeric)

ggplot(data2, aes(long, lat, group = group, fill = values))+
    geom_polygon()

这是我的输出-

​

显然不适合做演讲。我如何改进这张地图，也许能给它增加一些交互性。

Answer 1

你的代码是不可重现的，我可以在0经度之后过滤，以显示良好的效果

ggplot(countries %>% filter(long>0), aes(long, lat, group = group))+
geom_polygon() 

​

​