Rスクリプトを貼り付けて実行する

続いて、以下のスクリプトをテキストエディタに貼り付けてください。${DATA} はExploratoryが現在アクティブなデータフレームを自動的に参照する専用の記法です。

library(ggplot2)    
library(marimekko)  
library(dplyr)      
library(scales)     

# ── Step 1: マリメッコチャートのベースプロットを生成 ──────────────────────────

p_base <- ggplot(${DATA}) +
  geom_marimekko(
    aes(fill = 顧客セグメント,                      # 色分けの基準列
        weight = 売上),                           # 列幅・高さの計算に使う数値列
    formula = ~ 製品サブカテゴリー | 顧客セグメント    # 左辺 = 列幅の軸、右辺 = 積み上げの軸
  )

# ── Step 2: 各ブロックの中心座標を計算し、ラベル用データを作成 ────────────────

label_data <- ggplot_build(p_base)$data[[1]] %>%   # geom_marimekko が内部計算した座標情報を取得
  mutate(
    xmid = (xmin + xmax) / 2,                       # ブロックの X 方向中心
    ymid = (ymin + ymax) / 2                        # ブロックの Y 方向中心
  ) %>%
  bind_cols(
    ${DATA} %>%
      arrange(製品サブカテゴリー, 顧客セグメント) %>%    # 座標データの行順に合わせてソート
      select(売上比率, 売上)                              # ラベルに使う列だけ抽出して結合
  )

# ── Step 3: ベースプロットにラベルと書式を追加 ────────────────────────────────

p_base +
  # 比率（%）をブロック内に表示
  geom_text(
    data = label_data,                                    # Step 2 で作ったラベルデータを使用
    aes(x = xmid, y = ymid,                              # ブロック中央に配置
        label = percent(売上比率, accuracy = 1)),         # 売上比率を % 書式で表示
    inherit.aes = FALSE,                                  # p_base の aes を引き継がない
    color = "white", size = 3, family = "HiraKakuProN-W3"
  ) +
  labs(
    x = "製品サブカテゴリー",                            # X 軸ラベル
    y = "顧客セグメント比率",                            # Y 軸ラベル
    fill = ""                                             # 凡例タイトルを非表示
  ) +
  scale_fill_brewer(palette = "Set2") +                  # カラーパレットを指定
  theme_marimekko(base_family = "HiraKakuProN-W3") +    # マリメッコ用テーマを適用
  theme(
    legend.position = "top",                             # 凡例を上部に配置
    axis.title.x = element_text(margin = margin(t = 12)), # X 軸タイトルを下にずらす
    axis.title.y = element_text(margin = margin(r = 12))  # Y 軸タイトルを左にずらす
  )

スクリプトを貼り付けたら「ビュー」ボタンをクリックすると、マリメッコ・チャートがプレビューに表示されます。

今回のデータにおいては、geom_marimekko() 関数の weight 引数に「売上」を、formula 引数に ~ 製品サブカテゴリー | 顧客セグメント を指定するだけでチャートが描画されます。

列の幅・高さの計算はパッケージ側が自動処理します。

ggplot_build() で各ブロックの計算済み位置情報（xmin/xmax/ymin/ymax）を取り出し、bind_cols() でデータフレームの「売上比率」と「売上」を結合することで、geom_text() を使ったラベル表示が可能になります。