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

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
install.packages("leaflet")
# 加载包
# y' Y- V" a1 N: r0 Y- Q9 Olibrary(leaflet)
, r4 ?" t6 T# ~9 S/ s1 N4 }# 设置地图控件
m<-leaflet()
at<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
5 E8 ?6 l8 h% ]& v1 ^3 ^7 R# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)

/ w: f5 G8 Q; a" c2 i
7 P2 a; W. ]  N3 ~* v! |' w jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
' V+ ^' A% w- v+ G addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
8 e/ {, i) e: H3 t, O) o7 Q
. r* |8 L2 x) c$ i7 y
' y& y6 j. Y$ C  l! i# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
" `: {: j& o9 u5 h1 K4 H2 GaddPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))


2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
library(leafletCN)
# 使用这个命令可以直接绘制上海市地图
demomap("上海")


& Y. g8 \( ~) y# 管道流 单点标记上海交通大学
- S( X0 S  T) P# W. L4 Tleaflet() %>%
+     amap() %>%  
% W$ ^6 r2 V& z4 @3 A4 I+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
: K% d, L* y, T. V" |

/ U# m7 }. d. s7 w8 ^) ^; x. _3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
, }- ~( R; `  O6 h3 n# d1 r7 \0 C+ _install.packages("REmap")
) Y) m) u# r% {0 ^6 {$ s* ~; llibrary(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
7 r! ~) q( G6 \& k, w$ z; Mnames(destin)<-c("names","values")
6 _: b0 T  q8 u; ]8 ZmarkLine_data <- data.frame(origin=rep("广东",10),
0 F* V2 h$ k/ I3 c" Q0 Y4 N* L( Y& l+                             destination=destin[1:10,1],
  T+ ^* B$ c5 l: Q) {9 {+                             color=rep("#fff",10)
; J2 g" |# I( T9 C3 E3 D+ )
markPoint_data <- markLine_data[markLine_data!=""]
7 V) ]5 a1 m% jmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
# 要自己注册一个AK api key 不然无法get到经纬度
- U6 H7 ~9 a% voptions(remap.ak = "xxx")
remapC(destin,
' {8 D( u  l3 ?- \! K, ]+        title="2016年2月6日 广州人口迁出图",
# G1 v' y% h7 V# {* e; a+        subtitle="前10目标省份",
+        theme=get_theme(                                         
+            #设置相应的背景色调
+            theme="Dark",
& h. c% F- |6 B: y+            lineColor = "#FFFFFF",  
' w# K8 D" y  B, K, E* S/ S9 z+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
+            regionColor = "#000000",  #区域颜色
$ b$ `6 O9 g+ M' K* X/ K- a+            pointShow = F,
+            pointColor = "gold"
+        ),
+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
+        markLineData=markLine_data,   
0 f- a0 R3 W& A0 C# S/ w- O+        markLineTheme=markLineControl(
+            color="white",
3 h/ p! e$ C0 x+            lineWidth=2,
8 T! `5 ^9 Q) z2 J! i1 m1 g+            lineType="dashed"  
+        ),
+        markPointData=markPoint_data1,
& d! y$ p- c$ ]* d  W4 L+        markPointTheme=markPointControl(
+            symbolSize=13,  
+            effect=T,           
( t3 k% s' O: P5 w; _' m- a+            effectType="scale",   
4 L0 u; S# r- s+ T& N' T9 M+            color="white"
+        )
+ )
! f/ G1 A% ^. ~; W. `3 [+ ]: {


6 {: m4 l) {) R9 }

试试吧

好，谢谢楼主的热情分享的资料
3 ?4 s4 }/ |2 d8 K