关键词：

install.packages('dplyr')
install.packages('magrittr')
install.packages('hchinamap')

library(hchinamap)
library(magrittr)
library(dplyr)

# 加载数据
dir <- tempdir()
download.file('https://mdniceczx.oss-cn-beijing.aliyuncs.com/chinadf.rda', file.path(dir, 'chinadf.rda'))
load(file.path(dir, 'chinadf.rda'), verbose = TRUE)
chinadf
head(chinadf)
# 筛选数据
china <- chinadf %>% dplyr::filter(region == "China")
# 绘制地图
hchinamap(
          name = china$name, 
          value = china$value,
          width = "100%", 
          height = "500px",
          title = "China地图", 
          region = "China",
	      minColor = "#FFEFD5",
          maxColor = "#FF3030")

# 取数据
Chongqing <- chinadf %>% dplyr::filter(region == "Chongqing")
hchinamap(
          name = Chongqing$name, 
          value = Chongqing$value,
          width = "100%", 
          height = "500px",
          title = "Map of Chongqing", 
          region = "Chongqing",
	    minColor = "#FFF5EE",
          maxColor = "#A8A8A8")

dir <- system.file("examples", "hchinamap", package = "hchinamap")
setwd(dir)
install.packages('colourpicker')
install.packages('shiny')
shiny::shinyAppDir(".")

install.packages('highcharter')
install.packages('jsonlite')
install.packages('tidyverse')

library(highcharter)
library(jsonlite)
library(tidyverse)
library(magrittr)

# 加载数据
readLines("https://data.jianshukeji.com/jsonp?filename=geochina/chongqing.json", warn = F) %>% 
  str_match(string = ., pattern = "\\\\((.*)\\\\)") -> text
dir <- tempdir()
download.file('https://mdniceczx.oss-cn-beijing.aliyuncs.com/chinadf.rda', file.path(dir, 'chinadf.rda'))
load(file.path(dir, 'chinadf.rda'), verbose = TRUE)
chinadf
# 筛选数据
chongqing <- chinadf %>% dplyr::filter(region == "Chongqing")
chongqing

# A tibble: 38 x 3
   region    name     value
   <chr>     <chr>    <dbl>
 1 Chongqing 万州区      49
 2 Chongqing 涪陵区      61
 3 Chongqing 渝中区      89
 4 Chongqing 大渡口区    59
 5 Chongqing 江北区      58
 6 Chongqing 沙坪坝区    86
 7 Chongqing 九龙坡区    67
 8 Chongqing 南岸区      22
 9 Chongqing 北碚区      80
10 Chongqing 綦江区       8
# ... with 28 more rows

cq <- fromJSON(text[1, 2], simplifyVector = FALSE)
highchart(type = "map") %>% 
hc_add_series_map(map = cq ,
                    df = chongqing, 
                    joinBy = "name", 
                    value = "value",
                    borderWidth = 0.5,
                    borderColor = "gray",
                    states = list(hover = list(color = '#bada55')),
                    dataLabels = list(enabled = FALSE),
                    marginBottom = "200px")

绘图杂记21python绘制折扇图嵌套环图山峦图(代码片段)

学习、修改、参考自：https://mp.weixin.qq.com/s/lP_zc3moRpoccBYAWIFR1Qimportpandasaspdimportnumpyasnpfrompalettable.colorbrewer.colorbrewerimportget_mapimportmatplotlib.pyplotasplt#正常显示中文标签plt.rcParams[&# 查看详情

绘图杂记21python绘制折扇图嵌套环图山峦图(代码片段)

学习、修改、参考自：https://mp.weixin.qq.com/s/lP_zc3moRpoccBYAWIFR1Qimportpandasaspdimportnumpyasnpfrompalettable.colorbrewer.colorbrewerimportget_mapimportmatplotlib.pyplotasplt#正常显示中文标签plt.rcParams['font.sans-serif']=['SimHei']#正常显示负号... 查看详情

r语言绘图：在地图上绘制热力图

使用ggplot2在地图上绘制热力图######*****绘制热力图代码*****#######interval<-seq(0,150000,25000)[-2]#设置价格区间newpri<-cut(data1$price,interval,labels=F)#设置价格为因子类型newpri<-factor(newpri,levels=1:5,labels=c("250 查看详情

每日一练：python代码绘制航海王草帽路飞，打饭阿姨也能跟着学会的turtle海龟绘图系列(代码片段)

Turtle海龟绘图系列-Python代码绘制航海王草帽路飞第一章：程序运行①效果展示-轮廓描绘②效果展示-颜色填充第二章：实现过程①绘图数据下载②海龟绘图配置项③轮廓绘制④颜色填充：衣服、裤子⑤颜色填充：... 查看详情

matlab绘制中国地图超全教程(代码片段)

...xff0c;但需要保证文件夹里还有shx文件及dbf文件各省边界线绘图provinces=shaperead('bou2_4l.shp','UseGeoCoords',true);%绘图worldmap('China');geoshow(provinc 查看详情

r语言绘图添加箭头标记绘制连接两点的线段(代码片段)

文章目录一、基础命令二、参数及其含义绘图示例一、基础命令绘制箭头：arrows(x0,y0,x1=x0,y1=y0,length=0.25,angle=30,code=2,col=par("fg"),lty=par("lty"),lwd=par("lwd"),...)绘制线 查看详情

利用python快速绘制海报级别地图(代码片段)

...1.简介基于Python中诸如matplotlib等功能丰富、自由度极高的绘图库，我们可以完成各种极富艺术感的可视化作品，关于这一点我在系列文章在模仿中精进数据可视化中已经带大家学 查看详情

python代码绘制航海王四皇大妈(bigmom)-门卫大爷也能跟着学会的turtle海龟绘图系列(代码片段)

Turtle海龟绘图系列-Python代码绘制航海王四皇大妈BIGMOM第一章：程序运行①效果展示1②效果展示2第二章：实现过程①绘图数据下载②海龟绘图配置项③本地数据读取④完整源码[系列文章篇]Python地图篇-使用pyecharts绘制世... 查看详情

twoway系列命令绘制地图(代码片段)

...。其实，最常见的twoway系列命令就可以完成我们的大多数绘图需求。对于spmap命令的使用，在线资源已经有很多了，这主要介绍使用最常用的twoway系列命令如何进行地图可视化。spmap命令的使用只做简单介绍。(后台回复「20200412... 查看详情

如何更改谷歌地图绘图管理器工具栏工具提示？(代码片段)

我有谷歌地图绘图经理的情况。我想更改绘图管理器工具栏默认工具提示。当我们将鼠标移到绘图管理器工具栏上时（将鼠标移动到标记，圆圈上），我们会看到工具提示“添加标记”，“绘制圆形”。我想将工具栏工具提示更... 查看详情

百度地图行政区绘制

参考技术A前段时间有一个很好玩的需求；绘制上海行政区的边界线而且还要在地图上打上热力点，看了下百度地图可以实现就顺便研究了一下，简单的写了demo记录一下。1.首先获取每个行政区域的边界坐标值，可能会有很多。... 查看详情

matlab绘图函数总结(代码片段)

目录输入坐标的绘图函数二维线图函数三维线图函数曲面图函数输入函数方程(隐函数)的绘图函数二维线图函数fplot()绘制y=f(x)fimplicit()绘制二维隐函数三维线图函数fplot3()绘制参数曲线方程三维曲面图函数fsurf()绘制二元方程曲... 查看详情

r语言基础绘图示例(代码片段)

1、运行par(mfrow=c(3,3),mgp=c(2.3,0.67,0))##设定绘图数量，绘图区域的边距。##以下代码运行九次。因为上面mfrow=c(3,3),设置了绘图区域一共绘制3行3列共九张图。x1<-round(runif(20,0,100))##生成20各0~100的均匀分布的随机数。y1<-round(runif(20... 查看详情

pyecharts绘制地图可视化(代码片段)

 我们这里使用pyecharts模块进行绘图。pyecharts项目包含了一系列的地理地图数据，这些数据或者已经内置，或者需要额外安装和加载，我们需要下载下面六个包。选择自己需要的安装pipinstallecharts-countries-pypkgpipinstallecharts-china-... 查看详情

python实用工具速来！！一篇文章十分钟教你如何使用python第三方库basemap进行地图绘制(代码片段)

...绘制1basemap的使用1.1basemap安装1.2basemap使用1.3缩放区域与绘图2basemap综合示例2.1美国人口分布2.2全球地震可视化3pyecharts地图绘制3.1地图3.2地图坐标系basemap地图绘制地图绘制也是数据可视化的一部分，常用的地图绘制库为basemap... 查看详情

《c语言杂记》内存泄漏跟踪(代码片段)

废话不是很多说，内存泄漏工具使用Linux的mtrace，笔者使用的是Ubuntu14.04自带此工具。我们先写一段内存泄漏的代码。#include<stdlib.h>#include<stdio.h>intmain()setenv("MALLOC_TRACE","taoge.log","1"); 查看详情

利用python快速绘制海报级别地图(代码片段)

...1.简介基于Python中诸如matplotlib等功能丰富、自由度极高的绘图库，我们可以完成各种极富艺术感的可视化作品，关于这一点我在系列文章在模仿中精进数据可视化中已经带大家学习过很多案例了。而今天我要给大家介绍... 查看详情

opencv学习笔记：基本的绘图函数(代码片段)

opencv学习笔记（四）：基本的绘图函数文章目录opencv学习笔记（四）：基本的绘图函数绘制直线cv2.line（）绘制矩形cv2.rectangle()绘制普通矩形绘制渐变矩形绘制圆形cv.circle()绘制椭圆cv2.ellipse()绘制普... 查看详情