搜索
查看: 2123|回复: 0

ggplot2 地图

[复制链接]

11

主题

14

帖子

178

积分

版主

Rank: 7Rank: 7Rank: 7

积分
178
发表于 2017-4-18 13:27:41 | 显示全部楼层 |阅读模式
map图:
功能:展示地理信息位置与关系
使用的包:maps包,调用相应的地图,也可以直接使用maps包里的map函数。本例使用ggplot2进行处理。
附加:可以进行地图包拓展,ggmap地图包 reworld 包等,满足不同的需求。
原理:先用地图包,获得地理信息
          再调用ggplot2函数geom_polygon处理地理信息
          然后用ggplot函数geom_point 或者geom_jitter函数进行叠加信息。



[AppleScript] 纯文本查看 复制代码
#clear all temp variable
rm(list=ls())
library(maps)
library(ggplot2)
setwd("D:/Test/R/R_paint")
world_map <- map_data("world")
world_map
#Creat a base plot with gpplot2
p <- ggplot() + coord_fixed() +
  xlab("") + ylab("")
#Add map to base plot
palette()
base_world_messy <- p + geom_polygon(data=world_map, aes(x=long, y=lat, group=group), 
                                     colour="green", fill="lightgreen")
base_world_messy
#Strip the map down so it looks super clean (and beautiful!)

cleanup <- 
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), 
        panel.background = element_rect(fill = 'white', colour = 'white'), 
        axis.line = element_line(colour = "white"), legend.position="none",
        axis.ticks=element_blank(), axis.text.x=element_blank(),
        axis.text.y=element_blank())
p <- base_world_messy + cleanup
p



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x



上一篇:《R语言实战》学习笔记(持续更新中)
下一篇:求问:包含突变频率的信号通路图用什么画的?
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|小黑屋|生信技能树 ( 粤ICP备15016384号  

GMT+8, 2019-10-22 22:51 , Processed in 0.027145 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.