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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
) U7 ^/ p! u5 x* Dinstall.packages("leaflet")
! Y5 _! I( q2 @9 T. N3 @# 加载包
% d1 T2 L1 ]- f8 Clibrary(leaflet)
# 设置地图控件
: n/ Z' B/ C5 H# i% N0 o, P/ R# ?6 Cm<-leaflet()
5 d+ Z6 Z% K& f+ s6 X  t5 I/ D) V: oat<-addTiles(m)
. {! O" _( K! e#  在弹出窗口中写一个html格式网页 根据要求来写
" s* i% |7 T! |3 g& n6 |5 h8 Fshifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
& z- E, S, ^* @3 \
/ g8 i+ D# a4 U9 J2 A
" e6 _& q6 m+ w! T& F  i. S5 F$ ] jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
% D7 `  Y' S$ d* l2 r, q addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
# r; B2 P) |3 N& \6 W1 U1 ~
; i  P  ^  _4 I+ a
# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
0 y* k# [2 S; |: O/ S0 u: E

2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
9 i2 p' P3 i$ n0 Y* {! |' t3 Linstall.packages("leafletCN")
) J5 v- _9 G0 M% v; x) a0 x$ s, I) l' Hlibrary(leafletCN)
' o2 L- b/ I) B7 c# Z# 使用这个命令可以直接绘制上海市地图
demomap("上海")
1 o/ O; E# N* M

# 管道流 单点标记上海交通大学
leaflet() %>%
* o9 c7 y/ I- M+ ~+     amap() %>%  
; ]- ~# ^" E: G6 x+ h+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")

7 a# X& o4 g  \: Q, e
- W  `5 D( _* ?5 S3 F" n/ C3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
6 D5 |0 u& v" F6 B9 P& Q5 Sinstall.packages("REmap")
9 y6 Y7 ]. w# R/ {% A3 blibrary(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
6 ~5 R8 |; @6 Q& zhead(destin)
4 B4 _7 s9 ?8 p0 h# Vnames(destin)<-c("names","values")
4 P7 \4 ^3 k6 N: W1 V; ~markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
; {; x8 U2 t* z  o+ )
  H; ^" h1 x% |; g9 `markPoint_data <- markLine_data[markLine_data!=""]
markPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
9 ?1 n. @5 M, z- voptions(remap.ak = "xxx")
remapC(destin,
. z+ r6 y4 z& m- W8 L- y1 ~" Y+        title="2016年2月6日 广州人口迁出图",
* z4 Q. T6 l4 e- T0 j+        subtitle="前10目标省份",
+        theme=get_theme(                                         
+            #设置相应的背景色调
+            theme="Dark",
+            lineColor = "#FFFFFF",  
+            titleColor = "#fff",
3 z! m5 I9 ^$ m5 {& J! o$ X+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
+            pointShow = F,
+            pointColor = "gold"
+ E) |2 I6 P" X) q6 w8 o: F& _+        ),
9 @( y  z- H! ]$ p+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
. \( g3 h  p* W7 O( ~1 @+        markLineTheme=markLineControl(
+            color="white",
+            lineWidth=2,
, @5 O5 a1 d6 Y0 c3 ?; g- b+            lineType="dashed"  
7 E  B# I4 S9 ]% Y  a+        ),
2 a4 O5 f  t8 ]# B0 r; u+        markPointData=markPoint_data1,
+        markPointTheme=markPointControl(
6 I6 H/ q1 P% @7 \0 F+            symbolSize=13,  
+            effect=T,           
+            effectType="scale",   
+            color="white"
+        )
+ )
! u: c/ K, q2 l
( u. o% C9 j: ?) ?3 a  _

试试吧

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