Focal Point
[CLOSED] Custom color in Vertical Stack Chart

This topic can be found at:
https://forums.informationbuilders.com/eve/forums/a/tpc/f/7971057331/m/8317059586

March 24, 2017, 05:02 PM
Sandeep
[CLOSED] Custom color in Vertical Stack Chart
Hi All,

Looking for some help in meeting a specific coloring requirement that I am not able to do in the VERTICAL STACK graph.

I have the below chart. Values of the CATEGORY are stacked by AGENCY on top of each other. All agencies have same two category values. The ask is that each agency have its own separate color AND the category of the each agency have the agency color in two shades.
So say, Agency A1 is assigned green color. So the category C1 of Agency A1 has dark green and C2 has light green. So on and so forth for other colors of other agencies.

I had assumed it would be simple but stuck with it for long time. Your help is much appreciated!

 ENGINE INT CACHE SET ON
-DEFAULTH &WF_STYLE_UNITS='PIXELS';
-DEFAULTH &WF_STYLE_HEIGHT='405.0';
-DEFAULTH &WF_STYLE_WIDTH='770.0';
-DEFAULTH &WF_TITLE='WebFOCUS Report';
GRAPH FILE COMP_DATA
SUM ACTUAL_VALUE
BY CATEGORY
ACROSS AGENCY
WHERE ID EQ 190;
WHERE YEAR EQ 2016 ;

ON GRAPH PCHOLD FORMAT PNG
ON GRAPH SET VZERO OFF
ON GRAPH SET HTMLENCODE ON
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET GRWIDTH 1
ON GRAPH SET UNITS &WF_STYLE_UNITS
ON GRAPH SET HAXIS &WF_STYLE_WIDTH
ON GRAPH SET VAXIS &WF_STYLE_HEIGHT
ON GRAPH SET GRMERGE ADVANCED
ON GRAPH SET GRMULTIGRAPH 0
ON GRAPH SET GRLEGEND 1
ON GRAPH SET GRXAXIS 1
ON GRAPH SET LOOKGRAPH VBRSTK1
ON GRAPH SET STYLE *
*GRAPH_SCRIPT
setPieDepth(0);
setPieTilt(0);
setDepthRadius(0);
setCurveFitEquationDisplay(false);
setPlace(true);
*END
INCLUDE=IBFS:/FILE/IBI_HTML_DIR/javaassist/intl/EN/ENIADefault_combine.sty,$
TYPE=REPORT, TITLETEXT=&WF_TITLE.QUOTEDSTRING, $
*GRAPH_SCRIPT
setReportParsingErrors(false);
setSelectionEnableMove(false);
setDisplay(getDataText(1), true);
setDisplay(getDataText(0), true);
setGridStep(getY1MajorGrid(),2.0);
setScaleMustIncludeZero(getY1Axis(),true);
setScaleMinAuto(getY1Axis(),true);
setScaleMaxAuto(getY1Axis(),true);
setGridStepAuto(getY1MajorGrid(),true);
setAxisSide(getY2Axis(),2);
setLabelStagger(getY2Label(),true);
setStackedDataValueSum(false);
setDataTextPosition(4);
setFontName(getDataText(),"CALIBRI");
setFontSizeAbsolute(getDataText(),true);
setAutofit(getDataText(),false);
setFontSizeInPoints(getDataText(),10);
setPlaceResize(getDataText(),0);
setFontStyle(getDataText(),0);
setDisplay(getDataTextStackedTotalOnTop(),false);
setFontName(getDataTextStackedTotalOnTop(),"CALIBRI");
setFontSizeAbsolute(getDataTextStackedTotalOnTop(),true);
setAutofit(getDataTextStackedTotalOnTop(),false);
setFontSizeInPoints(getDataTextStackedTotalOnTop(),10);
setPlaceResize(getDataTextStackedTotalOnTop(),0);
setFontStyle(getDataTextStackedTotalOnTop(),0);
setTextFormatPreset(getDataText(),1);
setAxisSide(getY1Axis(),0);
setAxisSide(getO1Axis(),0);
setSeriesType(0,1);
setCurveFitEquationDisplay(false);
setSmoothLines(true);
setReverseSeries(false);
setColorMode(1);
*END
ENDSTYLE
END
-RUN
 

This message has been edited. Last edited by: FP Mod Chuck,


WebFocus 8.1 Service Pack 0.5
Build Version branch8105
Build/GEN Number 119

OS/Platform: Apache Tomcat/8.0.21
March 27, 2017, 06:44 AM
Neelima
Hi,

can you please replicate on CAR sample file?

Thanks


WebFocus 8104,8204
Excel/PDF/HTML/HTMLTABLE/XML/ALPHA/GIF file/GRAPH/Active technologies
March 27, 2017, 02:49 PM
J.L. Hinds
Sandeep, this isn't doing exactly what you asked but it I think it should help. I'm not going to get a chance to get to this till tomorrow at the earliest.

SET ASNAMES=ON
TABLE FILE CAR
SUM
SEATS
BY COUNTRY AS 'NEWMAN'
BY HIGHEST 2 MODEL
ON TABLE HOLD
END

TABLE FILE HOLD
LIST *
ON TABLE HOLD AS 'BOLD'
END

DEFINE FILE BOLD
NEWRANK/I3=LIST;
END

GRAPH FILE BOLD
PRINT SEATS AS ''
NEWRANK NOPRINT
BY MODEL
ACROSS NEWMAN
ON GRAPH PCHOLD FORMAT JSCHART
ON GRAPH SET VZERO OFF
ON GRAPH SET HTMLENCODE ON
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET EMBEDHEADING ON
ON GRAPH SET ARGRAPHENGIN JSCHART
ON GRAPH SET GRMERGE ON
ON GRAPH SET GRMULTIGRAPH 0
ON GRAPH SET GRLEGEND 0
ON GRAPH SET GRXAXIS 2
ON GRAPH SET LOOKGRAPH VBRSTK1
ON GRAPH SET EMBEDHEADING ON
ON GRAPH SET AUTOFIT ON
ON GRAPH SET STYLE *
PAGESIZE='Letter',$
DEFMACRO=COND0001,COLUMN=N2,MACTYPE=RULE,WHEN=NEWRANK EQ 1 ,$
DEFMACRO=COND0002,COLUMN=N2,MACTYPE=RULE,WHEN=NEWRANK EQ 2 ,$
DEFMACRO=COND0003,COLUMN=N2,MACTYPE=RULE,WHEN=NEWRANK EQ 3 ,$
DEFMACRO=COND0004,COLUMN=N2,MACTYPE=RULE,WHEN=NEWRANK EQ 4 ,$
DEFMACRO=COND0005,COLUMN=N2,MACTYPE=RULE,WHEN=NEWRANK EQ 5 ,$
DEFMACRO=COND0006,COLUMN=N2,MACTYPE=RULE,WHEN=NEWRANK EQ 6 ,$
DEFMACRO=COND0007,COLUMN=N2,MACTYPE=RULE,WHEN=NEWRANK EQ 7 ,$
DEFMACRO=COND0008,COLUMN=N2,MACTYPE=RULE,WHEN=NEWRANK EQ 8 ,$
DEFMACRO=COND0009,COLUMN=N2,MACTYPE=RULE,WHEN=NEWRANK EQ 9 ,$

TYPE=DATA,COLOR=RGB(53 48 38),MACRO=COND0001,$
TYPE=DATA,COLOR=RGB(255 205 106),MACRO=COND0002,$
TYPE=DATA,COLOR=RGB(255 231 183),MACRO=COND0003,$
TYPE=DATA,COLOR=RGB(127 103 53),MACRO=COND0004,$
TYPE=DATA,COLOR=RGB(204 185 146),MACRO=COND0005,$
TYPE=DATA,COLOR=RGB(193 205 186),MACRO=COND0006,$
TYPE=DATA,COLOR=RGB(158 165 180),MACRO=COND0007,$
TYPE=DATA,COLOR=RGB(207 144 126),MACRO=COND0008,$
TYPE=DATA,COLUMN=N2,COLOR=RGB(253 93 245),MACRO=COND0009,$

TYPE=REPORT, TITLETEXT=&WF_TITLE.QUOTEDSTRING, $

TYPE=HEADING,JUSTIFY=CENTER,STYLE=BOLD,$
*GRAPH_SCRIPT
setPieDepth(0);
setPieTilt(0);
setDepthRadius(0);
setCurveFitEquationDisplay(false);
setPlace(true);
*END
INCLUDE=IBFS:/FILE/IBI_HTML_DIR/javaassist/intl/EN/combine_templates/ENRed_Light1.sty,$

*GRAPH_SCRIPT

*END
ENDSTYLE
END


WebFOCUS 7.6
Windows, All Outputs