关于本站
人大经济论坛-经管之家:分享大学、考研、论文、会计、留学、数据、经济学、金融学、管理学、统计学、博弈论、统计年鉴、行业分析包括等相关资源。
经管之家是国内活跃的在线教育咨询平台!
经管之家新媒体交易平台
提供"微信号、微博、抖音、快手、头条、小红书、百家号、企鹅号、UC号、一点资讯"等虚拟账号交易,真正实现买卖双方的共赢。【请点击这里访问】
期刊
- 期刊库 | 马上cssci就要更新 ...
- 期刊库 | 【独家发布】《财 ...
- 期刊库 | 【独家发布】“我 ...
- 期刊库 | 【独家发布】“我 ...
- 期刊库 | 【独家发布】国家 ...
- 期刊库 | 请问Management S ...
- 期刊库 | 英文期刊库
- 核心期刊 | 歧路彷徨:核心期 ...
TOP热门关键词
用Rggplot绘制青岛的地图,得到地图是不完整的,是BOUNT_poly.shp文件中该块的数据缺失,还是我在整理数据时候自己搞丢了一些数据?#载入包library(maps)library(ggplot2)library(maptools)library(directlabels)lib ...
坛友互助群![]() |
扫码加入各岗位、行业、专业交流群![]() |
- # 载入包
- library(maps)
- library(ggplot2)
- library(maptools)
- library(directlabels)
- library(mapproj)
- library(plyr)
- library(reshape2)
- library(ggsubplot)
- # 载入地图数据
- mymap <-readShapePoly("/BOUNT_poly.shp")#读取地图
- ########################
- # 青岛市区地图 #
- ########################
- qingdao <- mymap[grepl("^3702",mymap$ADCODE99),]#使用正则表达式查找一3702开头的ADCODE99
- mymapd <- fortify(qingdao)
- adminnames <- data.frame(id = unique(mymapd$id), names = as.character(qingdao$NAME99))
- mymapd <- join(mymapd, adminnames)
- mymapd$id <- mymapd$names
- mymapd$group <- mymapd$names
- mymapd <- mymapd[,-length(mymapd)]#mysh = transform(mysh, id = iconv(id, from = 'GBK'), group = iconv(group, from = 'GBK'))
- names(mymapd)[1:2] = c("x","y")#将坐标改为绘图环境所需的表头
- mydata <- data.frame(id = unique(mymapd$id))
- mydata$sample <- runif(length(mydata$id))
- temp <- coordinates(qingdao)
- temp <- as.data.frame(temp)
- temp$names <-qingdao$NAME99
- qdmap <- ggplot(mydata) +
- geom_map(aes(map_id = id, fill = sample), color = "white", map = mymapd) +
- scale_fill_gradient(high = rgb(red = 0, green = 204, blue = 214, max = 255),low = rgb(red = 0, green = 130, blue = 137, max = 255)) +
- expand_limits(mymapd) + coord_map()
- print(qdmap)
扫码或添加微信号:坛友素质互助
![](https://bbs-cdn.datacourse.cn/2020/assoQRcodeNew2022.png)
![](https://bbs-cdn.datacourse.cn/2020/assoQRcodeNew2022.png)
「经管之家」APP:经管人学习、答疑、交友,就上经管之家!
免流量费下载资料----在经管之家app可以下载论坛上的所有资源,并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库,各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里,你可以找到任何学科方向、有共同话题的朋友。
经管之家(原人大经济论坛),跨越高校的围墙,带你走进经管知识的新世界。
扫描下方二维码下载并注册APP
免流量费下载资料----在经管之家app可以下载论坛上的所有资源,并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库,各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里,你可以找到任何学科方向、有共同话题的朋友。
经管之家(原人大经济论坛),跨越高校的围墙,带你走进经管知识的新世界。
扫描下方二维码下载并注册APP
![](static/2016/reg/jgewm.png)
您可能感兴趣的文章
本站推荐的文章
人气文章
1.凡人大经济论坛-经管之家转载的文章,均出自其它媒体或其他官网介绍,目的在于传递更多的信息,并不代表本站赞同其观点和其真实性负责;
2.转载的文章仅代表原创作者观点,与本站无关。其原创性以及文中陈述文字和内容未经本站证实,本站对该文以及其中全部或者部分内容、文字的真实性、完整性、及时性,不作出任何保证或承若;
3.如本站转载稿涉及版权等问题,请作者及时联系本站,我们会及时处理。
2.转载的文章仅代表原创作者观点,与本站无关。其原创性以及文中陈述文字和内容未经本站证实,本站对该文以及其中全部或者部分内容、文字的真实性、完整性、及时性,不作出任何保证或承若;
3.如本站转载稿涉及版权等问题,请作者及时联系本站,我们会及时处理。