R学习:通过REmap向Echarts中的地图写入数据(运行自带例子)


    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)




  • 0
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 8
    评论
评论 8
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值