Update 图11-10-2 三维柱形地图.R

Author: EasyChart

第11章 地理空间型图表/图11-10-2 三维柱形地图.R

@@ -1,9 +1,9 @@
 
-#EasyCharts团队出品，
-#如需使用与深入学习，请联系微信：EasyCharts
+#EasyShu团队出品，更多文章请关注微信公众号【EasyShu】
+#如有问题修正与深入学习，可联系微信：EasyCharts
 
 library(plot3D)
-library(rgdal)   #提供readOGR()函数
+library(rgdal)   #提供readOGR()函数
 library(ggplot2)
 library(dplyr)
 library(RColorBrewer)
@@ -64,7 +64,7 @@ rownames(z)<-z$lat
 
 
 
-#(a) Spectral 多色渐变系
+#(a) Spectral 多色渐变系
 cols<-colorRampPalette(colormap)(20) 
 hist3D(x=long_mar,y=lat_mar,z=as.matrix(z[,2:ncol(z)]),
        col = cols, border = "gray",space=0,alpha = 1,lwd=0.1,
@@ -73,7 +73,7 @@ hist3D(x=long_mar,y=lat_mar,z=as.matrix(z[,2:ncol(z)]),
        theta = 35, phi = 20, d=3,
        colkey = list(length = 0.5, width = 1))
 
-#(b) 单色渐变系
+#(b) 单色渐变系
 cols<-colorRampPalette(c("#F7FBFF", "red"))(20)    
 
 hist3D(x=long_mar,y=lat_mar,z=as.matrix(z[,2:ncol(z)]),