小编Dan*_*Dan的帖子

我知道 usmap 有一个label选项plot_usmap()。我想标记一些数字，而不是状态名称。我想 usmap 中应该有与州质心坐标相关的数据，但我不知道如何找到它。如果我可以获得坐标，那么我可以用 来标记数字geom_text()。

这是我的数据。

 State                Abbrev Code  n_votes Attitude              fips 
 1 Alabama              Ala.   AL          9 Solid Republican      01   
 2 Alaska               Alaska AK          3 Toss-up               02   
 3 Arizona              Ariz.  AZ         11 Toss-up               04   
 4 Arkansas             Ark.   AR          6 Solid Republican      05   
 5 California           Calif. CA         55 Solid Democrat        06   
 6 Colorado             Colo.  CO          9 Leaning to Democrat   08   
 7 Connecticut          Conn.  CT          7 Solid Democrat        09   
 8 Delaware             Del.   DE          3 Solid …

我正在尝试根据“usmap”包制作美国选举地图。问题是这个包似乎只能做白色背景。如果我改变背景颜色它会显示边框。我尝试通过设置删除边框panel.border = element_blank()，但似乎不起作用。有什么办法可以解决这个问题吗？

library(usmap)
poll <- read_csv('poll.csv')
poll$fips <-fips(poll$State)
poll$Attitude <- factor(poll$Attitude, levels = attitude) 
plot2 <- plot_usmap(data = poll, values = "Attitude",  color = 'white', labels=FALSE) + scale_fill_manual(values=c("#1055b6", "#67b5e2", "#cccccc","#ffaca3","#ed4748")) + guides(fill = FALSE) 
plot2+ theme(plot.background = element_rect(fill = "#fdf1e5"),
             panel.background = element_rect(fill = "#fdf1e5"), 
             panel.border = element_blank())

这是我的数据。

   State                Abbrev Code  n_votes Attitude              fips 
 1 Alabama              Ala.   AL          9 Solid Republican      01   
 2 Alaska               Alaska AK          3 Toss-up               02   
 3 Arizona              Ariz.  AZ         11 Toss-up               04 …