小编YGS*_*YGS的帖子

R:向Leaflet地图添加标题

我想在整个地图上添加一个标题(与图例标题不同:addLegend(...,title ="",...):"title",我的意思是一个覆盖的地图组件,它保持不变移动地图时(与重叠图像不同)地图标题的样子.

这是RStudio的R 传单中的一个选项吗?

leafletR有一个 title =""参数,但它更新了网页的标题:它没有为地图添加标题.

r leaflet r-leaflet

10
推荐指数
2
解决办法
7282
查看次数

R Leaflet - 使用带有colorNumeric()调色板的日期或字符图例标签

我有一个lat/lon数据集和一个时间戳.我希望标记的颜色用连续的调色板显示时间.我正在使用colorNumeric()之前创建的朱利安日期julian(x, "2015-01-01").

data = structure(list(timestamp = structure(c(1434056453, 1434148216, 1434153635, 1434245436, 1434358840, 
                                          1434364288, 1434369611, 1434461435, 1434466830, 1434558725), class = c("POSIXct", "POSIXt"), tzone = ""), 
                  lon = c(-119.8777, -119.9614, -119.8769, -119.8775, -120.2283, 
                          -120.2285, -119.8429, -120.0954, -120.3957, -120.4421), 
                  lat = c(34.4041,34.376, 34.4061, 34.4021, 34.4696, 
                          34.4697, 34.1909, 34.4328, 34.4554, 34.4456), 
                  ID = as.factor(c("Z11","Z05","Z01", "Z04", "Z11", "Z04","Z01","Z05","Z05","Z11"))), 
             .Names = c("timestamp", "lon", "lat", "ID"),
             row.names = c(1:10), 
             class = "data.frame")
data$julian = as.numeric(julian(data$timestamp, origin = "2015-01-01"))

pal = colorNumeric(  palette = rainbow(7), …
Run Code Online (Sandbox Code Playgroud)

r date legend leaflet

5
推荐指数
1
解决办法
1993
查看次数

R:传单:使用带有 addRasterImage 的窗格

R的传单现在可以选择用于addMapPane按确定的顺序堆叠传单对象。这适用于矢量数据,但使用它会addRasterImage返回错误消息。options使用pane带有栅格的a 是否有特殊之处?

library(leaflet)
library(raster)

r <- raster(ncol=1000, nrow=1000)
r[] <- runif(ncell(r),0,1)
extent(r) <- matrix(c(172, -37, 175, -38), nrow=2)
crs(r)<-sp::CRS("+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs")
pal <- colorNumeric(c("#0C2C84", "#41B6C4", "#FFFFCC"), values(r),
                    na.color = "transparent")


m <- leaflet(m) %>% addTiles() %>% 
  addMapPane("baseMap", zIndex = 410) %>% 
  addMapPane("baseSat", zIndex = 420) %>% 
  addMapPane("data", zIndex = 425) %>% 
  addMapPane("r", zIndex = 430) %>% 
  addProviderTiles(providers$Esri.WorldImagery, group = "Satellite imagery",
                   options = pathOptions(pane = "baseSat")) %>% 
  addProviderTiles(providers$Esri.WorldTerrain,
                   options = pathOptions(pane …
Run Code Online (Sandbox Code Playgroud)

r leaflet

5
推荐指数
1
解决办法
212
查看次数

标签 统计

leaflet ×3

r ×3

date ×1

legend ×1

r-leaflet ×1