bmw_mhev

library(hchinamap)
library(dplyr)

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

china <- read.csv("province_tgi.csv")
head(china)

##     name     value
## 1   上海 221.80774
## 2   云南  70.11937
## 3 内蒙古  47.02833
## 4   北京 165.08510
## 5   台湾   0.00000
## 6   吉林  82.65704

hchinamap(name = china$name, value = china$value, region = "China",  itermName = "TGI", title = "Province_TGI")