Rで解析：値付きのleaflet objectを作成する！！「valuemap」パッケージ

各エリアに値付きのleaflet objectを作成できる大変便利なパッケージの紹介です。凡例の区切り値を簡単に設定できます。

パッケージバージョンは2.0.0。実行コマンドはwindows 11のR version 4.1.3で確認しています。

パッケージのインストール

下記、コマンドを実行してください。

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
install.packages("valuemap")

実行コマンド

詳細はコメント、パッケージのヘルプを確認してください。

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("valuemap")

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
#&#12300;tidyverse&#12301;&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
if(!require("tidyverse", quietly = TRUE)){
  install.packages("tidyverse");require("tidyverse")
}
#&#12300;sf&#12301;&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
if(!require("sf", quietly = TRUE)){
  install.packages("sf");require("sf")
}
library("tcltk")

#https://www.karada-good.net/analyticsr/r-594/&#12424;&#12426;
#&#12480;&#12454;&#12531;&#12525;&#12540;&#12489;&#12375;&#12383;JPNPref.shp&#12434;&#35501;&#12415;&#36796;&#12415;
load(paste0(as.character(tkgetOpenFile(title = "&#12501;&#12449;&#12452;&#12523;&#12434;&#36984;&#25246;",
                                       filetypes = '{"&#12501;&#12449;&#12452;&#12523;" {".*"}}',
                                       initialfile = c("*.*")))))
#class&#12434;"sf","data.frame"&#12395;&#22793;&#25563;
JPNPref_SF <- as(JPNPref, "sf") %>%
  st_union(by_feature = TRUE)

#class&#12434;&#30906;&#35469;
class(JPNPref_SF)

#&#20316;&#25104;:&#21015;&#21517;&#12434;name,value,geometry&#12395;&#12377;&#12427;
set.seed(1234)
TestData <- JPNPref_SF %>%
  select(name_local, geometry) %>%
  mutate(value = sample(1:47, 47)) %>%
  rename(name = name_local)
########

#&#20516;&#20184;&#12365;&#12398;leaflet object&#12434;&#20316;&#25104;:valuemap&#12467;&#12510;&#12531;&#12489;
#&#34920;&#31034;&#22320;&#22259;&#12398;&#35373;&#23450;:map&#12458;&#12503;&#12471;&#12519;&#12531;;leaflet::providers&#12391;&#30906;&#35469;
#&#20961;&#20363;&#12398;&#21306;&#20999;&#12426;&#20516;&#12434;&#35373;&#23450;:legend.cut&#12458;&#12503;&#12471;&#12519;&#12531;;&#12505;&#12463;&#12488;&#12523;&#12391;&#25351;&#23450;
#&#33394;&#12497;&#12524;&#12483;&#12488;&#12434;&#25351;&#23450;:palette&#12458;&#12503;&#12471;&#12519;&#12531;
#&#20516;&#12398;&#33394;:text.color&#12458;&#12503;&#12471;&#12519;&#12531;
#&#20516;&#12434;&#34920;&#31034;:show.text&#12458;&#12503;&#12471;&#12519;&#12531;;TRUE/FALSE
#&#20516;&#12398;&#12501;&#12457;&#12540;&#12510;&#12483;&#12488;&#12434;&#25351;&#23450;:text.format&#12458;&#12503;&#12471;&#12519;&#12531;;&#21021;&#26399;&#20516;:function(x) x
valuemap(data = TestData, map = "Hydda",
         legend.cut = c(5, 20), palette = "YlOrRd", text.color = "black",
         show.text = TRUE, text.format = function(x) paste0(x, "&#30058;"))

出力例

インタラクティブに操作が可能です。

少しでも、あなたの解析が楽になりますように！！