【学习】七天搞定SAS（三）：基本模块调用

12

LIBNAME tropical 'c:\MySASLib';PROC CONTENTS DATA = tropical.banana;

123

TITLE ”Here’s another title”;TITLE ’Here’’s another title’;FOOTNOTE3 ’This is the third footnote’;

12

LABEL ReceiveDate = ’Date order was received’ShipDate = ’Date merchandise was shipped’;

12345

PROC PRINT DATA = 'c:\MySASLib\style';WHERE Genre = 'Impressionism';TITLE 'Major Impressionist Painters';FOOTNOTE 'F = France N = Netherlands U = US';RUN;

1234567

Major Impressionist Painters 1Obs Name Genre Origin1 Mary Cassatt Impressionism U3 Edgar Degas Impressionism F5 Claude Monet Impressionism F6 Pierre Auguste Renoir Impressionism FF = France N = Netherlands U = US

12345678910

DATA marine;INFILE 'c:\MyRawData\Lengths.dat';INPUT Name $ Family $ Length @@;RUN;* Sort the data;PROC SORT DATA = marine OUT = seasort NODUPKEY;BY Family DESCENDING Length;PROC PRINT DATA = seasort;TITLE 'Whales and Sharks';RUN;

123456789101112

Whales and Sharks 1Obs Name Family Length1 humpback 50.02 whale shark 40.03 basking shark 30.04 mako shark 12.05 dwarf shark 0.56 blue whale 100.07 sperm whale 60.08 gray whale 50.09 killer whale 30.010 beluga whale 15.0

12345678910111213

DATA sales;INFILE 'c:\MyRawData\Candy.dat';INPUT Name $ 1-11 Class @15 DateReturned MMDDYY10. CandyType $Quantity;Profit = Quantity * 1.25;PROC SORT DATA = sales;BY Class;PROC PRINT DATA = sales;BY Class;SUM Profit;VAR Name DateReturned CandyType Profit;TITLE 'Candy Sales for Field Trip by Class';RUN;

1234567891011121314151617181920212223

Candy Sales for Field Trip by Class 1-------------------------------- Class=14 ---------------------------------Date CandyObs Name Returned Type Profit1 Nathan 17612 CD 23.752 Matthew 17612 CD 17.503 Claire 17613 CD 13.754 Chris 17616 CD 7.505 Stephen 17616 CD 12.50----- ------Class 75.00-------------------------------- Class=21 ---------------------------------Date CandyObs Name Returned Type Profit6 Adriana 17612 MP 8.757 Caitlin 17615 CD 11.258 Ian 17615 MP 22.509 Anthony 17616 MP 16.2510 Erika 17616 MP 21.25----- ------Class 80.00======155.00

12345678910

DATA sales;INFILE 'c:\MyRawData\Candy.dat';INPUT Name $ 1-11 Class @15 DateReturned MMDDYY10. CandyType $Quantity;Profit = Quantity * 1.25;PROC PRINT DATA = sales;VAR Name DateReturned CandyType Profit;FORMAT DateReturned DATE9. Profit DOLLAR6.2;TITLE 'Candy Sale Data Using Formats';RUN;

12345678910111213

Candy Sale Data Using Formats 1Date CandyObs Name Returned Type Profit1 Adriana 21MAR2008 MP $8.752 Nathan 21MAR2008 CD $23.753 Matthew 21MAR2008 CD $17.504 Claire 22MAR2008 CD $13.755 Caitlin 24MAR2008 CD $11.256 Ian 24MAR2008 MP $22.507 Chris 25MAR2008 CD $7.508 Anthony 25MAR2008 MP $16.259 Stephen 25MAR2008 CD $12.5010 Erika 25MAR2008 MP $21.25

123456789101112131415161718

DATA carsurvey;INFILE 'c:\MyRawData\Cars.dat';INPUT Age Sex Income Color $;PROC FORMAT;VALUE gender 1 = 'Male'2 = 'Female';VALUE agegroup 13 -< 20 = 'Teen'20 -< 65 = 'Adult'65 - HIGH = 'Senior';VALUE $col 'W' = 'Moon White''B' = 'Sky Blue''Y' = 'Sunburst Yellow''G' = 'Rain Cloud Gray';* Print data using user-defined and standard (DOLLAR8.) formats;PROC PRINT DATA = carsurvey;FORMAT Sex gender. Age agegroup. Color $col. Income DOLLAR8.;TITLE 'Survey Results Printed with User-Defined Formats';RUN;

1234567

Survey Results Printed with User-Defined Formats 1Obs Age Sex Income Color1 Teen Male $14,000 Sunburst Yellow2 Adult Male $65,000 Rain Cloud Gray3 Senior Female $35,000 Sky Blue4 Adult Male $44,000 Sunburst Yellow5 Adult Female $83,000 Moon White

12345678910111213

* Write a report with FILE and PUT statements;DATA _NULL_;INFILE 'c:\MyRawData\Candy.dat';INPUT Name $ 1-11 Class @15 DateReturned MMDDYY10.CandyType $ Quantity;Profit = Quantity * 1.25;FILE 'c:\MyRawData\Student.txt' PRINT;TITLE;PUT @5 'Candy sales report for ' Name 'from classroom ' Class// @5 'Congratulations! You sold ' Quantity 'boxes of candy'/ @5 'and earned ' Profit DOLLAR6.2 ' for our field trip.';PUT _PAGE_;RUN;

123456789

Candy sales report for Adriana from classroom 21Congratulations! You sold 7 boxes of candy and earned $8.75 for our field trip.------------Candy sales report for Nathan from classroom 14Congratulations! You sold 19 boxes of candy and earned $23.75 for our field trip.------------Candy sales report for Matthew from classroom 14Congratulations! You sold 14 boxes of candy and earned $17.50 for our field trip.------------

12345678910111213

DATA sales;INFILE 'c:\MyRawData\Flowers.dat';INPUT CustomerID $ @9 SaleDate MMDDYY10. Petunia SnapDragonMarigold;Month = MONTH(SaleDate);PROC SORT DATA = sales;BY Month;* Calculate means by Month for flower sales;PROC MEANS DATA = sales;BY Month;VAR Petunia SnapDragon Marigold;TITLE 'Summary of Flower Sales by Month';RUN;

123456789101112131415

Summary of Flower Sales by Month 1--------------------------------- Month=5 ---------------------------------The MEANS ProcedureVariable N Mean Std Dev Minimum Maximum---------------------------------------------------------------------------Petunia 3 86.6666667 35.1188458 50.0000000 120.0000000SnapDragon 3 113.3333333 41.6333200 80.0000000 160.0000000Marigold 3 81.6666667 25.6580072 60.0000000 110.0000000--------------------------------- Month=6 ---------------------------------Variable N Mean Std Dev Minimum Maximum---------------------------------------------------------------------------Petunia 4 81.2500000 16.5201897 60.0000000 100.0000000SnapDragon 4 97.5000000 47.8713554 60.0000000 160.0000000Marigold 4 83.7500000 19.7378655 60.0000000 100.0000000---------------------------------------------------------------------------

1234567

756-01 05/04/2008 120 80 110834-01 05/12/2008 90 160 60901-02 05/18/2008 50 100 75834-01 06/01/2008 80 60 100756-01 06/11/2008 100 160 75901-02 06/19/2008 60 60 60756-01 06/25/2008 85 110 100

12345678910111213141516

DATA sales;INFILE 'c:\MyRawData\Flowers.dat';INPUT CustomerID $ @9 SaleDate MMDDYY10. Petunia SnapDragon Marigold;PROC SORT DATA = sales;BY CustomerID;* Calculate means by CustomerID, output sum and mean to new data set;PROC MEANS NOPRINT DATA = sales;BY CustomerID;VAR Petunia SnapDragon Marigold;OUTPUT OUT = totals MEAN(Petunia SnapDragon Marigold) =MeanPetunia MeanSnapDragon MeanMarigoldSUM(Petunia SnapDragon Marigold) = Petunia SnapDragon Marigold;PROC PRINT DATA = totals;TITLE 'Sum of Flower Data over Customer ID';FORMAT MeanPetunia MeanSnapDragon MeanMarigold 3.;RUN;

123

esp w cap d cap w kon w ice w kon d esp d kon w ice d esp dcap w esp d cap d Kon d . d kon w esp d cap w ice w kon wkon w kon w ice d esp d kon w esp d esp w kon w cap w kon w

1234567

DATA orders;INFILE 'c:\MyRawData\Coffee.dat';INPUT Coffee $ Window $ @@;* Print tables for Window and Window by Coffee;PROC FREQ DATA = orders;TABLES Window Window * Coffee;RUN;

12345678910

Silent Lady Maalea sail sch 75.00America II Maalea sail yac 32.95Aloha Anai Lahaina sail cat 62.00Ocean Spirit Maalea power cat 22.00Anuenue Maalea sail sch 47.50Hana Lei Maalea power cat 28.99Leilani Maalea power yac 19.99Kalakaua Maalea power cat 29.50Reef Runner Lahaina power yac 29.95Blue Dolphin Maalea sail cat 42.95

1234567891011

DATA boats;INFILE 'c:\MyRawData\Boats.dat';INPUT Name $ 1-12 Port $ 14-20 Locomotion $ 22-26 Type $ 28-30Price 32-36;RUN;* Tabulations with three dimensions;PROC TABULATE DATA = boats;CLASS Port Locomotion Type;TABLE Port, Locomotion, Type;TITLE 'Number of Boats by Port, Locomotion, and Type';RUN;

12345678910111213

DATA boats;INFILE 'c:\MyRawData\Boats.dat';INPUT Name $ 1-12 Port $ 14-20 Locomotion $ 22-26 Type $ 28-30Price 32-36;RUN;* PROC TABULATE report with options;PROC TABULATE DATA = boats FORMAT=DOLLAR9.2;CLASS Locomotion Type;VAR Price;TABLE Locomotion ALL, MEAN*Price*(Type ALL)/BOX='Full Day Excursions' MISSTEXT='none';TITLE;RUN;

12345678910111213

DATA boats;INFILE 'c:\MyRawData\Boats.dat';INPUT Name $ 1-12 Port $ 14-20 Locomotion $ 22-26 Type $ 28-30Price 32-36 Length 38-40;RUN;* Using the FORMAT= option in the TABLE statement;PROC TABULATE DATA = boats;CLASS Locomotion Type;VAR Price Length;TABLE Locomotion ALL,MEAN * (Price*FORMAT=DOLLAR6.2 Length*FORMAT=6.0) * (Type ALL);TITLE 'Price and Length by Type of Boat';RUN;

12345

17 sci 9 bio 28 fic 50 mys 13 fic 32 fic 67 fic 81 non 38 non53 non 16 sci 15 bio 61 fic 52 ref 22 mys 76 bio 37 fic 86 fic49 mys 78 non 45 sci 64 bio 8 fic 11 non 41 fic 46 ref 69 fic34 fic 26 mys 23 sci 74 ref 15 sci 27 fic 23 mys 63 fic 78 non40 bio 12 fic 29 fic 54 mys 67 fic 60 fic 38 sci 42 fic 80 fic

123456789101112131415161718192021222324252627282930

DATA books;INFILE 'c:\MyRawData\LibraryBooks.dat';INPUT Age BookType $ @@;RUN;*Define formats to group the data;PROC FORMAT;VALUE agegpa0-18 = '0 to 18'19-25 = '19 to 25'26-49 = '26 to 49'50-HIGH = ' 50+ ';VALUE agegpb0-25 = '0 to 25'26-HIGH = ' 26+ ';VALUE $typ'bio','non','ref' = 'Non-Fiction''fic','mys','sci' = 'Fiction';RUN;*Create two way table with Age grouped into four categories;PROC FREQ DATA = books;TITLE 'Patron Age by Book Type: Four Age Groups';TABLES BookType * Age / NOPERCENT NOROW NOCOL;FORMAT Age agegpa. BookType $typ.;RUN;*Create two way table with Age grouped into two categories;PROC FREQ DATA = books;TITLE 'Patron Age by Book Type: Two Age Groups';TABLES BookType * Age / NOPERCENT NOROW NOCOL;FORMAT Age agegpb. BookType $typ.;RUN;

123456789101112131415161718

DATA natparks;INFILE 'c:\MyRawData\Parks.dat';INPUT Name $ 1-21 Type $ Region $ Museums Camping;RUN;*Statistics in COLUMN statement with two group variables;PROC REPORT DATA = natparks NOWINDOWS HEADLINE;COLUMN Region Type N (Museums Camping),MEAN;DEFINE Region / GROUP;DEFINE Type / GROUP;TITLE 'Statistics with Two Group Variables';RUN;*Statistics in COLUMN statement with group and across variables;PROC REPORT DATA = natparks NOWINDOWS HEADLINE;COLUMN Region N Type,(Museums Camping),MEAN;DEFINE Region / GROUP;DEFINE Type / ACROSS;TITLE 'Statistics with a Group and Across Variable';RUN;