R语言 作业 leaflet leafletCN REmap 的使用 迁徙图

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
# 加载包
library(leaflet)
# 设置地图控件
& U1 p5 }, {8 b* T& dm<-leaflet()
! C2 i1 D7 _% ^! I' K! H, u( u. oat<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
; w8 A7 y% P' r- {$ }: _4 r# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
; l( H7 Z1 T8 Q  y

. V; v8 Y8 N# }) r( l1 A jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
2 D# d) G3 D* G, v: h # 添加marker
# k  E- V; w  } addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)


# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
. u8 [4 X7 r* N/ \% r/ N

* _8 _) ?) N. Y& E1 O7 R2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
library(leafletCN)
! F" K. h' T- u# 使用这个命令可以直接绘制上海市地图
demomap("上海")


( c; V7 O$ ~/ r/ j4 h# c# 管道流 单点标记上海交通大学
! _6 {7 @1 H; `* {1 c4 Rleaflet() %>%
" M8 I. o' v! p4 l3 a( b: A+     amap() %>%  
8 ?5 x5 Y" g1 _* H5 ], x( ^+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
0 e5 s+ O: F$ C" {7 Z) X
0 R+ {7 C) G" e+ X" b* j
$ a9 u7 I: R, Z3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
% Z' H, G( G6 l! Z# \" v: T9 jinstall.packages("REmap")
0 G# h! Y" S, V% S& Vlibrary(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
names(destin)<-c("names","values")
. f7 `/ s. `) A, ~3 x' ^7 pmarkLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
5 d( O8 \. \+ s+                             color=rep("#fff",10)
+ )
3 l$ W# k9 j$ ^1 t! o+ b& p5 c  ~5 VmarkPoint_data <- markLine_data[markLine_data!=""]
3 d& ?$ J% u' L3 R! m, V/ u4 hmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
; q( k5 Z% X1 q- J9 U# 要自己注册一个AK api key 不然无法get到经纬度
/ S$ o1 L( Y7 P4 ooptions(remap.ak = "xxx")
8 @0 |; P: V6 O, P" h. I% H( N) qremapC(destin,
+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
+        theme=get_theme(                                         
) W8 o4 R/ B; H+            #设置相应的背景色调
+            theme="Dark",
6 r/ S+ B5 |& T+ V1 }+            lineColor = "#FFFFFF",  
4 h/ H" p+ |0 ]+ V% K" R+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
  \4 \* s% v& f! U+            pointColor = "gold"
  W! ~4 h& b6 }! ~- z+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
+        markLineTheme=markLineControl(
+            color="white",
+            lineWidth=2,
+            lineType="dashed"  
+        ),
/ e, q: ^5 W. V2 y+        markPointData=markPoint_data1,
8 E* g4 J3 \% m; T, u* K+        markPointTheme=markPointControl(
+            symbolSize=13,  
+            effect=T,           
  f& m& ~+ V" Y% X1 B+            effectType="scale",   
+            color="white"
+        )
% h( d. N  ~% B" `5 W6 G+ )

试试吧

好，谢谢楼主的热情分享的资料