sas_a3_calc

DATA CLIMA;
LENGTH LOCAL $10.;
INPUT LOCAL $ ano precip temp;
DATALINES;
Candeias        2001    1256    26
Candeias        2002    1089    28
Candeias        2003    1152    27
Catú           2001    952     30
Catú           2002    894     29
Catú           2003    569     28
Entre_Rios      2001    1350    31
Entre_Rios      2002    1260    32
Entre_Rios      2003    1420    30
Amargoso        2001    782     32
Amargoso        2002    695     33
Amargoso        2003    529     33
;
PROC PRINT DATA=A;
RUN;
proc print data=CLIMA; run;

PROC SORT DATA=CLIMA;
BY LOCAL;

PROC MEANS DATA=clima NOPRINT;
BY LOCAL;
VAR PRECIP TEMP;
OUTPUT
OUT=clima1 MIN=MIN_MM MIN_TEM MAX=MAX_MM MAX_TEM MEAN=MED_MM
MED_TEM CV=CV_MM CV_TEM;
RUN;
PROC SORT DATA=clima1;
BY DESCENDING MED_MM;

/*Precipitações*/

PROC PRINT DATA=clima1 NOOBS LABEL SPLIT="*";
VAR LOCAL MIN_MM MAX_MM MED_MM CV_MM;
LABEL
LOCAL="Local*de*Coleta"
MIN_MM="Precipitação*Mínima*(mm)"
MAX_MM="Precipitação*Máxima*(mm)"
MED_MM="Precipitação*Média*(mm)"
CV_MM="Coeficiente*de*Variação*(%)";
FORMAT MIN_MM MAX_MM COMMAX6.0 MED_MM CV_MM COMMAX8.1;
RUN;
PROC SORT DATA=clima1;
BY DESCENDING MED_TEM;

/*Temperatura*/

PROC PRINT DATA=clima1 NOOBS LABEL SPLIT="*";
VAR LOCAL MIN_TEM MAX_TEM MED_TEM CV_TEM;
LABEL
LOCAL="Local*de*Coleta"
MIN_TEM="Temperatura*Mínima*(°C)"
MAX_TEM="Temperatura*Máxima*(°C)"
MED_TEM="Temperatura*Média*(°C)"
CV_TEM="Coeficiente*de*Variação*(%)";
FORMAT MIN_TEM MAX_TEM COMMAX6.0 MED_TEM CV_TEM COMMAX6.1;
RUN;

proc sgplot data=clima;
   vline ano / response=precip / group=local;
/*scatter x=ano y=precip / group=local;*/
run;

proc sgplot data=clima ;
   title "Stock Volume vs. Close";
   vbar ano/ response=precip;
   vline ano / response=temp y2axis;
run;