【发布时间】:2016-06-20 09:18:40
【问题描述】:
几天前我开始学习闪亮和传单包装,这个问题可能无关紧要,但我寻找我的问题的答案,但没有找到任何答案。 好吧,我正在尝试创建一个交互式地图,其中包含我从互联网上获得的基本地图。我想在这张地图上展示一个指数在全国范围内的演变。
stypof <- readOGR(dsn = "C:/Users/N4XW6M/Desktop/nouvelle map/fonds typo propre.TAB", layer = "fonds typo propre", stringsAsFactors = FALSE)
names(stypof@data)<-c("typo")
fond<-data.frame(stypof@data$typo)
names(fond)<-c("typo")
new_indice_mois <- sqldf("SELECT indice_mois.*
FROM indice_mois, fond
WHERE indice_mois.typo = fond.typo")
stypof$indice_fevrier <- new_indice_mois$indice_fevrier
leaflet(stypof) %>%
addPolygons(
stroke = FALSE, fillOpacity = 0.5, smoothFactor = 0.5,
color = ~colorQuantile("YlOrRd", stypof@data$indice_fevrier)(indice_fevrier)
)
在第一步中,我使用 readOGR 导入基本地图。 基本地图中没有显示某些区域,这就是我使用 sqldf 函数的原因,然后我将索引 (indice_fevrier) 添加到地图并尝试使用传单函数。 我没有收到任何错误消息,只有一张空地图。 我尝试了一些在互联网上找到的其他示例,但我总是遇到相同的问题,地图没有出现。
【问题讨论】: