是否可以通过高程为路径着色？

Question

我正在使用 mapdeck::add_path() 来显示飞机的飞行路径。我想按高度给路径上色；这可能吗？这是一个简短的例子：

library(mapdeck)
library(sf)
# From https://github.com/kent37/mapdeck_play/blob/master/tracks_2019_03_11.gpkg?raw=true
one_day = st_read('tracks_2019_03_11.gpkg')

key = 'your_api_key'
mapdeck(location=c(-71.128184, 42.3769824), zoom=14, key=key) %>% 
  add_path(one_day)

谢谢！

Answer 1

目前不可能有多色 path，但它在我的 todo 列表中。

为了达到你想要的效果，你必须使用一个 line 层，它需要一个 'origin' 和 'destination' 并绘制一条直线（即，成分path)

的一部分

要获取 Origin-Destination 列，我们需要将 sf 对象分解为 data.frame，添加“_to”列，然后再次使其成为 sf 对象。

（我还有一个 todo 允许 data.frame 使用 Z 和 M，但现在我们必须再次将最终转换为 sf）

library(data.table)
library(sfheaders)

df <- sfheaders::sf_to_df( one_day, fill = TRUE )

setDT( df )[
  , `:=`(
    x_to = shift(x, type = "lead")
    , y_to = shift(y, type = "lead")
    , z_to = shift(z, type = "lead")
    , m_to = shift(m, type = "lead")
    )
  , by = flight
]

df <- df[ !is.na( x_to ) ]

df$origin <- sfheaders::sfc_point(
  obj = df
  , x = "x"
  , y = "y"
  , z = "z"
  , m = "m"
)

df$destination <- sfheaders::sfc_point(
  obj = df
  , x = "x_to"
  , y = "y_to"
  , z = "z_to"
  , m = "m_to"
)

sf <- sf::st_as_sf( df )

mapdeck(
  style = mapdeck_style("dark")
) %>%
  add_line(
    data = sf
    , origin = "origin"
    , destination = "destination"
    , stroke_colour = "z"
  )

是否可以通过高程为路径着色？

Is is possible to color path by elevation?

r

mapdeck