Historial de Consumo Eléctrico con GCHART

Este script crea un conjunto de datos de consumo (kWh) a través de DATALINES. Luego prepara etiquetas de eje personalizadas concatenando texto en un paso DATA y almacenándolas en una macro-variable a través de PROC SQL. Finalmente, genera un archivo HTML que contiene un gráfico PROC GCHART con un logo agregado a través de un conjunto de datos de anotación (ANNO).

Análisis de datos

Type : CREATION_INTERNE

Los datos principales se crean manualmente en el paso DATA a través de la instrucción DATALINES.

1 Bloque de código

INITIALISATION

Explicación :
Definición de las macro-variables para el nombre del archivo y la fecha objetivo, y definición del fileref de salida.

¡Copiado!

1	%let name=example11;
2	filename odsout '.';
3
4	%let targetdate=15sep2003;

2 Bloque de código

DATA STEP Data

Explicación :
Creación del conjunto de datos 'my_data' que contiene las fechas y el consumo de kwh. Creación de un indicador 'billmonth' para la fecha objetivo.

¡Copiado!

1	DATA my_data;
2	FORMAT kwh comma5.0;
3	FORMAT date mmyy5.;
4	INPUT date date9. kwh;
5	IF date eq "&targetdate"d THEN billmonth=1;
6	ELSE billmonth=0;
7	DATALINES;
8	15sep2002 800
9	15oct2002 550
10	15nov2002 200
11	15dec2002 190
12	15jan2003 250
13	15feb2003 200
14	15mar2003 225
15	15apr2003 190
16	15may2003 325
17	15jun2003 350
18	15jul2003 675
19	15aug2003 775
20	15sep2003 875
21	;
22	RUN;

3 Bloque de código

PROC SORT

Explicación :
Ordenación de los datos por fecha cronológica.

¡Copiado!

1	PROC SORT DATA=my_data out=my_data;
2	BY date;
3	RUN;

4 Bloque de código

DATA STEP Data

Explicación :
Construcción iterativa de una cadena de caracteres compleja ('axis_text') para definir etiquetas de eje personalizadas (se muestra un mes de cada dos).

¡Copiado!

1	DATA my_data; SET my_data;
2	LENGTH axis_text $200;
3	retain axis_text;
4	IF mod(_n_,2)=1 THEN
5	axis_text=trim(left(axis_text))\|\|' t='\|\|trim(left(_n_))\|\|' '\|\|quote(put(date,monname3.));
6	ELSE
7	axis_text=trim(left(axis_text))\|\|' t='\|\|trim(left(_n_))\|\|' '\|\|quote(' ');
8	RUN;

5 Bloque de código

PROC SQL

Explicación :
Extracción de la cadena de etiquetas completa construida anteriormente en una macro-variable: axis_text.

¡Copiado!

1
2	PROC SQL;
3	select axis_text into :axis_text from my_data having date=max(date);
4	QUIT;
5
6	RUN;
7

6 Bloque de código

DATA STEP Data

Explicación :
Creación de un conjunto de datos de anotación SAS/GRAPH para insertar una imagen de logo ('power_logo.png') en el gráfico.

¡Copiado!

1	DATA logo_anno;
2	LENGTH function $8;
3	xsys='3'; ysys='3'; when='a';
4	function='move'; x=0; y=92; OUTPUT;
5	function='image'; x=x+36.4; y=y+7; imgpath='power_logo.png'; style='fit'; OUTPUT;
6	RUN;

7 Bloque de código

PROC GCHART

Explicación :
Configuración de las opciones gráficas (GOPTIONS), apertura del destino ODS HTML y generación de un histograma vertical (VBAR) con los datos, las anotaciones de logo y los ejes personalizados.

¡Copiado!

1	GOPTIONS DEVICE=png;
2	goptions xpixels=480 ypixels=384;
3	goptions border;
4
5	ODS LISTING CLOSE;
6	ODS HTML path=odsout body="&name..htm" (title="Power Bill") style=minimal;
7
8	goptions gunit=pct htitle=6 ftitle="albany amt/bold" htext=4.5 ftext="albany amt/bold";
9
10	title1 h=8 " ";
11	/* ... titres ... */
12	title6 j=c h=6 "kWh Usage History";
13
14	axis1 label=none offset=(5,5) value=( &axis_text );
15	axis2 label=none minor=none major=(number=5);
16
17	pattern1 v=x1 c=graybb;
18	pattern2 v=x2 c=black;
19
20	PROC GCHART DATA=my_data anno=logo_anno;
21	vbar date / discrete type=sum sumvar=kwh
22	subgroup=billmonth nolegend
23	maxis=axis1 raxis=axis2 noframe
24	width=5 space=2.25 coutline=black
25	autoref cref=graydd clipref
26	des="" name="&name";
27	RUN;
28
29	QUIT;
30	ODS HTML CLOSE;
31	ODS LISTING;

Este material se proporciona "tal cual" por We Are Cas. No hay garantías, expresas o implícitas, en cuanto a la comerciabilidad o idoneidad para un propósito particular con respecto a los materiales o el código contenidos en este documento. We Are Cas no es responsable de los errores en este material tal como existe ahora o existirá, ni We Are Cas proporciona soporte técnico para el mismo.

Retour à la liste