MESCIUS SPREAD for Windows Forms 15.0J
箱ひげ図

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

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

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

設定方法

  1. シートにデータを設定します。
  2. シートの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;
}
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

 

 


© MESCIUS inc. All rights reserved.