make color of error bars the same as the bar fill

I must be missing something very simple here .  I would like to make a bar graph similar to the program below, but I would like the error bar colors to match the bar fills. When I try plotsetlinecolor(...) right before the plotAddErrorBar(), it only reads the first color. Thanks

// Create 2x1 numeric vectors

seattle = { 47, 70 };
phoenix = { 68, 105 };
denver = { 32, 85 };

// Create 2x1 string labels
labels = "January" $| "June";

// Declare 'myPlot' to be a plotControl struct
// and fill with defaults settings for bar plots
struct plotControl myPlot;
myPlot = plotGetDefaults("bar");

// Create legend

leg_text = "Phoenix" $| "Seattle" $| "Denver" $| "";
plotSetLegend(&myPlot, leg_text, "top left inside");

// Set legend border to zero pixels wide
plotSetLegendBorder(&myPlot, "gray", 0);

// Set Fill to two different fill patterns
// and 100% opacity
plotSetFill(&myPlot, 12|13, 1);

// Use HTML to create the degrees symbol
plotSetYLabel(&myPlot, "Temp °F");

// Concatenate temperature vectors
// into a 2x2 matrix
heights = phoenix ~ seattle ~ denver;

// Draw the graph
plotBar(myPlot, labels, heights);

se = {  5  8,
        8 10,
       30 15 };

plotAddBoxErrorBars(labels, heights, se);

proc (0) = plotAddBoxErrorBars(labels, heights, se);
    local box_xs;

    box_xs = calcBoxCenters(rows(labels), cols(heights));

    plotAddErrorBar(box_xs, vec(heights), vecr(se));
endp;

proc (1) = calcBoxCenters(nlabels, nboxes);
    local box_width, idx, x;

    box_width = 0.5;

    x = seqa(1, 1, nlabels);

    idx = seqa(x[1]-box_width/2+box_width/(nboxes*2), 2*box_width/(nboxes*2), nboxes);
    retp(vecr(idx+(x-1)'));

endp;

1 Answer

0

To change the colors of the error bars, we need to pass a plotControl structure with the desired line color settings to plotSetErrorBar .
Since each set of error bars added with shares the same line color, we need to loop over each set of lines that we want to have a separate color and add the lines.

Here is the code from the example you posted that needs to be modified.

plotAddBoxErrorBars(labels, heights, se, myPlot.fillColor);

proc (0) = plotAddBoxErrorBars(labels, heights, se, clrs);
    local box_xs, j;

    box_xs = calcBoxCenters(rows(labels), cols(heights));

    heights = vec(heights);
    se = vecr(se);

    // Create new plotControl structure for loines
    struct plotControl plt;
    plt = plotGetDefaults("xy");

    /*
    ** Each series of lines added shares the same color.
    ** So we loop and add the lines by color
    */
    j = 1;
    for i(1, 6, 2);
        // Set the corresponding color
        plotSetLinePen(&plt, 1, clrs[j]);
        plotAddErrorBar(plt, box_xs[i:i+1], heights[i:i+1], se[i:i+1]);
        j = j + 1;
    endfor;
endp;

link

aptech

1,773