農業分野におけるコンジョイント分析の先行研究の紹介

本研究での方法① プロファイルの作成

 価格、色、荷姿、機能性の表示などの消費者評価

完全プロファイル評定型

・完全プロファイル評定型
緑茶（栗原，2002） 枝豆、ほうれん草、マンゴ（下山，2001）など
・選択型
産地表示（大浦，2002） ほうれん草の機能性（諫山，2003）など

属 性

水準１水準２水準３

商品説明の表示

表示なし

表示あり

−

軟らかさ

なし

あり

−

価 格

550円

600円

650円

販売時の形態

青ネギタイプ

現行タイプ

−

栽培方法

減農薬・減化学普通栽培−

 農産物の生産地等の表示内容の経済価値評価
・選択型
生鮮野菜のトレーサビリティ機能の表示（合崎，2003） 農業者による開発技術などの評価
・選択型
高設いちご栽培技術の多面的評価（仲，2002）

４８通りの岩津ネギ組み合わせ 直交表など

関西SASユーザー会 2005

9調査票 （提示方法）〈番 号項目

岩津ねぎの特徴
軟らかさ
価 格（kg当）タイプ（長さ・太さ）
栽培方法

〈番 号

〈番 号

【１つにレ入れる】

内容

絶対購入したいやや購入したいどちらでもない

５点
４点
３点
どちらかといえば買わない２点
絶対買わない
１点

２ 〉

岩津ねぎの特徴
軟らかさ
袋当たり 価 格タイプ（長さ・太さ）
栽培方法

岩津ねぎの特徴
軟らかさ
袋当たり 価 格タイプ（長さ・太さ）

表示無し
ない
５５０円
青ねぎ （50cm0.5cm）

絶対購入したいやや購入したいどちらでもない

どちらかといえば買わない２点

岩津ねぎの特徴
軟らかさ
袋当たり 価 格タイプ（長さ・太さ）

栽培方法

減農薬・減化学肥料栽培

絶対買わない

栽培方法

〈番 号

３ 〉

５点
４点
３点
１点

表示有り
ある
５５０円
青ねぎ （50cm0.5cm）

絶対購入したいやや購入したいどちらでもない

５点
４点
３点
どちらかといえば買わない２点

岩津ねぎの特徴
軟らかさ
袋当たり 価 格タイプ（長さ・太さ）

栽培方法

減農薬・減化学肥料栽培

絶対買わない栽培方法〈番 号
岩津ねぎの特徴
軟らかさ
袋当たり 価 格タイプ（長さ・太さ）
栽培方法

４ 〉

表示無し
ない
６００円
現行どおり（85cm1.5cm）
普通栽培

１点

【１つにレ入れる】
５点
４点
３点
ど ちらかといえ ば買わない ２点
絶対買わない１点【１つにレ入れる】
絶対購入したいやや購入したいどちら でもない
絶対買わない１点

絶対買わない絶対購入したい

（５点）

軟らかさ

やや購入したい

（４点）

600 円

どちらでもない（３点）

タイプ（長さ・太さ）

現行どおり（85cm・1.5cm）

栽培方法

普通栽培

５点
４点
３点
ど ちらかといえ ば買わない ２点

８ 〉

表示あり
ある

【１つにレ入れる】

１点【１つにレ入れる】

岩津ねぎの特徴
軟らかさ
袋当たり 価 格タイプ（長さ・太さ）

表示無し
ある６００円
現行どおり（85cm1.5cm）

絶対購入したいやや購入したいどちら でもない

５点
４点
３点
ど ちらかといえ ば買わない ２点

絶対買わない

栽培方法

減農薬・減化学肥料栽培

絶対買わない【１つに○印入れてください】

商品説明
価 格
（1ｋｇ当たり）

絶対購入したいやや購入したいどちら でもない

５点
４点
３点
どちらかといえば買わない２点
１点

５点
４点
３点

ど ちらかといえ ば買わない ２点

７ 〉

表示有り
ない
６００円
青ねぎ （50cm 0.5cm）
普通栽培〈番 号 １〉

絶対購入したいやや購入したいどちら でもない６ 〉

表示無し
ある
６５０円
青ねぎ （50cm 0.5cm）
普通栽培

〈番 号

【１つにレ入れる】
絶対購入したいやや購入したいどちらでもない

減農薬・減化学肥料栽培〈番 号【１つにレ入れる】

岩津ねぎの特徴
軟らかさ
袋当たり 価 格タイプ（長さ・太さ）５ 〉

表示有り
ない６５０円
現行どおり（85cm1.5cm）〈番 号【１つにレ入れる】

10② データ計算方法

もしも、店頭で、このような岩津ねぎがあれば、購入するかどうか、直感的にご記入下さい。

１ 〉

表示有り
ある６００円
現行どおり（85cm1.5cm）
普通栽培

関西SASユーザー会 2005

本研究での方法

アンケート② 番号１から番号8まで、8個の岩津ねぎを示しました。 ８個すべてに、あなたの購買意向をレ印（チェック）で入れてください。
左に項目、右にその内容を組み合わせて、 １種類の岩津ねぎを示しています。

８通りの岩津ネギ

β０ ＋

β１

β３

β２

Ａ ＋β４

β５

どちらかといえば買わない（２点）
絶対買わないβ８Ｓ＋ β６ Ｐ ＋ β

β 10

Ｔ ＋９β 11

β7

１点（１点）

５段階評定
Ｍ = 尺度値

アンケート調査に最後までご協力いただき、たいへんありがとうございました。
お手数ですが、同封の返信用封筒にて、郵便ポストへ、２月末日までに、ご投函いただければ幸いです。

・最小２乗法でβ０〜β１１を推定
関西SASユーザー会 2005

11

・同一属性内、水準の平均値はゼロ

関西SASユーザー会 2005

123

本研究での結果概要

本研究での方法③ 予測選好シェアの算出方法

岩津ネギ購入者を対象に調査実施

 水準をすべて組み合わせた４８通りの岩津ネギの中で５段階評定尺度値の大きいものから順位付け
 ５段階評定尺度値４以上（購入意向が『やや購入したい』と『絶対購入したい』）のプロファイルを確保
 残存プロファイルの順位順に４８点から点数を付与
 プロファイル毎に点数を合計
規格外品 予測選好シェア（％）

規格外品の水準が含んでいるプロファイルの点数＝×100

４８枚のプロファイルの総点数
関西SASユーザー会 2005

13

調査日：２００３年１２月２３日
所： 「道の駅 フレッシュ朝来」直売所□ 調査対象者：岩津ネギ購入者（125人） に配布□ 場

機縁法：有効回答数４４人（有効回答率３５．２％）
項 目
30 歳 代性 男 性 2 (4.5)
女 性 7 (15.9)
別 不 明 1 (2.3)
居 兵庫県 7 (15.9)
住 大阪府 2 (4.5)
地 その他 1 (2.3)
全 体 10 (22.7)

40 歳 代1 (2.3)4 (9.1)‑ （‑）
5 (11.4)
‑ (‑)
‑ （‑）
5 (11.4)

50 歳 代
6 (13.6)
10 (22.7)‑ （‑）
11 (25.0)
5 (11.4)‑ （‑）
16 (36.4)

60 歳 代
5 (11.4)
6 (13.6)‑ （‑）
9 (20.5)
2 (4.5)‑ （‑）
11 (25.0)

不 明
‑ (‑)
‑ (‑)
2 (4.5)‑ (‑)‑ (‑)
2 (4.5)2 (4.5)合 計
14 (31.8)
27 (61.4)
3 (6.8)32 (72.7)
9 (20.5)
3 (6.8)44 (100.0)

関西SASユーザー会 2005

14

従来のコンジョイント分析の結果

従来のコンジョイント分析の結果①回答データをプーリングして行った分析結果
０．３６

属性別 水準の部分効用値□②プーリングした場合の予測選好シェア
属性

予測した評定尺度値

0.50
0.40

商品説 軟らか評定尺
価格 タイプ
栽培法
明
さ度値◎ 表示あり 有り 550円現行どおり特別栽培 4.30
× 表示あり 有り 550円現行どおり普通栽培 3.98
× 表示あり 有り 600円現行どおり特別栽培 3.85
× 表示あり 有り 550円 青ねぎ 特別栽培 3.84
× 表示なし 有り 550円現行どおり特別栽培 3.81
× 表示あり 有り 600円現行どおり普通栽培 3.53
× 表示あり 有り 550円 青ねぎ 普通栽培 3.520.30
0.20
0.10-0.30

商品説明

軟らかさ

価格

タイプ

通特 栽培
別栽
培

普0円

現行
ど
青 おり
ねぎ0円

6560

し550円

り

無有

表-0.20

示
表 あり示
なし

0.00
-0.10

栽培法

-0.40

購入の意向＝５段階評定尺度値４「やや購入したい」以上-0.50

規格外品である青ネギタイプのシェアは０％
関西SASユーザー会 200515

関西SASユーザー会 2005164

コンジョイント分析の結果

コンジョイント分析の結果② 規格外品の予測選好シェア① 回答者毎の選好を反映

規格外品の価格シミュレーション「やや購入したい」以上のプロファイル数は、個人毎にばらついている
プロファイル数

総プロファイル数は４８枚

0枚
１〜56〜10
11〜15
16〜20
21〜25
26〜30
31〜3536〜40
合 計
平 均
最 大
最 小

人 数
3141645101044人
8.3枚/人34枚/人0枚/人

前提条件

比率 %・６００円固定
・商品説明の表示なし
・普通栽培

・普通栽培

規格外品の予測選好シェア
規格外品の価格
判 明！！

650円

600円

550円

0.0% 58.0% 78.9%
規格外品が受け入れられた

関西SASユーザー会 200517

関西SASユーザー会 2005

18

プロファイルの作成

JMPの活用法（JMPユーザの皆様）

カスタム計画を活用□ コンジョイント分析

・プロファイルの作成
・パラメータの推定

規格外品・商品説明の表示あり

規格品

6.8
31.8
36.4
9.0
11.4
2.3
0.0
2.3
0.0
100.0

カスタム計画
モデルのあてはめ
標準最小２乗法□ 分析の自動化

・４４人のサンプル毎パラ
メータの推定と結果収集

ＪＳＬスクリプトの活用

・JSL（スクリプト言語）作成の省力

VBAによるJSLの作成

関西SASユーザー会 200519

関西SASユーザー会 2005

205

ＪＳＬ（スクリプト言語）による自動化を実現

ＪＳＬ（スクリプト言語）の内容
部分効用値の取得①

モデルのあてはめ で計算後、 尺度化した推定値 （部分効用値）を行列とし８枚プロファイル

手動入力

回答データて取得② 取得した行列をデータテーブルに保存

自動化！
各回答者の部分効用値
各回答者③

関西SASユーザー会 2005

計算式 を活用するため行列を 転置

関西SASユーザー会 2005

2122

VBAプログラムの内容

ＪＳＬ（スクリプト言語）の具体的内容/* 回答者ｎ */MDL=モデルのあてはめ(Y( :回答者ｎ), 効果( :商品説明の表示, :軟らかさ, :価格, :販売形態,:栽培方法), 手法(標準最小2乗), 強調点(要因のスクリーニング), モデルの実行(プロファイル(1, 項の値(商品説明の表示("表示あり"), 軟らかさ("なし"), 価格("550円"), 販売形態("現行どおり"),栽培方法("減農薬 減化学"))), :回答者ｎ << {尺度化した推定値(1)}));
COL=(MDL<<report)["尺度化した推定値",Column Box("尺度化した推定値")];
Tokuten0=Tokuten;
Tokuten=COL<<Get As Matrix;
Tokuten=Concat(Tokuten0,Tokuten);
MDL<<Close Window();
Win=Window("モデルのあてはめ");Win<<Close Window();'‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑'
セルへの代入(２番目以降の回答者の処理）'‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑

Private Sub CommandButton1̲Click()'‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑'
配列の宣言文'‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑
Dim ModelTxtHD, ModelTxtMD, ModelTxtTL, ScrTmpSave As String
Dim ScrReplace, ScrPickScore, ScrConcat, ScrWindowCntl(3) As String
Dim ScrHdrTxt(2), ScrTran(2), ScrTran, ScrCol As String
Dim i, j, SmpNum As Integer
汎用的に利用する文字列を変数に代入しておき，この変数の内容をセルに代入することでスクリプ'‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑'
Script作成に必要な要素の代入 トを作成する．下線部分はJMPでスクリプトを作'‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑
成してその一部を利用している．ここでは回答者
ScrHdrTxt(1) = "/* 回答者"
番号以外の部分を配列に保存している．
ScrHdrTxt(2) = " */"ModelTxtHD = "MDL=モデルのあてはめ(Y( :回答者"ModelTxtMD = "), 効果( :列1, :列2, :列3, :列4, :列5), 手法(標準最小2乗),強調点(要因のスクリーニング), モデルの実行(プロファイル(1, 項の値(列1(""表示あり""), 列2(""なし""), 列3(""550円""), 列4(""現行どおり""),列5(""特別""))), :回答者"
ModelTxtTL = " << {尺度化した推定値(1)}));"
ScrTmpSave = "TokutenO=Tokuten;"ScrPickScore ̲="COL=(MDL<<report)[""尺度化した推定値"",ColumnBox(""尺度化した推定値"")];"
ScrReplace = "Tokuten=COL<<GetAsMatrix;"
ScrConcat = "Tokuten=Concat(TokutenO,Tokuten);"
ScrWindowCntl(1) = "MDL<<CloseWindow();"
ScrWindowCntl(2) = "Win=Window(""モデルのあてはめ"");"
ScrWindowCntl(3) = "Win<<CloseWindow();"
ScrCol = ":列"'‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑
表示させたフォームからスクリプ' フォーム上のテキストボックスからの値の取得'‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑
トを作成する回数(回答者数)を取得
SmpNum = CInt(UserForm1.TextBox1.Text)
し，SmpNumに代入する．
'‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑'
セルへの代入(1番目の回答者の処理）'‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑/* データテーブルへ保存 */New Table("Pwf Matrix", Set Matrix(Tokuten));
Data Table("Pwf Matrix") << 転置(列( :列1, :列2, :列3, ･････ ,:列n ))Worksheets("Script").Cells(1, 1)=ScrHdrTxt(1)+"1"+ScrHdrTxt(2)Worksheets("Script").Cells(2, 1)=ModelTxtHD+"1"+ModelTxtMD+"1"+ModelTxtTL
Worksheets("Script").Cells(3, 1)=ScrPickScore
Worksheets("Script").Cells(4, 1)=ScrReplace
Worksheets("Script").Cells(5, 1)=ScrWindowCntl(1)Worksheets("Script").Cells(6, 1)=ScrWindowCntl(2)Worksheets("Script").Cells(7, 1)=ScrWindowCntl(3)
1番目と2番目以降でスクリプトが異If SmpNum > 1 Then'For i = 2 To SmpNum
j= i ‑1
Worksheets("Script").Cells(j * 10 + 1, 1) = ScrHdrTxt(1)+CStr(i)+ScrHdrTxt(2)Worksheets("Script").Cells(j*10+ 2, 1) =ModelTxtHD+CStr(i)+ModelTxtMD+CStr(i)̲
+ ModelTxtTL
Worksheets("Script").Cells(j * 10 + 3, 1) = ScrPickScore
Worksheets("Script").Cells(j * 10 + 4, 1) = ScrTmpSave
Worksheets("Script").Cells(j * 10 + 5, 1) = ScrReplace
Worksheets("Script").Cells(j * 10 + 6, 1) = ScrConcat
Worksheets("Script").Cells(j * 10 + 7, 1) = ScrWindowCntl(1)Worksheets("Script").Cells(j * 10 + 8, 1) = ScrWindowCntl(2)Worksheets("Script").Cells(j * 10 + 9, 1) = ScrWindowCntl(3)'セルに順次値を保存し、スクリプトの内容をセルに表示させる
NextEnd If'‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑'
転置作業に関するスクリプトの記入'‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑
Worksheets("Script").Cells(j*10+11,1) ̲="DataTbl=New Table(""PwfMatrix "",Set Matrix(Tokuten)); "For i = 1 To SmpNum
PwfMatrixというデータテーブルを作成
ScrTran = ScrTran + ScrCol + CStr(i)するためのスクリプトおよびこのデータ
If i < SmpNum Then
ScrTran = ScrTran + ", "テーブルを転置するためのスクリプトをEnd If
変数ScrTranに代入した上で、最終的なNextスクリプトとしてセルに代入している．
Worksheets("Script").Cells(j * 10 + 12, 1) ̲= "Data Table(""Pwf Matrix"") << 転置(列( " + ScrTran + "))"

スクリプト自体をWindowsのメ'‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑
モリにコピーし，その後で表示さ'スクリプトのメモリへのコピー'‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑
せているフォームを閉じる．
Worksheets("Script").Range(Cells(1, 1), ̲Cells(SmpNum * 10 + 3, 1)).SelectUnload UserForm1
End Subなるので，まず，1番目のスクリプトの内容をセルに順次代入する．

関西SASユーザー会 200523

関西SASユーザー会 2005

24

6

VBAプログラムの作成

まとめ１ （研究成果）□ＪＳＬ（スクリプト言語）における手動入力の省力□ 商品説明の表示が重要
現在、この表示のみ□

この表示は廃止

ワン・クリックでJSL（スクリプト言語）の発生
この表示が重要！！

今回ならば４４を入力□ ＪＡ 規格外品の販売に関心示す
無作為サンプルによる再調査の依頼、規格外品の市場化実験計画中
関西SASユーザー会 2005

まとめ２ （研究成果）

26

今後の課題

□ ＪＭＰでコンジョイント分析実証 無作為サンプルによる代表性を確保した調査の実施□ JSL、ＶＢＡにより大量のサンプルへの対応も可能

 規格外品の試験販売の調査
分析
ＪＡたじま（岩津ネギ生産者）
・平成17年10月４日〜
・kg当たり600〜400円で取引
・姫路市内の特定店で販売

他調査において６３９サンプルで確認済み

関西SASユーザー会 2005

関西SASユーザー会 2005

2527

関西SASユーザー会 2005287

ご清聴ありがとうございました
ご意見、ご質問、ございましたら下記のアドレスまでお願いします
Masanobu_Katou@pref.hyogo.jp

関西SASユーザー会 2005

298