Question

如何使用ggplot2将选择城市添加到州？我在这里搜索高低，无法找到解决方案。下面是一些代码，通过邮政编码在爱荷华州绘制销售机会。我如何为Des Moines和Sioux City添加城市文本标签？我认为我使用geom_text代码行？谢谢你的帮助。

#Plot
us<-map_data('county', 'iowa')

  #Plot Map
  ggplot(c,aes(longitude,latitude)) +
    geom_polygon(data=us,aes(x=long,y=lat,group=group),color='black',fill=NA,alpha=.75)+
    #geom_point(aes(size = total), color="red3", alpha=.25)+
    geom_point(aes(size = premium), color="dodgerblue3", alpha=I(.75))+
    scale_size(name="Total Remaining Premium (000s)", labels = scales::dollar, breaks = c(25000,100000,500000,1500000),range = c(2, 40))+
    theme_void()+
    theme(legend.title = element_text(face="bold",size=14))+
    theme(legend.text=element_text(size=14))

Answer 1

我无法看到数据c的结构，因此我首先为sioux和des moines生成了long / lat并添加了geom_text元素：

假设你将你的情节定义为p，

  cit = data.frame(long=c(42.5,41.6),
             lat=c(-96.4,-93.6),
             label=c("sioux","des moines"))

  p + geom_text(aes(x = lat, y = long, label = label),
        data= cit,
        alpha = 1,
        color = "black",
        size = 4) # check size

或者，您可以选择c中直接提供城市长/纬度的那些线

添加选择城市文本标签 - ggplot2

1 个答案: