2025-09-27 FOSS4G Hokkaido 2025
湯谷啓明
Shiny(R のウェブアプリケーションフレームワーク)前提の話になって、ちょっとマニアックすぎるので省略。 気になる人は懇親会で話しましょう!
maplibre()
: MapLibre GL JS で地図を表示mapboxgl()
: Mapbox GL JS で地図を表示
(リロードしないと動かないかも…)
sf
形式で渡すL02_006
が地価が入っているカラムtooltip
(マウスオーバーで表示)tooltip
(マウスオーバーで表示)popup
(クリックで表示)popup
(クリックで表示)pal <- interpolate_palette(
data = data,
column = "L02_006", # カラム名
method = "quantile",
n = 4,
palette = scales::viridis_pal(option = "F", direction = -1)
)
map |>
add_circle_layer(
id = "chika",
source = data,
circle_radius = 8,
circle_opacity = 0.7,
circle_color = pal$expression
) |>
add_continuous_legend(
"地価 [円]",
values = get_legend_labels(pal, digits = 0),
colors = get_legend_colors(pal)
)