Visualisasi peta data kematian dari virus corona

Visualisasi peta dunia dengan pustaka ggplot dengan menggunakan data dari pustaka ggmap. Memanggil Data world.cities

library(plyr)
library(tidyr)

## Warning: package 'tidyr' was built under R version 3.5.3

library(ggmap)

## Loading required package: ggplot2

## Warning: package 'ggplot2' was built under R version 3.5.3

## Google's Terms of Service: https://cloud.google.com/maps-platform/terms/.

## Please cite ggmap if you use it! See citation("ggmap") for details.

library(ggplot2)
data <- read.csv("D:/dataset/dataset/2019 coronavirus/2019_nCoV_20200121_20200206.csv", header = T, sep=",")
data <- data %>% replace_na(list(Confirmed = 0))
#Filter data
data.new <- ddply(data,.(Country.Region),summarise, Death=sum(Confirmed))
data.new <- data.frame(data.new)
world_map_data<-map_data("world")
world2_map_data<-map_data("world2")

Visualisasi dengan ggplot()

ggplot() +
  geom_polygon(data=world2_map_data, aes(x=long,y=lat,group=group), color = "grey", size = 0.1, fill="gainsboro") +
  geom_polygon(data = subset(world_map_data, world_map_data$region == data.new$Country.Region), aes(x=long,y=lat, group = group), 
               fill= "royalblue", size = 0.1) 

## Warning in `==.default`(world_map_data$region, data.new$Country.Region):
## longer object length is not a multiple of shorter object length

## Warning in is.na(e1) | is.na(e2): longer object length is not a multiple of
## shorter object length