2025年R语言maps绘图

科技前沿 • 2025-02-13 20:40 • 阅读 42

大家好，我是讯享网，很高兴认识大家。

安装maps包
install.packages(“maps”)
加载某个安装的R包：
library(“maps”)
map(“state”, interior = FALSE)
map(“state”, boundary = FALSE, col=“red”, add = TRUE)
map(‘world’, fill = TRUE,col=heat.colors(10))
实验：社交数据可视化
install.packages(“geosphere”)
加载
library(“maps”) library(“geosphere”)
画出美国地图
map(“state”)
画世界地图
map(“world”)
通过设置坐标范围使焦点集中在美国周边，并且设置一些有关颜色
xlim <-c(-171.,-56.)
ylim <-c(12.039321,71.)
map(“world”, col=“#f2f2f2”, fill=TRUE, bg=“white”, lwd=0.05, xlim=xlim, ylim=ylim)
画一条弧线连线，表示社交关系
lat_ca<- 39.
lon_ca<- -121.64062
lat_me<- 45.21300
lon_me<- -68.
inter<- gcIntermediate(c(lon_ca, lat_ca), c(lon_me, lat_me), n=50, addStartEnd=TRUE)
lines(inter)
继续画弧线
lat_tx<- 29.
lon_tx <- -98.
inter2 <- gcIntermediate(c(lon_ca, lat_ca), c(lon_tx, lat_tx), n=50, addStartEnd=TRUE)
lines(inter2, col=“red”)
装载数据
airports <- read.csv(“http://datasets.flowingdata.com/tuts/maparcs/airports.csv", header=TRUE)
flights <- read.csv(”http://datasets.flowingdata.com/tuts/maparcs/flights.csv", header=TRUE, as.is=TRUE)

画出多重联系
map(“world”, col=“#f2f2f2”, fill=TRUE, bg=“white”, lwd=0.05, xlim=xlim, ylim=ylim)

fsub <- flights[flights\(airline == "AA",] <br /> for (j in 1:length(fsub\)airline)) {
air1 <- airports[airports\(iata == fsub[j,]\)airport1,]
air2 <- airports[airports\(iata == fsub[j,]\)airport2,]
inter <- gcIntermediate(c(air1[1,]\(long, air1[1,]\)lat), c(air2[1,]\(long, air2[1,]\)lat), n=100, addStartEnd=TRUE)
lines(inter, col=“black”, lwd=0.8)
}

讯享网

2025年R语言maps绘图

相关推荐