R Version 3.4.2。
很简单的几个步骤,就可以调用REmap自带的例子。
1、安装并加载REmap:
install.packages("devtools")#如果安装了就不需要这步
library(devtools)
install_github('lchiffon/REmap') #如果安装了就不需要这步
library(REmap)
2、
demo(REmap::remapDemo) #用这个命令,直接运行自带的例子:(例如:remap(demoC,title = "REmap Demo Data",subtitle = "theme:Bright", theme = get_theme("Bright")))
输出的第一个图:
输出的第二个图:
输出的第三个图:
期间,控制台输出内容:
> demo(REmap::remapDemo)
demo(remapDemo)
---- ~~~~~~~~~
Type <Return> to start :
> ## ---- REmap demo ----
> ## ---- remapDemo ----
> ## ---- pauseFunction ----
> pause <- function(){
+ invisible(readline("\nPress <return> to continue: "))
+ }
> ## ---- Create Data ----
> data(demoC)
> demoC[,1]
[1] "北京" "北京" "北京" "北京" "北京" "北京" "北京" "北京" "北京" "北京"
> demoC[,2]
[1] "上海" "广州" "大连" "南宁" "南昌" "拉萨" "长春" "包头" "重庆" "常州"
> ## ---- pause ----
> pause()
Press <return> to continue:
> ## ---- Dark Theme ----
> set.seed(125)
> out = remap(demoC,title = "REmap Demo Data",subtitle = "theme:Dark")
> plot(out)
Save img as: C:\Users\User\AppData\Local\Temp\Rtmp8qeind/ID_20171004212819_253560.html
> summary(out)
Length Class Mode
1 remap S4
> ## ---- pause ----
> pause()
Press <return> to continue:
> ## ---- Bright Theme ----
>
> set.seed(125)
> out = remap(demoC,title = "REmap Demo Data",subtitle = "theme:Bright",
+ theme = get_theme("Bright"))
> plot(out)
Save img as: C:\Users\User\AppData\Local\Temp\Rtmp8qeind/ID_20171004212851_256790.html
> ## ---- pause ----
> pause()
Press <return> to continue:
> ## ---- Sky Theme ----
> set.seed(125)
> out = remap(demoC,title = "REmap Demo Data",subtitle = "theme:Sky",
+ theme = get_theme("Sky"))
> plot(out)
Save img as: C:\Users\User\AppData\Local\Temp\Rtmp8qeind/ID_20171004212919_259556.htmlWarning messages:
1: In get_city_coord(out_list[i], ...) : Please use your own baidu API!
Set it using: options(remap.ak = "XXXXX")
http://lbsyun.baidu.com
2: In get_city_coord(out_list[i], ...) : Please use your own baidu API!
Set it using: options(remap.ak = "XXXXX")
http://lbsyun.baidu.com
3: In get_city_coord(out_list[i], ...) : Please use your own baidu API!
Set it using: options(remap.ak = "XXXXX")
http://lbsyun.baidu.com
>
3、调用演示的第二种方式,从帮助页面调用演示例子。
>help(package='REmap')
显示出帮助页面:
*** 其他细节问题:
1、
> help(package='REmap')
starting httpd help server ... 做完了。
运行help(package='REmap') 这个命令后,可以看到启动了一个httpd服务,通过这个服务来输出页面。
2、看一下demoC的内容:
> demoC
origin destination tooltip linewidth
1 北京 上海 d 4
2 北京 广州 h 2
3 北京 大连 j 3
4 北京 南宁 o 4
5 北京 南昌 u 1
6 北京 拉萨 q 5
7 北京 长春 f 2
8 北京 包头 y 4
9 北京 重庆 m 1
10 北京 常州 b 2
There were 36 warnings (use warnings() to see them)
>