箱ひげ図

箱ひげ図は、データの分散を四分位数で表示します。箱に、垂直の線（ひげ）を追加する場合もあります。この線は、上位四分位点と下位四分位点の範囲外のばらつきを示します。ひげの外側にある点は、外れ値です。箱ひげ図は通常、統計解析に用いられます。

BoxWhiskerSeries、ClusteredBoxWhiskerSeries、およびYPlotAreaクラスを使用して、次の図に示すように、複数の系列から成る箱ひげ図を作成します。

SPREADデザイナまたはチャートデザイナを使用したグラフの作成については、「SPREAD上でのチャートの使用」または「チャートの追加」を参照してください。

設定方法

シートにデータを設定します。
シートのAddChartメソッドを使用して、1.のデータを参照するチャートを追加します。

サンプルコード

次のサンプルコードは、箱ひげ図を作成します。

C#	コードのコピー
fpSpread1.ActiveSheet.Cells[0, 1].Text = "Cheese"; fpSpread1.ActiveSheet.Cells[0, 2].Text = "Store1"; fpSpread1.ActiveSheet.Cells[0, 3].Text = "Store2"; fpSpread1.ActiveSheet.Cells[0, 4].Text = "Store3"; fpSpread1.ActiveSheet.Cells[1, 1].Text = "Asiago"; fpSpread1.ActiveSheet.Cells[2, 1].Text = "Gouda"; fpSpread1.ActiveSheet.Cells[3, 1].Text = "Havarti"; fpSpread1.ActiveSheet.Cells[4, 1].Text = "Swiss"; fpSpread1.ActiveSheet.Cells[5, 1].Text = "Asiago"; fpSpread1.ActiveSheet.Cells[6, 1].Text = "Gouda"; fpSpread1.ActiveSheet.Cells[7, 1].Text = "Havarti"; fpSpread1.ActiveSheet.Cells[8, 1].Text = "Swiss"; fpSpread1.ActiveSheet.Cells[9, 1].Text = "Asiago"; fpSpread1.ActiveSheet.Cells[10, 1].Text = "Gouda"; fpSpread1.ActiveSheet.Cells[11, 1].Text = "Havarti"; fpSpread1.ActiveSheet.Cells[12, 1].Text = "Swiss"; fpSpread1.ActiveSheet.Cells[1, 2].Value = 20; fpSpread1.ActiveSheet.Cells[2, 2].Value = 25; fpSpread1.ActiveSheet.Cells[3, 2].Value = 21; fpSpread1.ActiveSheet.Cells[4, 2].Value = 30; fpSpread1.ActiveSheet.Cells[5, 2].Value = 10; fpSpread1.ActiveSheet.Cells[6, 2].Value = 26; fpSpread1.ActiveSheet.Cells[7, 2].Value = 18; fpSpread1.ActiveSheet.Cells[8, 2].Value = 28; fpSpread1.ActiveSheet.Cells[9, 2].Value = 12; fpSpread1.ActiveSheet.Cells[10, 2].Value = 20; fpSpread1.ActiveSheet.Cells[11, 2].Value = 17; fpSpread1.ActiveSheet.Cells[12, 2].Value = 35; fpSpread1.ActiveSheet.Cells[1, 3].Value = 15; fpSpread1.ActiveSheet.Cells[2, 3].Value = 18; fpSpread1.ActiveSheet.Cells[3, 3].Value = 19; fpSpread1.ActiveSheet.Cells[4, 3].Value = 22; fpSpread1.ActiveSheet.Cells[5, 3].Value = 10; fpSpread1.ActiveSheet.Cells[6, 3].Value = 19; fpSpread1.ActiveSheet.Cells[7, 3].Value = 15; fpSpread1.ActiveSheet.Cells[8, 3].Value = 25; fpSpread1.ActiveSheet.Cells[9, 3].Value = 14; fpSpread1.ActiveSheet.Cells[10, 3].Value = 19; fpSpread1.ActiveSheet.Cells[11, 3].Value = 16; fpSpread1.ActiveSheet.Cells[12, 3].Value = 24; fpSpread1.ActiveSheet.Cells[1, 4].Value = 5; fpSpread1.ActiveSheet.Cells[2, 4].Value = 12; fpSpread1.ActiveSheet.Cells[3, 4].Value = 20; fpSpread1.ActiveSheet.Cells[4, 4].Value = 25; fpSpread1.ActiveSheet.Cells[5, 4].Value = 8; fpSpread1.ActiveSheet.Cells[6, 4].Value = 10; fpSpread1.ActiveSheet.Cells[7, 4].Value = 11; fpSpread1.ActiveSheet.Cells[8, 4].Value = 22; fpSpread1.ActiveSheet.Cells[9, 4].Value = 13; fpSpread1.ActiveSheet.Cells[10, 4].Value = 12; fpSpread1.ActiveSheet.Cells[11, 4].Value = 15; fpSpread1.ActiveSheet.Cells[12, 4].Value = 21; fpSpread1.ActiveSheet.AddChart(new FarPoint.Win.Spread.Model.CellRange(0, 1, 13, 4), typeof(FarPoint.Win.Chart.ClusteredBoxWhiskerSeries), 550, 450, 300, 0); FarPoint.Win.Chart.ClusteredBoxWhiskerSeries cboxseries = (FarPoint.Win.Chart.ClusteredBoxWhiskerSeries)fpSpread1.Sheets[0].Charts[0].Model.PlotAreas[0].Series[0]; foreach(FarPoint.Win.Chart.BoxWhiskerSeries boxseries in cboxseries.Series) { boxseries.ShowInnerPoints = true; boxseries.ShowMeanLine = true; boxseries.ShowMeanMarkers = true; boxseries.ShowOutlierPoints = true; }

コードのコピー

fpSpread1.ActiveSheet.Cells[0, 1].Text = "Cheese";
fpSpread1.ActiveSheet.Cells[0, 2].Text = "Store1";
fpSpread1.ActiveSheet.Cells[0, 3].Text = "Store2";
fpSpread1.ActiveSheet.Cells[0, 4].Text = "Store3";
fpSpread1.ActiveSheet.Cells[1, 1].Text = "Asiago";
fpSpread1.ActiveSheet.Cells[2, 1].Text = "Gouda";
fpSpread1.ActiveSheet.Cells[3, 1].Text = "Havarti";
fpSpread1.ActiveSheet.Cells[4, 1].Text = "Swiss";
fpSpread1.ActiveSheet.Cells[5, 1].Text = "Asiago";
fpSpread1.ActiveSheet.Cells[6, 1].Text = "Gouda";
fpSpread1.ActiveSheet.Cells[7, 1].Text = "Havarti";
fpSpread1.ActiveSheet.Cells[8, 1].Text = "Swiss";
fpSpread1.ActiveSheet.Cells[9, 1].Text = "Asiago";
fpSpread1.ActiveSheet.Cells[10, 1].Text = "Gouda";
fpSpread1.ActiveSheet.Cells[11, 1].Text = "Havarti";
fpSpread1.ActiveSheet.Cells[12, 1].Text = "Swiss";
fpSpread1.ActiveSheet.Cells[1, 2].Value = 20;
fpSpread1.ActiveSheet.Cells[2, 2].Value = 25;
fpSpread1.ActiveSheet.Cells[3, 2].Value = 21;
fpSpread1.ActiveSheet.Cells[4, 2].Value = 30;
fpSpread1.ActiveSheet.Cells[5, 2].Value = 10;
fpSpread1.ActiveSheet.Cells[6, 2].Value = 26;
fpSpread1.ActiveSheet.Cells[7, 2].Value = 18;
fpSpread1.ActiveSheet.Cells[8, 2].Value = 28;
fpSpread1.ActiveSheet.Cells[9, 2].Value = 12;
fpSpread1.ActiveSheet.Cells[10, 2].Value = 20;
fpSpread1.ActiveSheet.Cells[11, 2].Value = 17;
fpSpread1.ActiveSheet.Cells[12, 2].Value = 35;
fpSpread1.ActiveSheet.Cells[1, 3].Value = 15;
fpSpread1.ActiveSheet.Cells[2, 3].Value = 18;
fpSpread1.ActiveSheet.Cells[3, 3].Value = 19;
fpSpread1.ActiveSheet.Cells[4, 3].Value = 22;
fpSpread1.ActiveSheet.Cells[5, 3].Value = 10;
fpSpread1.ActiveSheet.Cells[6, 3].Value = 19;
fpSpread1.ActiveSheet.Cells[7, 3].Value = 15;
fpSpread1.ActiveSheet.Cells[8, 3].Value = 25;
fpSpread1.ActiveSheet.Cells[9, 3].Value = 14;
fpSpread1.ActiveSheet.Cells[10, 3].Value = 19;
fpSpread1.ActiveSheet.Cells[11, 3].Value = 16;
fpSpread1.ActiveSheet.Cells[12, 3].Value = 24;
fpSpread1.ActiveSheet.Cells[1, 4].Value = 5;
fpSpread1.ActiveSheet.Cells[2, 4].Value = 12;
fpSpread1.ActiveSheet.Cells[3, 4].Value = 20;
fpSpread1.ActiveSheet.Cells[4, 4].Value = 25;
fpSpread1.ActiveSheet.Cells[5, 4].Value = 8;
fpSpread1.ActiveSheet.Cells[6, 4].Value = 10;
fpSpread1.ActiveSheet.Cells[7, 4].Value = 11;
fpSpread1.ActiveSheet.Cells[8, 4].Value = 22;
fpSpread1.ActiveSheet.Cells[9, 4].Value = 13;
fpSpread1.ActiveSheet.Cells[10, 4].Value = 12;
fpSpread1.ActiveSheet.Cells[11, 4].Value = 15;
fpSpread1.ActiveSheet.Cells[12, 4].Value = 21;
fpSpread1.ActiveSheet.AddChart(new FarPoint.Win.Spread.Model.CellRange(0, 1, 13, 4), typeof(FarPoint.Win.Chart.ClusteredBoxWhiskerSeries), 550, 450, 300, 0);
FarPoint.Win.Chart.ClusteredBoxWhiskerSeries cboxseries = (FarPoint.Win.Chart.ClusteredBoxWhiskerSeries)fpSpread1.Sheets[0].Charts[0].Model.PlotAreas[0].Series[0];
foreach(FarPoint.Win.Chart.BoxWhiskerSeries boxseries in cboxseries.Series)
{
    boxseries.ShowInnerPoints = true;
    boxseries.ShowMeanLine = true;
    boxseries.ShowMeanMarkers = true;
    boxseries.ShowOutlierPoints = true;
}

Visual Basic	コードのコピー
FpSpread1.ActiveSheet.Cells(0, 1).Text = "Cheese" FpSpread1.ActiveSheet.Cells(0, 2).Text = "Store1" FpSpread1.ActiveSheet.Cells(0, 3).Text = "Store2" FpSpread1.ActiveSheet.Cells(0, 4).Text = "Store3" FpSpread1.ActiveSheet.Cells(1, 1).Text = "Asiago" FpSpread1.ActiveSheet.Cells(2, 1).Text = "Gouda" FpSpread1.ActiveSheet.Cells(3, 1).Text = "Havarti" FpSpread1.ActiveSheet.Cells(4, 1).Text = "Swiss" FpSpread1.ActiveSheet.Cells(5, 1).Text = "Asiago" FpSpread1.ActiveSheet.Cells(6, 1).Text = "Gouda" FpSpread1.ActiveSheet.Cells(7, 1).Text = "Havarti" FpSpread1.ActiveSheet.Cells(8, 1).Text = "Swiss" FpSpread1.ActiveSheet.Cells(9, 1).Text = "Asiago" FpSpread1.ActiveSheet.Cells(10, 1).Text = "Gouda" FpSpread1.ActiveSheet.Cells(11, 1).Text = "Havarti" FpSpread1.ActiveSheet.Cells(12, 1).Text = "Swiss" FpSpread1.ActiveSheet.Cells(1, 2).Value = 20 FpSpread1.ActiveSheet.Cells(2, 2).Value = 25 FpSpread1.ActiveSheet.Cells(3, 2).Value = 21 FpSpread1.ActiveSheet.Cells(4, 2).Value = 30 FpSpread1.ActiveSheet.Cells(5, 2).Value = 10 FpSpread1.ActiveSheet.Cells(6, 2).Value = 26 FpSpread1.ActiveSheet.Cells(7, 2).Value = 18 FpSpread1.ActiveSheet.Cells(8, 2).Value = 28 FpSpread1.ActiveSheet.Cells(9, 2).Value = 12 FpSpread1.ActiveSheet.Cells(10, 2).Value = 20 FpSpread1.ActiveSheet.Cells(11, 2).Value = 17 FpSpread1.ActiveSheet.Cells(12, 2).Value = 35 FpSpread1.ActiveSheet.Cells(1, 3).Value = 15 FpSpread1.ActiveSheet.Cells(2, 3).Value = 18 FpSpread1.ActiveSheet.Cells(3, 3).Value = 19 FpSpread1.ActiveSheet.Cells(4, 3).Value = 22 FpSpread1.ActiveSheet.Cells(5, 3).Value = 10 FpSpread1.ActiveSheet.Cells(6, 3).Value = 19 FpSpread1.ActiveSheet.Cells(7, 3).Value = 15 FpSpread1.ActiveSheet.Cells(8, 3).Value = 25 FpSpread1.ActiveSheet.Cells(9, 3).Value = 14 FpSpread1.ActiveSheet.Cells(10, 3).Value = 19 FpSpread1.ActiveSheet.Cells(11, 3).Value = 16 FpSpread1.ActiveSheet.Cells(12, 3).Value = 24 FpSpread1.ActiveSheet.Cells(1, 4).Value = 5 FpSpread1.ActiveSheet.Cells(2, 4).Value = 12 FpSpread1.ActiveSheet.Cells(3, 4).Value = 20 FpSpread1.ActiveSheet.Cells(4, 4).Value = 25 FpSpread1.ActiveSheet.Cells(5, 4).Value = 8 FpSpread1.ActiveSheet.Cells(6, 4).Value = 10 FpSpread1.ActiveSheet.Cells(7, 4).Value = 11 FpSpread1.ActiveSheet.Cells(8, 4).Value = 22 FpSpread1.ActiveSheet.Cells(9, 4).Value = 13 FpSpread1.ActiveSheet.Cells(10, 4).Value = 12 FpSpread1.ActiveSheet.Cells(11, 4).Value = 15 FpSpread1.ActiveSheet.Cells(12, 4).Value = 21 FpSpread1.ActiveSheet.AddChart(New FarPoint.Win.Spread.Model.CellRange(0, 1, 13, 4), GetType(FarPoint.Win.Chart.ClusteredBoxWhiskerSeries), 550, 450, 300, 0) Dim cboxseries As FarPoint.Win.Chart.ClusteredBoxWhiskerSeries = DirectCast(FpSpread1.Sheets(0).Charts(0).Model.PlotAreas(0).Series(0), FarPoint.Win.Chart.ClusteredBoxWhiskerSeries) For Each boxseries As FarPoint.Win.Chart.BoxWhiskerSeries In cboxseries.Series boxseries.ShowInnerPoints = True boxseries.ShowMeanLine = True boxseries.ShowMeanMarkers = True boxseries.ShowOutlierPoints = True Next

Visual Basic

コードのコピー

FpSpread1.ActiveSheet.Cells(0, 1).Text = "Cheese"
FpSpread1.ActiveSheet.Cells(0, 2).Text = "Store1"
FpSpread1.ActiveSheet.Cells(0, 3).Text = "Store2"
FpSpread1.ActiveSheet.Cells(0, 4).Text = "Store3"
FpSpread1.ActiveSheet.Cells(1, 1).Text = "Asiago"
FpSpread1.ActiveSheet.Cells(2, 1).Text = "Gouda"
FpSpread1.ActiveSheet.Cells(3, 1).Text = "Havarti"
FpSpread1.ActiveSheet.Cells(4, 1).Text = "Swiss"
FpSpread1.ActiveSheet.Cells(5, 1).Text = "Asiago"
FpSpread1.ActiveSheet.Cells(6, 1).Text = "Gouda"
FpSpread1.ActiveSheet.Cells(7, 1).Text = "Havarti"
FpSpread1.ActiveSheet.Cells(8, 1).Text = "Swiss"
FpSpread1.ActiveSheet.Cells(9, 1).Text = "Asiago"
FpSpread1.ActiveSheet.Cells(10, 1).Text = "Gouda"
FpSpread1.ActiveSheet.Cells(11, 1).Text = "Havarti"
FpSpread1.ActiveSheet.Cells(12, 1).Text = "Swiss"
FpSpread1.ActiveSheet.Cells(1, 2).Value = 20
FpSpread1.ActiveSheet.Cells(2, 2).Value = 25
FpSpread1.ActiveSheet.Cells(3, 2).Value = 21
FpSpread1.ActiveSheet.Cells(4, 2).Value = 30
FpSpread1.ActiveSheet.Cells(5, 2).Value = 10
FpSpread1.ActiveSheet.Cells(6, 2).Value = 26
FpSpread1.ActiveSheet.Cells(7, 2).Value = 18
FpSpread1.ActiveSheet.Cells(8, 2).Value = 28
FpSpread1.ActiveSheet.Cells(9, 2).Value = 12
FpSpread1.ActiveSheet.Cells(10, 2).Value = 20
FpSpread1.ActiveSheet.Cells(11, 2).Value = 17
FpSpread1.ActiveSheet.Cells(12, 2).Value = 35
FpSpread1.ActiveSheet.Cells(1, 3).Value = 15
FpSpread1.ActiveSheet.Cells(2, 3).Value = 18
FpSpread1.ActiveSheet.Cells(3, 3).Value = 19
FpSpread1.ActiveSheet.Cells(4, 3).Value = 22
FpSpread1.ActiveSheet.Cells(5, 3).Value = 10
FpSpread1.ActiveSheet.Cells(6, 3).Value = 19
FpSpread1.ActiveSheet.Cells(7, 3).Value = 15
FpSpread1.ActiveSheet.Cells(8, 3).Value = 25
FpSpread1.ActiveSheet.Cells(9, 3).Value = 14
FpSpread1.ActiveSheet.Cells(10, 3).Value = 19
FpSpread1.ActiveSheet.Cells(11, 3).Value = 16
FpSpread1.ActiveSheet.Cells(12, 3).Value = 24
FpSpread1.ActiveSheet.Cells(1, 4).Value = 5
FpSpread1.ActiveSheet.Cells(2, 4).Value = 12
FpSpread1.ActiveSheet.Cells(3, 4).Value = 20
FpSpread1.ActiveSheet.Cells(4, 4).Value = 25
FpSpread1.ActiveSheet.Cells(5, 4).Value = 8
FpSpread1.ActiveSheet.Cells(6, 4).Value = 10
FpSpread1.ActiveSheet.Cells(7, 4).Value = 11
FpSpread1.ActiveSheet.Cells(8, 4).Value = 22
FpSpread1.ActiveSheet.Cells(9, 4).Value = 13
FpSpread1.ActiveSheet.Cells(10, 4).Value = 12
FpSpread1.ActiveSheet.Cells(11, 4).Value = 15
FpSpread1.ActiveSheet.Cells(12, 4).Value = 21
FpSpread1.ActiveSheet.AddChart(New FarPoint.Win.Spread.Model.CellRange(0, 1, 13, 4), GetType(FarPoint.Win.Chart.ClusteredBoxWhiskerSeries), 550, 450, 300, 0)
Dim cboxseries As FarPoint.Win.Chart.ClusteredBoxWhiskerSeries = DirectCast(FpSpread1.Sheets(0).Charts(0).Model.PlotAreas(0).Series(0), FarPoint.Win.Chart.ClusteredBoxWhiskerSeries)
For Each boxseries As FarPoint.Win.Chart.BoxWhiskerSeries In cboxseries.Series
    boxseries.ShowInnerPoints = True
    boxseries.ShowMeanLine = True
    boxseries.ShowMeanMarkers = True
    boxseries.ShowOutlierPoints = True
Next