*--------------------------------------------------------------------+
|               SOCIOECONOMIC DATA FOR 35 COUNTRIES                  |
|                                                                    |
|Percent of population below age 15 and above age 75, per capita dis-|
|posable income in US dollars, percent saving rate, and  percent con-|
|tribution to the gross domestic product (GDP) of  agriculture (AGR),|
|manufacturing and construction (MFG), and service including  govern-|
|ment (SER) for 35 countries. Data are believed to be for 1970.      |
|                                                                    |
|Source: J Chambers et al. (eds.), Graphical Methods of Data Analysis|
|        1983, page 346.                                             |
|                                                                    |
*--------------------------------------------------------------------;
Data SOCECO;
    INPUT CTY $ 1-3 PLACE $ 1-17 BEL15 ABOV75 DISINC SAVE AGR MFG SER;
    LABEL   PLACE=COUNTRY
            BEL15=PERCENT POP. BELOW AGE 15
            ABOV75=PERCENT POP. ABOVE AGE 75
            DISINC=PER CAPITA DISPOSABLE INCOME
            SAVE=SAVINGS RATE
            AGR=AGRICULTURE CONTRIBUTION TO GDP
            MFG=MANUFACTURING CONTRIBUTION TO GDP
            SER=SERVICE CONTRIBUTION TO GDP;
datalines;
Australia               29  3  2330  11   6  36  58
Bolivia                 42  2   189   6  16  34  50
Brazil                  42  1   728  13  12  26  62
Canada                  32  3  2983   9   4  31  65
Chile                   40  1   663   1   7  43  50
Costa Rica              48  1   471  11  23  24  53
Denmark                 24  4  2497  17   7  38  55
Ecuador                 46  1   288   4  27  22  51
Finland                 28  2  1681  11  12  38  50
Germany                 23  3  2457  13   3  54  43
Greece                  26  3   871  11  16  27  57
Honduras                47  1   232   8  31  21  48
India                   41  1    89   9  43  20  37
Italy                   25  3  1391  14   9  42  49
Japan                   27  2  1257  21   6  45  49
Korea                   42  1   208   4  28  31  41
Libya                   44  2   124   9   2  70  28
Luxembourg              22  4  2449  10   4  52  44
Malaysia                47  1   243   5  30  28  42
Netherlands             25  3  1741  15   6  39  55
Nicaragua               45  1   326   7  25  26  49
Panama                  44  1   569   4  19  24  57
Paraguay                41  1   221   2  32  21  47
Peru                    44  1   400  13  17  35  48
Portugal                29  3   580  12  16  41  43
South Africa            32  2   651  11   8  41  51
Spain                   28  3   769  12  11  37  52
Sweden                  21  5  3299   7   4  39  57
Turkey                  43  1   390   5  27  29  44
Tunisia                 46  1   250   3  17  21  62
United Kingdom          23  4  1814   8   2  42  56
United States           30  3  4002   8   3  35  62
Uruguay                 28  3   767   9  11  25  64
Venezuela               46  1   813   9   7  40  53
Zambia                  45  1   138  19  11  55  34
;
proc print;
title 'Socioeconomic data for 35 countries';
 
proc princomp out=pca;
 
proc sort;
     by prin1;
 
proc plot ;
     plot prin2 * prin1 = '*' $ cty;