常用漢字の頭子音の対応表 original: https://twitter.com/lavion_lang/status/1679706083328421889

jazh-consonants.erq

-- erq <jazh-consonants.erq >jazh-consonants.svg
attach '/Users/mandel59/ws/mojidata/packages/mojidata/dist/moji.db' as mojidata;;
with ja as (k: unihan_kJapaneseOn join o: string_split(k.value, ' ') {UCS, ja_c: ifnull(regexp_substr(lower(o.value), '^(ch|ts|sh|[hfbmtdnrszjkgwy])'), '∅') })
with zh as (k: unihan_kMandarin join p: string_split(k.value, ' ') {UCS, zh_c: ifnull(regexp_substr(p.value, '^(zh|ch|sh|[bpmfdtnlzcsrjqxgkhwy])'), '∅') })
joyo { UCS: 漢字 } join ja using (UCS) join zh using (UCS) { ja_c, zh_c => count: count(distinct UCS) }
output vega lite svg with
  encoding {
    x: ja_c n sort['h','f','b','m','t','ch','ts','d','n','r','s','sh','z','j','k','g','w','y','∅'],
    y: zh_c n sort['b','p','m','f','d','t','n','l','zh','ch','sh','z','c','s','j','q','x','r','g','k','h','w','y','∅']
  },
  layer(
    mark rect, encoding { color: count q };
    mark text, encoding { text: count q }
  );;

jazh-consonants.svg