パレート図

パレート図には、棒グラフと折れ線グラフの両方が含まれます。個々の値は降順で棒グラフによって表され、累計が折れ線グラフによって表されます。パレート図は、一連の値の中で、最も重要な項目を際立たせるために使用します。

パレート図を作成するには、ParetoSeriesクラスおよびYPlotAreaクラスを使用します。

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

設定方法

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

サンプルコード

次のサンプルコードは、パレート図を作成します。

C#	コードのコピー
fpSpread1.ActiveSheet.Cells[0, 1].Text = "Test Score"; fpSpread1.ActiveSheet.SetClipValue(1, 0, 13, 1, "Class1\r\nClass1\r\nClass2\r\nClass2\r\nClass3\r\nClass2\r\nClass3\r\nClass2\r\nClass3\r\nClass2\r\nClass2\r\nClass3"); fpSpread1.ActiveSheet.SetClipValue(1, 1, 13, 1, "20\r\n35\r\n40\r\n55\r\n80\r\n60\r\n61\r\n85\r\n60\r\n60\r\n64\r\n75"); fpSpread1.ActiveSheet.AddChart(new FarPoint.Win.Spread.Model.CellRange(0, 0, 13, 2), typeof(FarPoint.Win.Chart.ParetoSeries), 400, 300, 150, 0); FarPoint.Win.Chart.ParetoSeries s = (FarPoint.Win.Chart.ParetoSeries)fpSpread1.ActiveSheet.Charts[0].Model.PlotAreas[0].Series[0]; s.BinOption.BinSize = 29;

コードのコピー

fpSpread1.ActiveSheet.Cells[0, 1].Text = "Test Score";
fpSpread1.ActiveSheet.SetClipValue(1, 0, 13, 1, "Class1\r\nClass1\r\nClass2\r\nClass2\r\nClass3\r\nClass2\r\nClass3\r\nClass2\r\nClass3\r\nClass2\r\nClass2\r\nClass3");
fpSpread1.ActiveSheet.SetClipValue(1, 1, 13, 1, "20\r\n35\r\n40\r\n55\r\n80\r\n60\r\n61\r\n85\r\n60\r\n60\r\n64\r\n75");
fpSpread1.ActiveSheet.AddChart(new FarPoint.Win.Spread.Model.CellRange(0, 0, 13, 2), typeof(FarPoint.Win.Chart.ParetoSeries), 400, 300, 150, 0);
FarPoint.Win.Chart.ParetoSeries s = (FarPoint.Win.Chart.ParetoSeries)fpSpread1.ActiveSheet.Charts[0].Model.PlotAreas[0].Series[0];
s.BinOption.BinSize = 29;

Visual Basic	コードのコピー
FpSpread1.ActiveSheet.Cells(0, 1).Text = "Test Score" FpSpread1.ActiveSheet.SetClipValue(1, 0, 13, 1, "Class1" & vbCr & vbLf & "Class1" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class3" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class3" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class3" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class3") FpSpread1.ActiveSheet.SetClipValue(1, 1, 13, 1, "20" & vbCr & vbLf & "35" & vbCr & vbLf & "40" & vbCr & vbLf & "55" & vbCr & vbLf & "80" & vbCr & vbLf & "60" & vbCr & vbLf & "61" & vbCr & vbLf & "85" & vbCr & vbLf & "60" & vbCr & vbLf & "60" & vbCr & vbLf & "64" & vbCr & vbLf & "75") FpSpread1.ActiveSheet.AddChart(New FarPoint.Win.Spread.Model.CellRange(0, 0, 13, 2), GetType(FarPoint.Win.Chart.ParetoSeries), 400, 300, 150, 0) Dim s As FarPoint.Win.Chart.ParetoSeries = DirectCast(FpSpread1.ActiveSheet.Charts(0).Model.PlotAreas(0).Series(0), FarPoint.Win.Chart.ParetoSeries) s.BinOption.BinSize = 29

Visual Basic

コードのコピー

FpSpread1.ActiveSheet.Cells(0, 1).Text = "Test Score"
FpSpread1.ActiveSheet.SetClipValue(1, 0, 13, 1, "Class1" & vbCr & vbLf & "Class1" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class3" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class3" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class3" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class2" & vbCr & vbLf & "Class3")
FpSpread1.ActiveSheet.SetClipValue(1, 1, 13, 1, "20" & vbCr & vbLf & "35" & vbCr & vbLf & "40" & vbCr & vbLf & "55" & vbCr & vbLf & "80" & vbCr & vbLf & "60" & vbCr & vbLf & "61" & vbCr & vbLf & "85" & vbCr & vbLf & "60" & vbCr & vbLf & "60" & vbCr & vbLf & "64" & vbCr & vbLf & "75")
FpSpread1.ActiveSheet.AddChart(New FarPoint.Win.Spread.Model.CellRange(0, 0, 13, 2), GetType(FarPoint.Win.Chart.ParetoSeries), 400, 300, 150, 0)
Dim s As FarPoint.Win.Chart.ParetoSeries = DirectCast(FpSpread1.ActiveSheet.Charts(0).Model.PlotAreas(0).Series(0), FarPoint.Win.Chart.ParetoSeries)
s.BinOption.BinSize = 29