title: R语言在地图上绘制散点图
date: 2021-07-22 23:45:52
tags:
可能最头疼的不是画图部分，而是怎么把ggplot2包给装好。ggplot2的安装需要依赖一些其他的包，因此，先要把几个依赖的包给下载好。
如果还安装失败，可以参考一下这篇博客(33条消息) “There is a binary version available (and will be installed) but the source version is later”解决办法_大犀牛冲鸭的博客-CSDN博客
#导入库
library(ggplot2) #绘图核心类
#从粘贴板中读取数据
data <- read.table("clipboard",sep="\t",header = T)
getwd()
setwd('C:/Users/LHW/Desktop/R_plot_map/')
#这个包是来读shp文件的
library(rgdal)
china_map1<- readOGR(".", "Hubei") #shp文件需要放在当前工作路径下面
china_map1 <- fortify(china_map1) #将shp文件的数据格式转换称为数据框的形式
p<-ggplot()+
geom_polygon(data=china_map1, aes(x=long, y=lat, group=group), fill="grey95", colour="grey60")+
geom_point(data=data, aes(x = lon,y = lat, size=emission, fill=emission, alpha=0.3), shape=21, colour="black")
#输出高分辨率的图片
ggsave("x.jpg", p , dpi = 600)
画出的图如下：