R(四): R开发实例-map分布图

#FastRWeb调用R脚本函数入口
run <- function(...){

#物理文件保存地址
path = c("/var/www/html")
file_name = paste0("C", format(Sys.time(), "%Y%m%d"))
full_path = paste0(path, "/", file_name, ".html")
if (file.exists(full_path)) {
out(file_name)
return
}

my.writeMap(full_path)
out(file_name)
}

my.writeMap <- function(file_name){

#获取清洗完成的数据
pdata<-read.csv("/var/www/html/data1.txt",sep="\t",header=FALSE,col.names = c("name","cityName","lon","lat"))
head(pdata)

#按城市统计医院数量（分布图用到的参数）
cityCount <- tapply(pdata$name,pdata$cityName,length)
citydata <- data.frame(place=row.names(cityCount),values=cityCount)

#geodata
stadata <- data.frame(lon=pdata$lon,lat=pdata$lat,cityname = pdata$name)

#分布图
library(REmap)
output <- remapC(citydata,
title = "Demo",
theme = get_theme("Bright"),
markPointData =stadata[,3],
markPointTheme = markPointControl(symbol = "pin",effect = TRUE,symbolSize = 3,color = "red"),
geoData = stadata)

my.plot(output,file_name)
}

#写物理文件，修改REmap 代码
my.plot <- function(object, file_name) {

## SVG rewrite JS path
if (object@maptype == 'SVG') {
content <- sub("http://echarts.baidu.com/build/dist/echarts.js","./js/echarts.js", object@content)
content <- sub("http://echarts.baidu.com/build/dist/echarts-all.js","./js/echarts-all.js",content)
}

if (object@maptype == 'SVGH') {
content <- sub("http://echarts.baidu.com/build/dist/echarts.js","./js/echarts.js", object@content)
content <- sub("http://echarts.baidu.com/build/dist/echarts-all.js","./js/echarts-all.js",content)
}

## Bmap rewrite JS path
if (object@maptype == "Bmap") {
content <- sub("http://echarts.baidu.com/build/dist/echarts.js","./js/echarts.js",object@content)
content <- sub("http://echarts.baidu.com/doc/asset/js/jquery.min.js","./js/jquery.min.js",content)
content <- sub("http://lchiffon.github.io/reveal_slidify/echarts/require", "./js",content)
}
writeLines(content,file_name,useBytes = T)
}