使用 geom_text() 在 geom_polygon()

编程问答 2022-04-29

问题描述

我正在尝试在 geom_polygon 顶部添加 geom_text 图层以显示每个多边形的标签。如果没有 geom_text，它会生成如下图所示的图：

geom_polygon output

我希望它在每个多边形上都有看起来像这样的文本：

text polygon

这是我的数据 M 的样子：

M data

我创建了一个名为 County_text_df 的新数据框，因为将 M 数据用于 geom_text 会消耗太多内存。这是数据county_text_df 和M 的样子：

structure(list(county = c("종로구","중구","용산구","성동구","광진구","동대문구","중랑구","성북구","강북구","도봉구","노원구","은평구","서대문구","마포구","양천구","강서구","구로구","금천구","영등포구","동작구","관악구","서초구","강남구","송파구","강동구"),lat = c(37.5990998,37.5579452,37.5311008,37.5506753,37.5481445,37.5838012,37.5953795,37.606991,37.6469954,37.6658609,37.655264,37.6176125,37.5820369,37.5622906,37.5270616,37.5657617,37.4954856,37.4600969,37.520641,37.4965037,37.4653993,37.4769528,37.4959854,37.5048534,37.5492077),long = c(126.9861493,126.9941904,126.9810742,127.0409622,127.0857528,127.0507003,127.0939669,127.0232185,127.0147158,127.0317674,127.0771201,126.9227004,126.9356665,126.9087803,126.8561534,126.8226561,126.858121,126.9001546,126.9139242,126.9443073,126.9438071,127.0378103,127.0664091,127.1144822,127.1464824)),class = "data.frame",row.names = c(NA,-25L
))

这是我的代码：

library(raster)
library(rgdal)
library(maptools)
library(rgeos) # rgeos version: 0.5-5,(SVN revision 640)
library(ggplot2)
county_text_df<- data.frame(county = unique(M$county),lat = unique(M$lat.y),long = unique(M$long.y))
county_text_df %>% head()

ggplot() + 
  geom_polygon(data = M,aes(x = long.x,y = lat.x,group = group,fill = cnt),color = "white") +
  scale_fill_gradient(low = "#FBCF61",high = "#00CC99",space = "Lab",guide = "colourbar") +
  geom_text(data = county_text_df,mapping = aes(x = long,y = lat,label = county,size = 4,colour = "blue"))

如果有任何想法，我将不胜感激！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

geom-textggplot2polygonrr