溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊(cè)×
其他方式登錄
點(diǎn)擊 登錄注冊(cè) 即表示同意《億速云用戶服務(wù)條款》

R語(yǔ)言如何畫地圖

發(fā)布時(shí)間：2021-11-18 10:11:10 來(lái)源：億速云 閱讀：167 作者：小新 欄目：大數(shù)據(jù)

這篇文章將為大家詳細(xì)講解有關(guān)R語(yǔ)言如何畫地圖，小編覺得挺實(shí)用的，因此分享給大家做個(gè)參考，希望大家閱讀完這篇文章后可以有所收獲。

install.packages("rgdal")
map<-rgdal::readOGR("../../practice/中國(guó)地圖數(shù)據(jù)/bou2_4p.shp")
library(maps)
plot(map)
table(iconv(map$NAME))
plot(map[1,])
map_df<-fortify(map)
ggplot(data=map_df)+
  geom_polygon(aes(x=long,y=lat,group=group),
               fill="white",color="gray")
name<-c("杭州","上海","成都")
latitude<-c(30.27415,31.23037,30.5702)
longitude<-c(120.15515,121.4737,104.06476)
num<-c(100,70,60)
df<-data.frame(name,latitude,longitude,num)
ggplot(data=map_df)+
  geom_polygon(aes(x=long,y=lat,group=group),
               fill="white",color="gray")+
  geom_point(data=df,aes(x=longitude,y=latitude,
                         color=name),size=5)+
  theme_bw()+
  theme(axis.text = element_blank(),
        axis.ticks = element_blank(),
        axis.title = element_blank(),
        panel.border = element_blank(),
        legend.title = element_blank(),
        legend.position = c(0.2,0.2),
        legend.background = element_blank())
 
R語(yǔ)言如何畫地圖  
Figure1

 
R語(yǔ)言如何畫地圖  
Figure2

 
R語(yǔ)言如何畫地圖  
Figure3

 
R語(yǔ)言如何畫地圖  
Figure4



關(guān)于“R語(yǔ)言如何畫地圖”這篇文章就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，使各位可以學(xué)到更多知識(shí)，如果覺得文章不錯(cuò)，請(qǐng)把它分享出去讓更多的人看到。

向AI問(wèn)一下細(xì)節(jié)

免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱：is@yisu.com進(jìn)行舉報(bào)，并提供相關(guān)證據(jù)，一經(jīng)查實(shí)，將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI
助
手