添加法國，它位于右下方，因此我們應(yīng)該看到一點…

plot(FR,add=TRUE)

然后，我們可以檢索英國退歐公投數(shù)據(jù)

referendum=ddply(referendum,.(Region,HASC_code),summarise,Remain=sum(Remain),Leave=sum(Leave))

我們可以發(fā)現(xiàn)，脫歐贏得了51.89％的選票

> sum(referendum$Leave)/(sum(referendum$Leave)+sum(referendum$Remain)) [1] 0.5189184

大家可以看一下，使用

plot(UK, col = map_data$Brexit, border = "gray1", xlim = c(-4,-2), ylim = c(50, 59), main="How the UK has voted?", bg="#A6CAE0") plot(IRL, col = "lightgrey", border = "gray1",add=TRUE) plot(FR, col = "lightgrey", border = "gray1",add=TRUE)

(我們添加了一個小圖例以使其更清晰)。為此，我們可以使用制圖軟件包

plot(UK, col = "grey", border = "gray1", xlim = c(-4,-2), ylim = c(50, 59),bg="#A6CAE0") plot(IRL, col = "lightgrey", border = "gray1",add=TRUE) plot(FR, col = "lightgrey", border = "gray1",add=TRUE) choroLayer(spdf = UK, df = map_data, var = "Percentage_Remain", breaks = seq(0,100,10), col = cols, legend.pos = "topright", legend.title.txt = "", legend.values.rnd = 2, add = TRUE)

總結(jié)

以上是生活随笔為你收集整理的R语言chorolayer_R语言空间可视化：绘制英国脱欧投票地图的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。