cptcityパッケージは膨大なカラーパレットを提供しています。この中から、地図表現で利用できるカラーパレットを試しました。
パッケージ読み込み
library(cptcity)
遺跡分布図の背景に適したカラーパレットをさぐる
描画する地図は厚沢部町の遺跡分布図です。
p<-
ggplot() +
geom_raster(data = df_dem , # 標高ラスタ
aes(x, y, fill = Elevation),
hjust = 0, vjust = 0) +
geom_contour(data = df_dem, aes(x, y, z = Elevation), col = "gray70", size = 0.2) + # 等高線描画
geom_sf(data = asbWl , fill = "#B4CDD8" , colour = "#B4CDD8") + # 河川
geom_sf(data = asb , col = "gray40" , fill = NA, lwd = 0.8) + # 厚沢部町域
geom_sf(data=asbSite , aes( colour = class ) , show.legend = "point") + # 遺跡
theme_void() +
scale_colour_viridis(option = "cividis" , discrete =TRUE ) +
guides(fill=FALSE)
地図に特化したcptパレット
cptcityのHPでは膨大なカラーパレットが紹介されています。登録されているカラーパレットは7140件!!あります。
> length(cpt_names)
[1] 7140
このうち、地図に特化したカラーパレットは「Palettes for topography」で紹介されています。
DEM_posterとか、派手ですね。
cptcityに登録されているパレット名を調べるためにはfind_cpt()
関数を使います。含まれている文字列から検索できます。DEM_posterは、td_DEM_poster
という名前で登録されているようです。
> find_cpt("poster")
[1] "td_DEM_poster"
td_DEM_poster
予想通り派手です・・・
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "td_DEM_poster" , n = 50))
td_DEM_screen
おだやかになりましたが、ちょっと緑がくどい。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "td_DEM_screen" , n = 50))
jjg_dem_c3t1
落ち着いているので、背景図としては好ましいですね。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "jjg_dem_c3t1" , n = 50))
jjg_dem_c3t3
こちらも落ち着いています。標高の高い部分の表現が多少違います。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "jjg_dem_c3t3" , n = 50))
fme_metres_neutral
標高の高い部分の表現がちょっと違和感あります。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "fme_metres_neutral" ,n=50))
jm_tv_tv_a
ちょっと安っぽい感じかなあ・・・ビビッドすぎる感じが好ましくない。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "jm_tv_tv_a" ,n=50))
jm_o2_o2_a
控えめで良い感じ。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "jm_o2_o2_a" ,n=50))
jm_ao_ao_a
地形がわかりやすいとはいえませんが、背景図としては良いかもしれません。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "jm_ao_ao_a" ,n=50))
jm_sd_sd_a
オーソドックスな感じ。地形は見やすいです。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "jm_sd_sd_a" ,n=50))
esri_hypsometry_na_palm_springs_4
なんか、カラーパレットが反転しているようにも感じる。ノースアメリカというテーマ。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "esri_hypsometry_na_palm_springs_4" ,n=50))
esri_hypsometry_na_georgia
同じノースアメリカでもこちらはまた別の意味で特徴的なジョージアというパレット
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "esri_hypsometry_na_georgia" ,n=50))
esri_hypsometry_eu_europe_2
esriのeuropaというテーマ。2〜9までありますが、europa2か3が一番しっくりきます。地形がわかりやすいパレットです。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "esri_hypsometry_eu_europe_5" ,n=50))
tp_tpushum
Tom Pattersonのtopographyテーマはどれも好ましいものが多いのですが、topshumが気に入りました。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "tp_tpushum" ,n=50))
esri_hypsometry_eu_iceland
Icelandというパレット。うむ・・・。日本の遺跡分布図で使うのは難しいかな?
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "esri_hypsometry_eu_iceland" ,n=50))
esri_hypsometry_eu_spain
Spainというパレット。平地が茶色で標高が高いほうが緑というのがスペイン的なんでしょうか?
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "esri_hypsometry_eu_spain" ,n=50))
wkp_schwarzwald_wiki_schwarzwald_cont
wikipedeaのカラーパレット群から。色みの振れ幅が大きい印象。目が痛い。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "wkp_schwarzwald_wiki_schwarzwald_cont" ,n=50) )
wkp_tubs_nrwc
遺跡分布図の背景には向いていないですね。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "wkp_tubs_nrwc" ,n=50) )
arendal_zambezi_proximity
オーソドックス、地形がわかりやすい、うるさくないと三拍子揃ったカラーパレットです。好きです。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "arendal_zambezi_focus" ,n=50) )
wkp_country_wiki_andorra
wikipediaから。控えめで見やすいです。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "wkp_country_wiki_andorra" ,n=50) )
wkp_country_wiki_zurich
wikipediaから。こちらも控えめ。andorraと比べるとほんの少しコントラストが強い。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "wkp_country_wiki_zurich" ,n=50) )
esri_hypsometry_planet_mars_2
火星の地表面をイメージしたカラーパレット・・・地球上では使わなくても良いかもしれません。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "esri_hypsometry_planet_mars_2" ,n=50) )
陰影起伏図のカラーパレット
cptcity
には陰影図に特化したパレットも用意されています。
esri_hillshade_blue_green_dk
少し青みがかったパレット。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "esri_hillshade_blue_green_dk" ,n=50) )
esri_hillshade_craterlake_dk
もう真っ青なパレット。使える場面があるんでしょうか?
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "esri_hillshade_craterlake_dk" ,n=50) )
esri_hillshade_craterlake_dki
青みが強いけれど、陰影が見やすいパレット
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "esri_hillshade_craterlake_dki" ,n=50) )
esri_hillshade_craterlake_shore
薄ら青いけれど等高線も見やすいパレット
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "esri_hillshade_craterlake_dk" ,n=50) )
esri_hillshade_gray_dk
オーソドックスなグレースケールのパレット
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "esri_hillshade_gray_dk" ,n=50) )
esri_hillshade_illumination
急傾斜に明るい色が割り当てられているパレット
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "esri_hillshade_illumination" ,n=50) )
esri_hillshade_pnw
茶色みがわずかに入ったパレット。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "esri_hillshade_pnw" ,n=50) )
esri_hillshade_yellow_dk
こちらも茶色みがわずかに入ったパレット。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "esri_hillshade_yellow_dk" ,n=50) )
傾斜区分図
slopeに特化したパレット。
colo_alpen_ski_slope_lunch
濃緑基調のパレット。自然な感じで好ましい。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "colo_alpen_ski_slope_lunch" ,n=50) )
esdb_slopese
濃茶基調のパレット。傾斜は激しく見やすい。
p + scale_fill_gradientn(colours = cptcity::cpt(pal = "esdb_slopese" ,n=50) )