问题描述
我第一次尝试创建交互式地图时已经在互联网上搜索了,但是碰到了墙。我绝不喜欢这种创建交互式地图的方式,因此,如果有人有任何其他尝试且真实的方法不使用绘图,那么我很想听听。
我正在尝试获取面板数据,并创建一个“热图”,以说明各县随时间的变化情况。对于可重现的示例,我已简化为3个县,3年和一个变量。我认为问题在于我要随时间更改的是多边形图层的填充。这段代码的结果很有趣,但显然不是我想要的。任何帮助,资源或指导将不胜感激。谢谢!
library(tidyverse)
wy<-map_data("state",region="wyoming")
county<- map_data("county",region = "wyoming")
#create reprex df
subregion <- rep(c("albany","big horn","converse"),each=3)
Year <- rep(c(2004,2005,2006),times =3)
Emp<- runif(9)
panel <- data.frame(subregion,Year,Emp)
#Combine this with map data
combined <- merge(panel,county,by= "subregion")
#Create map
x <-ggplot()+
geom_polygon(data=wy,aes(x=long,y=lat,group=group),fill=NA,color="royalblue")+
geom_polygon(data=county,color="dodgerblue1")+
geom_polygon(data=combined,group=group,fill=Emp,frame = Year))+
theme_void()
ggplotly(x)
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)