Я хочу представить некоторые данные по странам Азиатско-Тихоокеанского региона для предстоящей презентации. Я следовал этому руководству, однако мой вывод отличается. Ниже приведены некоторые примеры данных, которые я хотел бы построить:
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()
И вот мой вывод — 
Явно не подходит для презентации. Как я могу улучшить эту карту, возможно, добавить ей интерактивности.
