R语言，tabularmaps包，元素周期表图，分类热图

DIY实例
默认
无背景分组填色+图例
有缺失的实例
# Sat Oct 03 01:26:21 2020 -

# 字符编码：UTF-8
# R 版本：R x64 4.0.2 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
.rs.restartR()
# tabularmaps: 提供用于创建表格地图的函数，这是一种可视化方法，用于通过平铺多个元素来高效地显示由多个元素组成的数据.
rm(list=ls());gc()
require(tabularmaps)
library(ggplot2)

head(jpn77)
# jis_code prefecture    region  major_island   prefecture_kanji region_kanji     x     y
# <chr>    <chr>         <fct>   <chr>          <chr>            <fct>        <int> <int>
#   1 47       Okinawa-ken   Kyushu  Ryukyu Islands 沖縄県           九州             1     1
# 2 46       Kagoshima-ken Kyushu  Kyushu         鹿児島県         九州             1     2
# 3 43       Kumamoto-ken  Kyushu  Kyushu         熊本県           九州             1     3
# 4 41       Saga-ken      Kyushu  Kyushu         佐賀県           九州             1     4
tabularmap(jpn77, x, y, group = jis_code, label = prefecture, size = 3)
ggsave(filename = '默认.jpg')

tabularmap(jpn77, x, y, group = jis_code, fill = region, label = prefecture, size = 3) +
  theme_tabularmap() + #  去掉背景图层
  scale_fill_jpregion(lang = "en")
ggsave(filename = '无背景分组填色+图例.jpg',dpi=300)

# Sat Oct 03 01:43:20 2020 --diy----------------------------

dt <- data.frame(
  id = letters[seq.int(9)],
  x = rep(c(1,2,3), each = 3),
  y = rep(c(1,2,3), times = 3),
  fill = seq.int(9),
  label = letters[seq.int(9)])
# id x y fill label
# 1  a 1 1    1     a
# 2  b 1 2    2     b
# 3  c 1 3    3     c
# 4  d 2 1    4     d
tabularmap(dt,
  x, y,
  group = id,
  fill = fill,
  label = label,
  .expand_size = 20, .radius_size = 10)
ggsave(filename = 'DIY实例.jpg',dpi = 300)

head(iso3166)
# country_name continent region          iso2c iso3c iso3n     x     y
# <chr>        <chr>     <chr>           <chr> <chr> <chr> <int> <int>
#   1 Chile        Americas  South America   cl    CHL   152       1     2
# 2 Peru         Americas  South America   pe    PER   604       1     3
# 3 Ecuador      Americas  South America   ec    ECU   218       1     4
tabularmap(iso3166, x, y, group = iso2c,
           fill = continent,
           label = iso2c,
           .expand_size = 5) +
  theme_tabularmap() +
  guides(fill = FALSE)

ggsave(filename = '有缺失的实例.jpg',dpi=300)