1、简述

国内生产总值(英语:Gross Domestic Product,缩写:GDP)是一个国家的宏观经济指标,有别与国民生产总值。想要比较不同国家(或经济体)的GDP,需要汇率换算,但由于方式不同,所以结果也会存有差异。但也不致于引起比较上的错误,比如,无论你按什么方式计算,老挝的GDP也不会超过美国。

2、如何获取数据

2.1、啰嗦

作为概率统计专业的学生,要想提升自己的专业技能,就需要获取各种各样的真实数据用以统计分析实践。从中不仅能熟练数学软件的操作,还可以在实践中学到课程中涉及不到的知识。比如,数理整理技巧,处理缺失数据,合理性检验,发现统计分析中易犯的错误等。

2.2、免费数据源(本段会继续更新)

国内外都有大量的免费数据源,下面列出几个我常去的数据源网站,您也可以通过留言或评论的方式加以补充。

★ 国内(有些网站仅是部分资源免费):

中国知网,部分数据资源免费
中华人民共和国国家统计局,  合并了以前的中国统计年鉴,免费
人地系统主题数据库,提供地理信息系统(GIS)数据,一般是成品,数据比较粗糙,免费
数据堂,免费资源不多

★ 国外:

联合国数据库(UNdata),数据很丰富,免费
DIVA-GIS,可以下载行政区GIS数据,免费
Global Administrative Areas,可以下载行政GIS数据,可精确到县,提供多种数据格式,免费

★ Mathematica 9

最牛的数学软件之一(实际上,现阶段可以把之一去掉),通过内部函数可直接获取各种实时数据和历史数据(比如,天气数据,国家和城市的人口、经济、地理、语言等,天文数据,金融数据……),非常给力,不仅是统计专业朋友的法宝!在所有的大型数学软件中,她的帮助做得最出色,她的官网提供大量免费教程和源文件,用她写程序最贴近数学专业的思维和习惯,可以用你能想到的最美好的词形容,不信给你看个数学软件对比表>>

3、用Mathematica汇总各国GDP

3.1、Mathematica代码:

GDPData = 
 CountryData[#, {"GDP", 2004}] & /@ CountryData[];(*获取各个国家GDP数据*)
PopuData = 
 CountryData[#, {"Population", 2004}] & /@ CountryData[];(*获取各个国家人口数据*)
CNData = CountryData[];(*获取各个国家名称数据*)
GDPDataMP = 
  Position[GDPData, Missing["NotAvailable"]] // 
   Flatten;(*查找缺失GDP数据位置*)
PopuDataMP = 
 Position[PopuData, Missing["NotAvailable"]] // Flatten;(*查找缺失人口数据位置*)
GDPData[[Union[GDPDataMP, PopuDataMP]]] = "无数据";(*将缺失数据用"无数据"替代*)
PopuData[[Union[GDPDataMP, PopuDataMP]]] = "无数据";(*将缺失数据用"无数据"替代*)
mybgcolor = RGBColor[231/255, 231/255, 231/255];(*背景颜色*)
mycolor = ColorData["TemperatureMap"];(*配色方案*)
ig = Graphics[{EdgeForm[{Thickness[0.000000001], mybgcolor}], 
     If[GDPData[[#]] == "无数据", Black, 
      mycolor[(GDPData[[#]]/PopuData[[#]])/35000]], 
     Tooltip[CountryData[CNData[[#]], "FullPolygon"], 
      Row[{CNData2[[#]], ": ", "人均GDP=", 
        If[GDPData[[#]] == "无数据", "无数据", GDPData[[#]]/PopuData[[#]]], 
        "$", "  ", "GDP=", GDPData[[#]], "$"}]]} & /@ 
   Range[Length[GDPData]], Background -> mybgcolor, 
  ImageSize -> 1200](*绘图*)

3.2、输出结果及动态演示

★ 按区域划分,各国GDP分布图,请点击图片查看大图:

world-GDP

☆ 如果您已经安装了Mathematica,请点此查看动态演示CDF文件>>

☆ 如果您没有安装Mathematica,请点此查看类似的网页版的动态演示(效果稍差些)>>

点此下载此CDF文件>>

3.3、2004年各国GDP与人均GPD排名(共207个经济体)

★ GPD排名前30的国家人均GDP图,请点击图片查看大图:

BarChart

朋友们,不要为我们的GDP如何之高而骄傲,因为它的高度还远远不够。周总理的话——“为中华之崛起而读书!”,它永不过时。在这个时候,很多愤青们往往会找他们指责和埋怨的对象,大发感慨。唉,其中很多言论误人误已。让我不深不浅地体会到了袁腾飞对此的观点……

朋友们,拿出愤青的精神,奋斗吧,为已为人!

一份近期的报道:

尽管中国GDP超过日本成为“世界第二”,但与全球第一的美国仍相差甚远。中国的人均GDP为3800美元,“在全球排在105位左右”。事实上,除了人均指标在世界排名靠后,中国在医疗、教育以及环境等较多领域仍比较落后。

★ GPD排名前30的国家人均GDP表,点此下载2004年207个经济体GDP全部数据>>

2004年世界各国GDP排名

数据来自Mathematica  by 野鹤

国家 Country GDP排名 GDP/$ 人均GDP排名 人均GDP
美国 United States 1 1.16E+13 13 39689.71
日本 Japan 2 4.61E+12 18 36157.83
德国 Germany 3 2.75E+12 22 33322.52
联合王国 United Kingdom 4 2.20E+12 17 36661.88
法国 France 5 2.06E+12 23 33011.71
中国 China 6 1.94E+12 129 1511.74
意大利 Italy 7 1.73E+12 27 29641.52
西班牙 Spain 8 1.04E+12 32 24580.26
加拿大 Canada 9 9.92E+11 25 31027.33
墨西哥 Mexico 10 7.58E+11 67 7273.10
韩国 South Korea 11 7.22E+11 48 15242.36
印度 India 12 6.95E+11 164 624.26
巴西 Brazil 13 6.64E+11 93 3609.92
澳大利亚 Australia 14 6.60E+11 24 32757.40
荷兰 Netherlands 15 6.10E+11 16 37552.15
俄国 Russia 16 5.92E+11 88 4112.69
土耳其 Turkey 17 3.92E+11 74 5582.28
瑞士 Switzerland 18 3.63E+11 5 49097.69
比利时 Belgium 19 3.60E+11 21 34704.60
瑞典 Sweden 20 3.57E+11 14 39606.79
奥地利 Austria 21 2.89E+11 20 35307.91
挪威 Norway 22 2.59E+11 4 56220.87
印尼 Indonesia 23 2.57E+11 135 1186.62
波兰 Poland 24 2.53E+11 69 6610.19
沙特阿拉伯 Saudi Arabia 25 2.50E+11 53 10856.36
丹麦 Denmark 26 2.45E+11 8 45299.54
希腊 Greece 27 2.31E+11 41 20898.59
南非 South Africa 28 2.16E+11 82 4549.81
芬兰 Finland 29 1.89E+11 19 36139.44
爱尔兰 Ireland 30 1.85E+11 9 45079.51