ChartDirector 6.2 (.NET Edition)

Stacked Rose Chart




This example demonstrates how to create a stacked rose chart.

This example employs the same approach as the previous Simple Rose Chart example. It creates a PolarChart object as the graph paper, and adding sector zones on it using AngularAxis.addZone. A transparent line layer is used for enabling auto-scaling.

In this example, multiple sectors are added for each angular direction, creating a "stacked" effect.

Source Code Listing

[Windows Forms - C# version] NetWinCharts\CSharpWinCharts\stackrose.cs
using System;
using ChartDirector;

namespace CSharpChartExplorer
{
    public class stackrose : DemoModule
    {
        //Name of demo module
        public string getName() { return "Stacked Rose Chart"; }

        //Number of charts produced in this demo module
        public int getNoOfCharts() { return 1; }

        //Main code for creating chart.
        //Note: the argument chartIndex is unused because this demo only has 1 chart.
        public void createChart(WinChartViewer viewer, int chartIndex)
        {
            // Data for the chart
            double[] data0 = {5, 3, 10, 4, 3, 5, 2, 5};
            double[] data1 = {12, 6, 17, 6, 7, 9, 4, 7};
            double[] data2 = {17, 7, 22, 7, 18, 13, 5, 11};

            double[] angles = {0, 45, 90, 135, 180, 225, 270, 315};
            string[] labels = {"North", "North\nEast", "East", "South\nEast", "South",
                "South\nWest", "West", "North\nWest"};

            // Create a PolarChart object of size 460 x 500 pixels, with a grey (e0e0e0) background
            // and a 1 pixel 3D border
            PolarChart c = new PolarChart(460, 500, 0xe0e0e0, 0x000000, 1);

            // Add a title to the chart at the top left corner using 15pt Arial Bold Italic font.
            // Use white text on deep blue background.
            c.addTitle("Wind Direction", "Arial Bold Italic", 15, 0xffffff).setBackground(0x000080);

            LegendBox legendBox = c.addLegend(230, 35, false, "Arial Bold", 9);
            legendBox.setAlignment(Chart.TopCenter);
            legendBox.setBackground(Chart.Transparent, Chart.Transparent, 1);

            legendBox.addKey("5 m/s or above", 0xff3333);
            legendBox.addKey("1 - 5 m/s", 0x33ff33);
            legendBox.addKey("less than 1 m/s", 0x3333ff);

            // Set plot area center at (230, 280) with radius 180 pixels and white background
            c.setPlotArea(230, 280, 180, 0xffffff);

            // Set the grid style to circular grid
            c.setGridStyle(false);

            // Set angular axis as 0 - 360, with a spoke every 30 units
            c.angularAxis().setLinearScale2(0, 360, labels);

            for(int i = 0; i < angles.Length; ++i) {
                c.angularAxis().addZone(angles[i] - 10, angles[i] + 10, 0, data0[i], 0x3333ff, 0);
                c.angularAxis().addZone(angles[i] - 10, angles[i] + 10, data0[i], data1[i],
                    0x33ff33, 0);
                c.angularAxis().addZone(angles[i] - 10, angles[i] + 10, data1[i], data2[i],
                    0xff3333, 0);
            }

            // Add an Transparent invisible layer to ensure the axis is auto-scaled using the data
            c.addLineLayer(data2, Chart.Transparent);

            // Output the chart
            viewer.Chart = c;
        }
    }
}

[Windows Forms - VB Version] NetWinCharts\VBNetWinCharts\stackrose.vb
Imports System
Imports Microsoft.VisualBasic
Imports ChartDirector

Public Class stackrose
    Implements DemoModule

    'Name of demo module
    Public Function getName() As String Implements DemoModule.getName
        Return "Stacked Rose Chart"
    End Function

    'Number of charts produced in this demo module
    Public Function getNoOfCharts() As Integer Implements DemoModule.getNoOfCharts
        Return 1
    End Function

    'Main code for creating chart.
    'Note: the argument chartIndex is unused because this demo only has 1 chart.
    Public Sub createChart(viewer As WinChartViewer, chartIndex As Integer) _
        Implements DemoModule.createChart

        ' Data for the chart
        Dim data0() As Double = {5, 3, 10, 4, 3, 5, 2, 5}
        Dim data1() As Double = {12, 6, 17, 6, 7, 9, 4, 7}
        Dim data2() As Double = {17, 7, 22, 7, 18, 13, 5, 11}

        Dim angles() As Double = {0, 45, 90, 135, 180, 225, 270, 315}
        Dim labels() As String = {"North", "North<*br*>East", "East", "South<*br*>East", "South", _
            "South<*br*>West", "West", "North<*br*>West"}

        ' Create a PolarChart object of size 460 x 500 pixels, with a grey (e0e0e0) background and a
        ' 1 pixel 3D border
        Dim c As PolarChart = New PolarChart(460, 500, &He0e0e0, &H000000, 1)

        ' Add a title to the chart at the top left corner using 15pt Arial Bold Italic font. Use
        ' white text on deep blue background.
        c.addTitle("Wind Direction", "Arial Bold Italic", 15, &Hffffff).setBackground(&H000080)

        Dim legendBox As LegendBox = c.addLegend(230, 35, False, "Arial Bold", 9)
        legendBox.setAlignment(Chart.TopCenter)
        legendBox.setBackground(Chart.Transparent, Chart.Transparent, 1)

        legendBox.addKey("5 m/s or above", &Hff3333)
        legendBox.addKey("1 - 5 m/s", &H33ff33)
        legendBox.addKey("less than 1 m/s", &H3333ff)

        ' Set plot area center at (230, 280) with radius 180 pixels and white background
        c.setPlotArea(230, 280, 180, &Hffffff)

        ' Set the grid style to circular grid
        c.setGridStyle(False)

        ' Set angular axis as 0 - 360, with a spoke every 30 units
        c.angularAxis().setLinearScale2(0, 360, labels)

        For i As Integer = 0 To UBound(angles)
            c.angularAxis().addZone(angles(i) - 10, angles(i) + 10, 0, data0(i), &H3333ff, 0)
            c.angularAxis().addZone(angles(i) - 10, angles(i) + 10, data0(i), data1(i), &H33ff33,0)
            c.angularAxis().addZone(angles(i) - 10, angles(i) + 10, data1(i), data2(i), &Hff3333,0)
        Next

        ' Add an Transparent invisible layer to ensure the axis is auto-scaled using the data
        c.addLineLayer(data2, Chart.Transparent)

        ' Output the chart
        viewer.Chart = c

    End Sub

End Class

[WPF - C#] NetWPFCharts\stackrose.cs
using System;
using ChartDirector;

namespace CSharpWPFDemo
{
    public class stackrose : DemoModule
    {
        //Name of demo module
        public string getName() { return "Stacked Rose Chart"; }

        //Number of charts produced in this demo module
        public int getNoOfCharts() { return 1; }

        //Main code for creating chart.
        //Note: the argument chartIndex is unused because this demo only has 1 chart.
        public void createChart(WPFChartViewer viewer, int chartIndex)
        {
            // Data for the chart
            double[] data0 = {5, 3, 10, 4, 3, 5, 2, 5};
            double[] data1 = {12, 6, 17, 6, 7, 9, 4, 7};
            double[] data2 = {17, 7, 22, 7, 18, 13, 5, 11};

            double[] angles = {0, 45, 90, 135, 180, 225, 270, 315};
            string[] labels = {"North", "North\nEast", "East", "South\nEast", "South",
                "South\nWest", "West", "North\nWest"};

            // Create a PolarChart object of size 460 x 500 pixels, with a grey (e0e0e0) background
            // and a 1 pixel 3D border
            PolarChart c = new PolarChart(460, 500, 0xe0e0e0, 0x000000, 1);

            // Add a title to the chart at the top left corner using 15pt Arial Bold Italic font.
            // Use white text on deep blue background.
            c.addTitle("Wind Direction", "Arial Bold Italic", 15, 0xffffff).setBackground(0x000080);

            LegendBox legendBox = c.addLegend(230, 35, false, "Arial Bold", 9);
            legendBox.setAlignment(Chart.TopCenter);
            legendBox.setBackground(Chart.Transparent, Chart.Transparent, 1);

            legendBox.addKey("5 m/s or above", 0xff3333);
            legendBox.addKey("1 - 5 m/s", 0x33ff33);
            legendBox.addKey("less than 1 m/s", 0x3333ff);

            // Set plot area center at (230, 280) with radius 180 pixels and white background
            c.setPlotArea(230, 280, 180, 0xffffff);

            // Set the grid style to circular grid
            c.setGridStyle(false);

            // Set angular axis as 0 - 360, with a spoke every 30 units
            c.angularAxis().setLinearScale2(0, 360, labels);

            for(int i = 0; i < angles.Length; ++i) {
                c.angularAxis().addZone(angles[i] - 10, angles[i] + 10, 0, data0[i], 0x3333ff, 0);
                c.angularAxis().addZone(angles[i] - 10, angles[i] + 10, data0[i], data1[i],
                    0x33ff33, 0);
                c.angularAxis().addZone(angles[i] - 10, angles[i] + 10, data1[i], data2[i],
                    0xff3333, 0);
            }

            // Add an Transparent invisible layer to ensure the axis is auto-scaled using the data
            c.addLineLayer(data2, Chart.Transparent);

            // Output the chart
            viewer.Chart = c;
        }
    }
}

[ASP.NET Web Forms - C# version] NetWebCharts\CSharpASP\stackrose.aspx
(Click here on how to convert this code to code-behind style.)
<%@ Page Language="C#" Debug="true" %>
<%@ Import Namespace="ChartDirector" %>
<%@ Register TagPrefix="chart" Namespace="ChartDirector" Assembly="netchartdir" %>

<!DOCTYPE html>

<script runat="server">

//
// Page Load event handler
//
protected void Page_Load(object sender, EventArgs e)
{
    // Data for the chart
    double[] data0 = {5, 3, 10, 4, 3, 5, 2, 5};
    double[] data1 = {12, 6, 17, 6, 7, 9, 4, 7};
    double[] data2 = {17, 7, 22, 7, 18, 13, 5, 11};

    double[] angles = {0, 45, 90, 135, 180, 225, 270, 315};
    string[] labels = {"North", "North\nEast", "East", "South\nEast", "South", "South\nWest",
        "West", "North\nWest"};

    // Create a PolarChart object of size 460 x 500 pixels, with a grey (e0e0e0) background and a 1
    // pixel 3D border
    PolarChart c = new PolarChart(460, 500, 0xe0e0e0, 0x000000, 1);

    // Add a title to the chart at the top left corner using 15pt Arial Bold Italic font. Use white
    // text on deep blue background.
    c.addTitle("Wind Direction", "Arial Bold Italic", 15, 0xffffff).setBackground(0x000080);

    LegendBox legendBox = c.addLegend(230, 35, false, "Arial Bold", 9);
    legendBox.setAlignment(Chart.TopCenter);
    legendBox.setBackground(Chart.Transparent, Chart.Transparent, 1);

    legendBox.addKey("5 m/s or above", 0xff3333);
    legendBox.addKey("1 - 5 m/s", 0x33ff33);
    legendBox.addKey("less than 1 m/s", 0x3333ff);

    // Set plot area center at (230, 280) with radius 180 pixels and white background
    c.setPlotArea(230, 280, 180, 0xffffff);

    // Set the grid style to circular grid
    c.setGridStyle(false);

    // Set angular axis as 0 - 360, with a spoke every 30 units
    c.angularAxis().setLinearScale2(0, 360, labels);

    for(int i = 0; i < angles.Length; ++i) {
        c.angularAxis().addZone(angles[i] - 10, angles[i] + 10, 0, data0[i], 0x3333ff, 0);
        c.angularAxis().addZone(angles[i] - 10, angles[i] + 10, data0[i], data1[i], 0x33ff33, 0);
        c.angularAxis().addZone(angles[i] - 10, angles[i] + 10, data1[i], data2[i], 0xff3333, 0);
    }

    // Add an Transparent invisible layer to ensure the axis is auto-scaled using the data
    c.addLineLayer(data2, Chart.Transparent);

    // Output the chart
    WebChartViewer1.Image = c.makeWebImage(Chart.PNG);
}

</script>

<html>
<body>
    <chart:WebChartViewer id="WebChartViewer1" runat="server" />
</body>
</html>

[ASP.NET Web Forms - VB Version] NetWebCharts\VBNetASP\stackrose.aspx
(Click here on how to convert this code to code-behind style.)
<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="ChartDirector" %>
<%@ Register TagPrefix="chart" Namespace="ChartDirector" Assembly="netchartdir" %>

<!DOCTYPE html>

<script runat="server">

'
' Page Load event handler
'
Protected Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

    ' Data for the chart
    Dim data0() As Double = {5, 3, 10, 4, 3, 5, 2, 5}
    Dim data1() As Double = {12, 6, 17, 6, 7, 9, 4, 7}
    Dim data2() As Double = {17, 7, 22, 7, 18, 13, 5, 11}

    Dim angles() As Double = {0, 45, 90, 135, 180, 225, 270, 315}
    Dim labels() As String = {"North", "North<*br*>East", "East", "South<*br*>East", "South", _
        "South<*br*>West", "West", "North<*br*>West"}

    ' Create a PolarChart object of size 460 x 500 pixels, with a grey (e0e0e0) background and a 1
    ' pixel 3D border
    Dim c As PolarChart = New PolarChart(460, 500, &He0e0e0, &H000000, 1)

    ' Add a title to the chart at the top left corner using 15pt Arial Bold Italic font. Use white
    ' text on deep blue background.
    c.addTitle("Wind Direction", "Arial Bold Italic", 15, &Hffffff).setBackground(&H000080)

    Dim legendBox As LegendBox = c.addLegend(230, 35, False, "Arial Bold", 9)
    legendBox.setAlignment(Chart.TopCenter)
    legendBox.setBackground(Chart.Transparent, Chart.Transparent, 1)

    legendBox.addKey("5 m/s or above", &Hff3333)
    legendBox.addKey("1 - 5 m/s", &H33ff33)
    legendBox.addKey("less than 1 m/s", &H3333ff)

    ' Set plot area center at (230, 280) with radius 180 pixels and white background
    c.setPlotArea(230, 280, 180, &Hffffff)

    ' Set the grid style to circular grid
    c.setGridStyle(False)

    ' Set angular axis as 0 - 360, with a spoke every 30 units
    c.angularAxis().setLinearScale2(0, 360, labels)

    For i As Integer = 0 To UBound(angles)
        c.angularAxis().addZone(angles(i) - 10, angles(i) + 10, 0, data0(i), &H3333ff, 0)
        c.angularAxis().addZone(angles(i) - 10, angles(i) + 10, data0(i), data1(i), &H33ff33, 0)
        c.angularAxis().addZone(angles(i) - 10, angles(i) + 10, data1(i), data2(i), &Hff3333, 0)
    Next

    ' Add an Transparent invisible layer to ensure the axis is auto-scaled using the data
    c.addLineLayer(data2, Chart.Transparent)

    ' Output the chart
    WebChartViewer1.Image = c.makeWebImage(Chart.PNG)

End Sub

</script>

<html>
<body>
    <chart:WebChartViewer id="WebChartViewer1" runat="server" />
</body>
</html>

[ASP.NET MVC - Controller] NetMvcCharts\Controllers\StackroseController.cs
using System;
using System.Web.Mvc;
using ChartDirector;

namespace NetMvcCharts.Controllers
{
    public class StackroseController : Controller
    {
        //
        // Default Action
        //
        public ActionResult Index()
        {
            ViewBag.Title = "Stacked Rose Chart";
            createChart(ViewBag.Viewer = new RazorChartViewer(HttpContext, "chart1"));
            return View("~/Views/Shared/ChartView.cshtml");
        }

        //
        // Create chart
        //
        private void createChart(RazorChartViewer viewer)
        {
            // Data for the chart
            double[] data0 = {5, 3, 10, 4, 3, 5, 2, 5};
            double[] data1 = {12, 6, 17, 6, 7, 9, 4, 7};
            double[] data2 = {17, 7, 22, 7, 18, 13, 5, 11};

            double[] angles = {0, 45, 90, 135, 180, 225, 270, 315};
            string[] labels = {"North", "North\nEast", "East", "South\nEast", "South", "South\nWest",
                "West", "North\nWest"};

            // Create a PolarChart object of size 460 x 500 pixels, with a grey (e0e0e0) background and a
            // 1 pixel 3D border
            PolarChart c = new PolarChart(460, 500, 0xe0e0e0, 0x000000, 1);

            // Add a title to the chart at the top left corner using 15pt Arial Bold Italic font. Use
            // white text on deep blue background.
            c.addTitle("Wind Direction", "Arial Bold Italic", 15, 0xffffff).setBackground(0x000080);

            LegendBox legendBox = c.addLegend(230, 35, false, "Arial Bold", 9);
            legendBox.setAlignment(Chart.TopCenter);
            legendBox.setBackground(Chart.Transparent, Chart.Transparent, 1);

            legendBox.addKey("5 m/s or above", 0xff3333);
            legendBox.addKey("1 - 5 m/s", 0x33ff33);
            legendBox.addKey("less than 1 m/s", 0x3333ff);

            // Set plot area center at (230, 280) with radius 180 pixels and white background
            c.setPlotArea(230, 280, 180, 0xffffff);

            // Set the grid style to circular grid
            c.setGridStyle(false);

            // Set angular axis as 0 - 360, with a spoke every 30 units
            c.angularAxis().setLinearScale2(0, 360, labels);

            for(int i = 0; i < angles.Length; ++i) {
                c.angularAxis().addZone(angles[i] - 10, angles[i] + 10, 0, data0[i], 0x3333ff, 0);
                c.angularAxis().addZone(angles[i] - 10, angles[i] + 10, data0[i], data1[i], 0x33ff33, 0);
                c.angularAxis().addZone(angles[i] - 10, angles[i] + 10, data1[i], data2[i], 0xff3333, 0);
            }

            // Add an Transparent invisible layer to ensure the axis is auto-scaled using the data
            c.addLineLayer(data2, Chart.Transparent);

            // Output the chart
            viewer.Image = c.makeWebImage(Chart.PNG);
        }
    }
}

[ASP.NET MVC - View] NetMvcCharts\Views\Shared\ChartView.cshtml
@{ Layout = null; }

<!DOCTYPE html>

<html>
<head>
    <meta name="viewport" content="width=device-width" />
    <title>@ViewBag.Title</title>
</head>
<body style="margin:5px 0px 0px 5px">
    <div style="font:bold 18pt verdana;">
        @ViewBag.Title
    </div>
    <hr style="border:solid 1px #000080" />
    <div>
        @{
            if (ViewBag.Viewer is Array)
            {
                // Display multiple charts
                for (int i = 0; i < ViewBag.Viewer.Length; ++i)
                {
                    @:@Html.Raw(ViewBag.Viewer[i].RenderHTML())
                }
            }
            else
            {
                // Display one chart only
                @:@Html.Raw(ViewBag.Viewer.RenderHTML())
            }
        }
    </div>
</body>
</html>