Значения графика для набора стран APAC в R

Я хочу представить некоторые данные по странам Азиатско-Тихоокеанского региона для предстоящей презентации. Я следовал этому руководству, однако мой вывод отличается. Ниже приведены некоторые примеры данных, которые я хотел бы построить:

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()

И вот мой вывод -

Явно не подходит для презентации. Как я могу улучшить эту карту, возможно, добавить ей интерактивности.