Plot map with ggplot

plot_ggmap(
  x,
  col_name = "confirmedCount",
  province_language = "chinese",
  show_capitials = TRUE,
  add_title = NA
)

Arguments

x	data frame with province name and value
col_name	column whose value is to display
province_language	chinese, english or NA (not shown)
show_capitials	logical.
add_title	title

Value

a ggplot map

Examples

require(ncovr)
library(ggplot2)
#> Warning: package 'ggplot2' was built under R version 3.6.3
library(dplyr)
#> Warning: package 'dplyr' was built under R version 3.6.3
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
library(scales)
Sys.setlocale("LC_CTYPE", "Chinese")
#> [1] "Chinese (Simplified)_China.936"
ncov <- get_ncov()
#> Warning: InternetOpenUrl failed: 'The server name or address could not be resolved'
#> Error in readRDS(gzcon(url("https://github.com/pzhaonet/ncov/raw/master/static/data-download/ncov.RDS"))) : 
#>   cannot open the connection
#> No encoding supplied: defaulting to UTF-8.
#> Parsed with column specification:
#> cols(
#>   City = col_character(),
#>   City_Admaster = col_character(),
#>   City_EN = col_character(),
#>   Province = col_character(),
#>   Province_EN = col_character(),
#>   Region = col_character(),
#>   Tier = col_character()
#> )
#> No encoding supplied: defaulting to UTF-8.
#> Error: lexical error: invalid char in json text.
#>                                        <html>  <head><title>503 Servic
#>                      (right here) ------^
ncov$area$date <- as.Date(ncovr:::conv_time(ncov$area$updateTime))
#> Error in ncovr:::conv_time(ncov$area$updateTime): object 'ncov' not found

choose_date <- "2020-02-10"
x <- ncov$area[ncov$area$date <= as.Date(choose_date), ]
#> Error in eval(expr, envir, enclos): object 'ncov' not found
x <- x[!duplicated(x$provinceName), ]
#> Error in eval(expr, envir, enclos): object 'x' not found
plot_ggmap(x)
#> Parsed with column specification:
#> cols(
#>   province = col_character(),
#>   city = col_character(),
#>   long = col_double(),
#>   lat = col_double()
#> )
#> Error in plot_ggmap(x): object 'x' not found
plot_ggmap(x, province_language = "english", show_capitials = TRUE) +
    annotate(geom = "text", 105, y = 35, label = "ncov2020.org", color = "white",
        fontface = "bold", size = 10, alpha = 0.5)
#> Parsed with column specification:
#> cols(
#>   province = col_character(),
#>   city = col_character(),
#>   long = col_double(),
#>   lat = col_double()
#> )
#> Error in plot_ggmap(x, province_language = "english", show_capitials = TRUE): object 'x' not found

library(animation)
#> Warning: package 'animation' was built under R version 3.6.3
ncov_dates <- as.character(rev(unique(ncov$area$date)))
#> Error in unique(ncov$area$date): object 'ncov' not found
ani.options(interval = 0.5, ani.width = 1000, ani.height = 600)
saveGIF({
    for (i in rev(ncov_dates)) {
        x <- ncov$area[ncov$area$date <= as.Date(i), ]
        x <- x[!duplicated(x$provinceName), ]
        print(plot_ggmap(x, ))
    }
}, movie.name = "map_animation.gif")
#> Error in rev(ncov_dates): object 'ncov_dates' not found