我在 R 中使用了這段代碼來顯示地圖。
library(maps)
library(raster)
library(rgeos)
library(ggplot2)
library(dplyr)
# Iran map
iran <- getData("GADM", country = "Iran", level = 1)
mymap <- fortify(iran)
mymap$id <- as.integer(mymap$id)
dat <- data.frame(id = rownames(iran@data),
state = iran@data$NAME_1,
pr = c(530,-42,1673,75,206,544,1490,118,75,
40,105,191,111,810, 609,425,418,550, 40, 425, -54,-50,
16, 18, 133,425, -30, 241,63, 191,100)) %>%
mutate(color_province = case_when(pr <= 50 ~ 'green',
pr > 150 ~ 'red',
TRUE ~ 'yellow'))
dat$id <- as.integer(dat$id)
mydf <- inner_join(mymap, dat, by = "id")
centers <- data.frame(gCentroid(iran, byid = TRUE))
centers$state <- dat$state
ggplot()
geom_map(data = mydf,
map = mymap,
aes(map_id = id, group = group,
x = long, y = lat,
fill = as.factor(color_province)))
coord_map()
labs(x = "", y = "")
scale_fill_manual(values = c("green", "red", "yellow"),
name = "areas")
現在我想添加一些不同大小的點（城市）來顯示人口，但我無法添加點。
# Cities
Khorasan <- c(60,35)
Kerman <- c(54,30)
Sistan <- c(61,27)
Cities <- rbind(Khorasan, Kerman, Sistan) %>%
as.data.frame()
colnames(Cities) <- c("ras","bal")
# Show the cities on the map
points(x=Cities$ras, y=Cities$bal, col="slateblue", cex=3, pch=20)
你能幫我嗎，我怎樣才能在地圖上添加一些點，這些點的大小顯示它們的分布？
uj5u.com熱心網友回復：
我會提出一種簡單的方法geom_sf來處理坐標資料。有關更多功能，請參閱
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/392952.html